Sure, here it is
package Gary::Yang; sub parse { my( $in ) = @_; my @junk; while(my $line = <$in> ){ push @junk, [ split ':', $line, 2 ]; } return @junk; }
In reply to Re: Perl Module to parse text file
by Anonymous Monk
in thread Perl Module to parse text file
by Gary Yang
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |