Public Scratchpad | Download, Select Code To D/L |
while(<LINES>) { chomp($_); $current = "$_"; while(<ORIG>) { print OUT "$_" if ($. == $current); } seek(ORIG,0,0); }
Public Scratchpad | Download, Select Code To D/L |
while(<LINES>) { chomp($_); $current = "$_"; while(<ORIG>) { print OUT "$_" if ($. == $current); } seek(ORIG,0,0); }