in reply to perl oneliners

You invoke your code as oneliner like this 
perl -e 's/\/usr\/bin\/perl/\/test\/test\/test/g;s/\/ggg\/ggg\/www/\/z
+zz\/zzz\/zzz/g;s/\/jjj\/jjj\/jjj/\/aaa\/aaa\/aaa/g;' -pi *.pl

[download]

and in a script 

#!/usr/local/bin/perl -pi

use strict;
use warnings;

s/\/usr\/bin\/perl/\/test\/test\/test/g;
s/\/ggg\/ggg\/www/\/zzz\/zzz\/zzz/g;
s/\/jjj\/jjj\/jjj/\/aaa\/aaa\/aaa/g;

END {
    print "Done\n";
}

[download]

with this line: 

perl script.pl *.pl

[download]

update: To avoid backslashitis, you could write your s/// as, e.g., s|||: 

s|/usr/bin/perl|/test/test/test|g;
s|/ggg/ggg/www|/zzz/zzz/zzz|g;
s|/jjj/jjj/jjj|/aaa/aaa/aaa|g;

[download]

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: perl oneliners
by valavanp (Curate) on Aug 19, 2006 at 10:47 UTC
    Thanks shmem for your reply. It works well. But this script.pl file also gets changed. I wanted to keep this in the main directory and want to run the .pl files in the test directory. I am using suse linux os. the directory path is /main/script.pl -- Script file. /main/test/*.pl files -- perl files. In the oneliners there is an option like this $(find .-type f). How can i do this in the script file. Thanks for your reply.
[reply]
      This case, just use the shell: 
      perl -i -e 's|/usr/bin/perl|/test/test/test|g;s|/ggg/ggg/www|/zzz/zzz/
+zzz|g;s|/jjj/jjj/jjj|/aaa/aaa/aaa|g; ' /main/script.pl `find /path/to
+/pl/files/ -type f`

      [download]
      FYI, there's File::Find in the standard perl distribution ... and i personally like File::Find::Rule
[reply]
[d/l]
      But this script.pl file also gets changed... the directory path is /main/script.pl -- Script file. /main/test/*.pl files -- perl files.

      Let's suppose you write your script file like this (I prefer using curly braces around regexes when the slash is part of the pattern or replacement): 

      #!/usr/bin/perl

use strict;
use warnings;

# check for valid usage (user must provide a directory path):

(@ARGV == 1 and -d $ARGV[0]) or die "Usage: $0 /path/to/scripts\n";

my $path = shift;
{
    local $/;   # set input record separator to undef (slurp-mode read
+ing)

    for my $file (<$path/*.pl>)  # use a file glob 
    {
        open( F, "<", $file ) or next;
        $_ = <F>;
        close F;
        s{/usr/bin/perl}{/test/test/test}g;
        s{/ggg/ggg/www}{/zzz/zzz/zzz}g;
        s{/jjj/jjj/jjj}{/aaa/aaa/aaa}g;
        open( F, ">", $file ) or die "$file: $!";
        print F;
        close F;
    }
}

      [download]
      When you put that script file in a directory other than the one that you provide as a command-line arg when you run it (or if you put it in the same directory, but give it a name that does not end in ".pl"), the script will not edit/rewrite itself.
[reply]
[d/l]

In Section Seekers of Perl Wisdom