Paul Johnson wrote:
> $line(<BLK>){
chomp $line;
> if ($line =~/.*row.*/i){
> }else{
> $hash{$line}="new";
> }}
> close(BLK);
> our $a='3.3.3.3';
> delete ($hash{$a});
> print keys %hash;also, s/our/my/ unless you have a good reason not to. >-- >Paul Johnson - [EMAIL PROTECTED] >http://www.pjcj.net Thanks, I forgot the simple stuff! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
