sub checkFile() { # print("The path name was: $file"); print("Opening File..."); print("File is now open"); @file = <FILE>; print("<BR><BR> @file<BR><BR>"); while($line = <FILE>) { chomp($line); if($line =~ /([^ACGTacgt])/) {next;} else { @cols = split(/\s/, $line); print("@cols"); } print("File is now closed"); } }
In reply to Re2: Upload a file and format txt
by MonkPaul
in thread Upload a file from home dir
by MonkPaul
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |