Script - Remove Newline 'boxes'

Full Version: Script - Remove Newline 'boxes'

GovernmentSecurity.org > The Archives > General Network Security

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]";
}

This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.