string replace problem

diggnet · May 21, 2006

Helo,

I have a little problem with string replace in HTML file. I want to
replace :

OLD_STRING = "<img width="11" height="11"
src="/include/image-dir/jsp/images/image1.gif">"

NEW_STRING ="image1"

any ideas how to do it with perl?

digg.

Jürgen Exner · May 21, 2006

Helo,

I have a little problem with string replace in HTML file. I want to
replace :

OLD_STRING = "<img width="11" height="11"
src="/include/image-dir/jsp/images/image1.gif">"

This won't even compile.

NEW_STRING ="image1"

any ideas how to do it with perl?

Sure.
$OLDSTRING = $NEWSTRING;
should do the job.

Now, what is your real problem?

jue

Tad McClellan · May 22, 2006

I want to
replace :

OLD_STRING = "<img width="11" height="11"
src="/include/image-dir/jsp/images/image1.gif">"

NEW_STRING ="image1"

any ideas how to do it with perl?

Here is a program that does that:

--------------------
#!/usr/bin/perl
use warnings;
use strict;

my $old_string = q(<img width="11" height="11"
src="/include/image-dir/jsp/images/image1.gif">);

my $new_string ="image1";

my $html = q(<html><body><img width="11" height="11"
src="/include/image-dir/jsp/images/image1.gif"></body></html>);

$html =~ s/$old_string/$new_string/;

print $html;

diggnet · May 22, 2006

hi,

and if i want to change in whole file? where and how shoul i declare
it? in.ex. $infile

diggnet · May 22, 2006

Ok... i've made it :

#!/usr/bin/perl
use warnings;
use strict;
my $old_string = q(<img width="11" height="11"
src="/include/image-dir/jsp/images/image1.gif">);
my $new_string ="image1";
my $infile = "infile.html";
my $outfile = "outfile.html";
open(FILE,"< $infile");
open(FILE2,"> $outfile");
while(<FILE>) {
$_=~ s/$old_string/$new_string/g;
print FILE2 "$_";
}
close(FILE2);
close FILE;

Tad McClellan · May 22, 2006

open(FILE,"< $infile");

You should always, yes *always*, check the return value from open():

open(FILE,"< $infile") or die "could not open '$infile' $!";

The "best" way to open the file would be to use a lexical filehandle
and the 3-argument form of open():

open(my $FILE, '<', $infile) or die "could not open '$infile' $!";

print FILE2 "$_";

print FILE2 $_;
or
print FILE2;

See: perldoc -q vars

What's wrong with always quoting "$vars"?

John W. Krahn · May 29, 2006

Ferry said:
Tad Mc Clellan:

What is the difference between

open (my $FILE, '<', $infile)... and
open (my $FILE, "<$file")... ?

Say you have a file named ' file ', the first case would work correctly but
the second case would ignore the whitespace and try to open the file named 'file'.

John

Problem Splitting Text String	2	Dec 29, 2022
Help with Visual Lightbox: Scripts	2	May 3, 2023
Picture Comparison Code Not Working Properly	1	Jul 24, 2021
Multiline Search-Replace With Perl One-liner	2	Jan 12, 2012
Stuck with html and css	25	Dec 14, 2022
Timing problem	4	May 1, 2023
How to have two html audio players on one page?	0	May 3, 2022
Big problem I need to solve with some unix utils	1	Jun 19, 2022

string replace problem

diggnet

Jürgen Exner

Tad McClellan

diggnet

diggnet

Tad McClellan

John W. Krahn

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads