Recent content by Dovahkiin88

This is my perl program open(MYINPUTFILE, "<sampleinput.txt"); while(<MYINPUTFILE>) { my($line) = $_; chomp($line); $line =~ tr/[a-z]/[A-Z]/; print "$line\n"; } close(MYINPUTFILE); open(MYOUTFILE, '>sampleoutput.txt'); print MYOUTFILE "$line"; close(MYOUTFILE); This program is basically...