[ create a new paste ] login | about

Link: http://codepad.org/WlJKat0K    [ raw code | output | fork ]

Perl, pasted on Nov 4:
use warnings;
my $filename = 'accountin.txt';
my $renamedata = 'rename.txt';
local @var = ($renamedata);
$var = $_;
{
local @ARG = ($renamedata);
while ( $renamedata ) {
my ($find,$replace) = split /;/, $;

   local @ARGV = ($filename);
     while( <> )
     {
      if( s/$find/$replace/ig ) {
         print;
      }
      else {
         print;
      }
   }
}
		}


Output:
1
2
3
4
syntax error at line 11, near "$;

   local"
Execution aborted due to compilation errors.


Create a new paste based on this one


Comments: