Re: looping issue

From: Ben Morrow <ben@xxxxxxxxxxxx>
Date: Mon, 30 Jun 2008 16:47:57 +0100

Quoth dakin999 <akhilshri@xxxxxxxxx>:

Hi, I have following code:

use warnings;
use strict;

open my $FILE, '<', 'file_name'
or die "can't open 'file_name': $!";

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";

my $line = <$FILE> or last;
chomp $line;
my ($nusr_id) = split;

#...
}

Ben

--
I have two words that are going to make all your troubles go away.
"Miniature". "Golf".
[ben@xxxxxxxxxxxx]
.

References:
- looping issue
  - From: dakin999

Prev by Date: Re: editing smb.conf (INI files)
Next by Date: Re: Need help with a question.
Previous by thread: Re: looping issue
Next by thread: Re: looping issue
Index(es):
- Date
- Thread

Relevant Pages

Re: split function syntax
... use strict; ... use warnings; ...
(comp.lang.perl.misc)
Re: parsing csv-file for inserting in database
... you should use the strict and warnings pragmas. ... Use chomp instead. ... Notice how this loop does nothing the loop above didn't do: ...
(perl.beginners)
Re: Delete file if it contains x y or z
... Here's another way, but not necessarily the best Perl, but it does work: ... use strict; ... use warnings; ... chomp @filelist; ...
(perl.beginners)
Re: [newbie] chomp acting weird (or me not understanding how it works??)
... Whend i use chomp like this: ... use strict; ... use warnings; ... Please read the posting guidelines and post codes others can run by ...
(comp.lang.perl.misc)
Re: How to specify [regex] beginning of line/unlimited characters/no spaces terminatingn with "
... Keenan wrote: ... > use strict; ... > use warnings; ... > perldoc -f chomp ...
(comp.lang.perl.misc)