Multiline substitution

[gooliver]

I've this text on a TeX-file source.tex:

bla bla bla...
$$
some equation
$$
bla bla bla...

and i want convert source.tex in a file dest.tex where $$
are replaced from the couple \[...\]

bla bla bla...
\[
some equation
\]
bla bla bla...

but i've encountered most difficulties about pattern-matching
of the multiline string $$...$$ !!!

Have you some suggestion?

 

[Lars Haugseth]

I've this text on a TeX-file source.tex:

bla bla bla...
$$
some equation
$$
bla bla bla...

and i want convert source.tex in a file dest.tex where $$
are replaced from the couple \[...\]

bla bla bla...
\[
some equation
\]
bla bla bla...

but i've encountered most difficulties about pattern-matching
of the multiline string $$...$$ !!!

Have you some suggestion?

Assuming two $ characters never appear next to each other in
other circumstances:

$code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;

 

[gooliver]

Assuming two $ characters never appear next to each other in

other circumstances:

$code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;

....but i've the lines of my source.tex file one-by-one:

while ($r = <IN> ) {
$line = ...
...
print OUT $line; }

 

[Lars Haugseth]

Assuming two $ characters never appear next to each other in
other circumstances:

$code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;

...but i've the lines of my source.tex file one-by-one:

while ($r = <IN> ) {
$line = ...
...
print OUT $line; }

Do you have to do it this way? Consider using slurp:

my $code = do { local $/; <IN> };

If you're processing one line at a time, you'll have to use a flag
indicating whether you're inside a $$-block or not, and substituting
accordingly.

 

[Paul Lalli]

Assuming two $ characters never appear next to each other in
other circumstances:

$code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;

...but i've the lines of my source.tex file one-by-one:

while ($r = <IN> ) {
$line = ...
...
print OUT $line; }

"Doctor, Doctor, it hurts when I raise my arm like this!!"

Paul Lalli

 

[gooliver]

"Doctor, Doctor, it hurts when I raise my arm like this!!"

The doctor replies, "Then don't raise your arm over your head." (-:

....
$code="";
while ( $r = <IN> ) {
$code = $code . $r;
}
close(IN);
$code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;
print OUT $code;
close(OUT);

 

[anno4000]

Assuming two $ characters never appear next to each other in
other circumstances:

$code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;

...but i've the lines of my source.tex file one-by-one:

while ($r = <IN> ) {
$line = ...
...
print OUT $line; }

Then your subject is misleading. You don't have multiline
substitutions.

my @replace = qw( [ ]);
my $which = 0;
while ( <DATA> ) {
s/^\$\$$/$replace[ $which]/ and $which = 1 - $which;
print;
}

Anno

 

[Uri Guttman]

g> The doctor replies, "Then don't raise your arm over your head." (-:

g> ...
g> $code="";

not needed with .=.

and you didn't use strict or warnings.

g> while ( $r = <IN> ) {
g> $code = $code . $r;
g> }

gack! use File::Slurp. yours is the slowest way to read in whole files.

g> close(IN);
g> $code =~ s{ \$\$ (.*?) \$\$ }{\\[$1\\]}gxms;
g> print OUT $code;

File::Slurp can also handle outputting files.

uri