Firstname Lastname 650 156 7190:somfield:somefield:somefield
Firstname Lastname 408 256 7290:somfield:somefield:somefield
Firstname Lastname 510 3456 7390:somfield:somefield:somefield
******more lines here *******
Firstname Lastname 415 3456 7390:somfield:somefield:somefield
I have about 300 lines like this in a file and I am trying to create an array of
phone numbers
open (FILE,"thefile") or die;
@array =3D <FILE>;
my @phone;
for each $string (@array) {
$phone[$i] =3D ($string =3D~ /\s\d+\s\d+\s\d+:/) ;
$i++;
}
This does not work, what am I doing wrong? or it there a better way?
Thanks
raj
[EMAIL PROTECTED]
650.730.8271
<www.netliant.com>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
