How to use: Let's say you have a perl code called 'my_script.pl' perl printer.pl my_script.pl
This generates a new file named my_script_printered.pl Run it with:
perl my_script_printered.pl
Will also work with php scripts, i.e. my_script.php
perl printer.pl my_script.php
php -f my_script_printered.php
#!/usr/bin/perl
$file = @ARGV[0];
open FILE, $file;
$file =~ s/\./_printered\./;
open NEWFILE, '>'.$file;
while(<FILE>){
print NEWFILE $_;
print NEWFILE 'print \''.$_.'\';';
}
close(NEWFILE);
close(FILE);
--
*****************************
Pall Thayer
artist
http://www.this.is/pallit
*****************************
printer.tar.gz
Description: GNU Zip compressed data
_______________________________________________ NetBehaviour mailing list [email protected] http://www.netbehaviour.org/mailman/listinfo/netbehaviour
