Perl_Line_Picker
Line_Picker.pl => Average execution time: Few seconds for a file with >20000 lines
Input file: Text file with non-homogeneous entries separated by tab character
Output desired: Text file only with desired number of entries in each line
1: open(out, ">Output_file.txt");
2: open(infile, "Input_File.txt");
3: while(<infile>)
4: {
5: @line = split /\s+/;
6: $num = scalar @line;
7: if($num > 4 && $num < 101){ print out "@line\n";}
8: }
9: print "Program complete\n";
Example Input: 1. A B C D
2. E F G
3. H
Example Output: (Only lines with > 1 entry)
A B C D
E F G
Comments
Post a Comment