Help for this page

Select Code to Download

Select or download this

open(TXTIN,"ARGV[0]") || die "Cannot open the data file";
open(TXTOUT,">ARGV[1]") || die "Cannot open the formatted file";
...
}
close(TXTIN);
close(TXTOUT);

Select or download this

perl -pe 'if( !eof ){ s/^1/AAAA/; } else{ s/^1/BBBB/; }' /etc/hosts > 
+/tmp/newfile