Need help in scripting

sameeradamle

I need to write a perl script to replace text in a series of files.
What i need to do:
1) in Command line i need to specify the <text to be replaced> , <replacing text>, <name of the files in which i need replacement>
2) Also i need to specify an option '-c' to prompt the user to confirm while replacing in each file.

That is the command line needs to look like this:

#<program name> -c <text to be replaced> <replacing text> <file1> <file2> etc...

could anyone please help me out on this. Am a beginner, so not sure of how the program would go...

nithinpes

What have you tried so far?

SpecialKay

start with

#!/usr/bin/perl

and go from there :)

kalyanrajsista

I think this script will help you out...I've tested this on Unix and a homework for you to test on Windows.

Expand|Select|Wrap|Line Numbers

 
#!/usr/local/bin/perl

#

# Replaces a string within multiple files

# specified on the command line
 
$mv = '/bin/mv';
 
$op = shift || die("Usage: $0 perlexpr [filenames]\n");
 
if (!@ARGV) {

  @ARGV = <STDIN>;

  chop(@ARGV);

}
 
foreach $file (@ARGV) {

  if (!-f $file) {

       print "Skipping non-regular file: $file\n";

       next;

  }

  if (-B $file) {

       print "Skipping binary file: $file\n";

       next;

  }
 
  $outfile = "/usr/tmp/$file.$$";
 
  open(FILE, $file) ||

       die("Couldn't open $file: $!\n");

  undef $/;

  $_ = <FILE>;

  close(FILE);
 
  if (eval $op) {

    open(OFILE, "> $outfile") ||

        die("Couldn't open $outfile: $!\n");

    print OFILE;

    close(OFILE);
 
    system($mv, '-f', $file, "$file.bak");

    system($mv, '-f', $outfile, $file);
 
    print "File changed: $file\n";

  }

  else {

    print "No change to file: $file\n";

  }

}
 
exit(0);

Kalyan

kalyanrajsista

Assuming that script name is replace

usage is replace 'substitute expression' list of files

Expand|Select|Wrap|Line Numbers

replace 's/this/that/g' 1.txt 2.txt 3.txt 4.txt

eWish

Welcome to TSDN Kalyan!

We like for the OP's to show effort in trying their task before handing them a solution. This will aid in helping them learn rather than doing it for them.

We appreciate your help.

--Kevin

Need help in scripting

re: Need help in scripting

re: Need help in scripting

re: Need help in scripting

re: Need help in scripting

re: Need help in scripting

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about