How to replace a "/" in perl

[chunji08]

I have a list of sql files, in which it ends with a "/". Now I want to
replace it with "//end" for all files. And here is my perl command,
"
perl -pi.org -e 's/^\/$/^\/\/end$/' *.SQL
"

Suprisingly it does not work. Does someone know how to make it
working ?

I am using perl 5.6.1 on Linux.


Charlie

 

[A. Sinan Unur]

(e-mail address removed) wrote in @v45g2000cwv.googlegroups.com:

I have a list of sql files, in which it ends with a "/". Now I want to
replace it with "//end" for all files. And here is my perl command,
"
perl -pi.org -e 's/^\/$/^\/\/end$/' *.SQL
"

Suprisingly it does not work.

It does not work is a bad description. Please read the posting
guidelines for this group.

#!/usr/bin/perl

use strict;
use warnings;

while ( <DATA> ) {
s{^/$}{//end} and print;
}

__DATA__
/
/
/
/
/
/
/

Sinan

 

[comp.llang.perl.moderated]

I have a list of sql files, in which it ends with a "/". Now I want to
replace it with "//end" for all files. And here is my perl command,
"
perl -pi.org -e 's/^\/$/^\/\/end$/' *.SQL

* if you add -w to the options, you'll
get a fatal syntax error,

perl -pi.org -we ...

* you don't want the ^ on the left-hand side

for regular expression help, see:

perldoc perlrequick
perldoc perlretut

* use alternative substitution delimiter to
avoid backslash-itis, eg.,

s{something}{for something else}

 

[chunji08]

(e-mail address removed) wrote in @v45g2000cwv.googlegroups.com:



It does not work is a bad description. Please read the posting
guidelines for this group.

#!/usr/bin/perl

use strict;
use warnings;

while ( <DATA> ) {
s{^/$}{//end} and print;

}

__DATA__
/
/
/
/
/
/
/

Sinan

My Fault.
The correct answer should be:
"
perl -pi.org -e 's/^\/$/\/\/end/' *.SQL
"

C