RE: [Perl-unix-users] Perl help

[Kevin Horvatin]

I've several of those in the file that have only keys but no values.
This
could be problematic. Is there a way, I can flag these while filling the
hash up?

Thanks,
perdeep

-----Original Message-----

> use strict;
> use warnings;
> 
>   my %defln = ();
> 
>   while (my $line = <FILE>) {
>        chop($line);
>        if ($line =~ /^$/) {
>           next;
>        }
>        else {
>           my @words = split(/\t+/, $line);

                ## Only push lines that have STUFF\tMORESTUFF
                push(@{ $defln{$words[0]} }, $line) if (defined
$words[1]);

>        }
>    }
> 

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs