codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
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; } } } }
Private
[
?
]
Run code
Submit