Is this what you ment?while (<INPUT>) { chomp; ($first, $second) = /^(first column)+\s+(second column)+.*/; # I d +on't know what should be matched (digits, chars, ..) &saveColumns($first, $second); print "whole row: $_\n"; }
In reply to Re: Parsing a tab delimited file
by hotshot
in thread Parsing a tab delimited file
by snowy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |