looping issue

Hi, I have following code:

foreach my $row (@$array_ref) {
my ( $usr, $usr_det, $pwd_val) = @$row;
#print "\tuser id :$usr\n";
#print "\tcard no :$usr_det\n";
#print "\tpasswd :$pwd_val\n";
open (FILE, "<file_name") || die "Could not open the file: $!";
while (<FILE>) {
chomp;
(my $nusr_id) = split(); #read into a variable
--
--
--
}
}

The problem is in the looping of input <FILE> that I need to read for
each $row. Basically there can be more than 1 $row values and I need
to pick a new line from <FILE> for each $row entry.

Any suggestions for doing this??
.

Relevant Pages

  • Re: looping issue
    ... foreach my $row { ... The problem is in the looping of input that I need to read for ... payment of page charges. ...
    (comp.lang.perl.misc)
  • Re: looping issue
    ... foreach my $row { ... The problem is in the looping of input that I need to read for ... Gunnar Hjalmarsson ...
    (comp.lang.perl.misc)
  • Re: regex help
    ... foreach ... chomp; ... open (pkgREPO, '<', 'data/versions-list.txt') ... To UNSUBSCRIBE, email to debian-user-REQUEST@xxxxxxxxxxxxxxxx with a subject of "unsubscribe". ...
    (Debian-User)
  • Re: regex help
    ... my @newValues; ... foreach ... chomp; ... open (pkgREPO, '<', 'data/versions-list.txt') ...
    (perl.beginners)
  • Re: OT: a problem about text manipulation
    ... use strict; ... use warnings; ... foreach my $item { ...
    (Fedora)