On Monday 29 October 2007 07:29, Beginner wrote:
>
> while (<EXCLUDE>) {
> chomp;
> my @fields = split(/|/,$_);
^^^
> $exclude_bases{$F[0]} = 0; # $f[0] contains base_no
> }
> close(EXCLUDE);
>
> open(BASE,"base.txt")|| die("Could not open file!");
> while (<BASE>) {
> chomp;
> my @fields = split(/|/,$_);
^^^
The '|' character has a special meaning in a regular expression so you
have to escape it if you want to match a literal '|' character.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
