tweakz20
Jun 26 2004, 06:16 AM
Hey, I recently became very angered recently while trying to open some source perl files, and also noticed it opening C exploits and text files and anything that came from the *nix OSs has newline boxes everywhere... It gets really old and annoying and i'm sure you'll agree as a Windows user...
Well, I made a short perl script to quickly remove those lines and make a new file (filename1.ext) that removes these boxes and replaces with newlines! (VERY handy in my opinion.)
| CODE |
# Stops those ANNOYING boxes!!
# ^ generated by *nix systems as line breaks
# coded by: tweakz20
if ((!@ARGV)|| ($#ARGV < 0)) {
usage();
exit;
}
open(F, $ARGV[0]) || die "Can't open file...";
$name = $ARGV[0];
@finame = split(/\./, $name);
$filename = "$finame[0]"."1."."$finame[1]";
open(A, ">$filename") || die "Can't open file to write to...";
@data=<F>;
print A @data;
print "\nJob done! check file $filename";
sub usage {
print "Usage:\nembox.pl [Filename]";
}
|
