This script loops fine but the search only works the first time - nothing
happens for a second search. Any idea why?
Terri
#!/usr/bin/perl -w
use strict;
my $exit = 1;
my $bigmatch = 0;
my %rec = ();
my $search = '';
sub read_addr {
my %curr = ();
my $curr = '';
my $key = '';
Is there a web address to search archived messages for this list?
Thanks
Terri
_
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
If my input is in the form:
Name: Happy, Species: Cat, Gender: Male
Name: Peanut, Species: Hamster, Gender: Female
how come
foreach (keys %names) {
if ($names{$_} =~ /\s*Gender:\s*$gen\s*/i) {
AND
if ($names{$_} =~ /\s*Species:\s*$sp\s*/i) {
WORK
why doesn't
if ($names{$_} =~ /\s*Name:\s*$pn\s
$names{$raw[1]} = $raw[0];
} else {
$pn = " ";
for ($i = 0; $i < $#raw; $i++) {
$pn .= $raw [$i] . " ";
}
$names($raw[$#raw]} = $pn;
}
}
Thanks,
Terri Harrison
_
Get your FREE download of