CUFP
jonagondos
<p>
hi this script creates a gagillian files in your current directory and reverses a file, enjoy lol.
<code>
#!/usr/bin/Perl
if (@ARGV != 1) {
print "usage ./catrev.pl file1\n";
print "@ARGV";
exit;
}
else {
$file1 = pop(@ARGV);
open(FILE1,$file1);
@array1 = <FILE1>;
foreach (@array1) {
$each = reverse($_);
print "$each\n"
}
print "what would you like your file name to be?\n";
$filename = <STDIN>;
chomp ($filename);
if (($filename eq "") || (defined $filename eq 'false')) {
print "enter some data!";
exit;
}
else {
sub hellofile {
print "$_[0] is the file to be written";
open (FILE, "> $_[0]") or die "cant create file";
}
$i == 0;
while ($i < 1000000000000000000000) {
hellofile($filename);
$filename .= poop;
$i++;
}
}
}
</code>