Problem z kilkukrotnym wywołaniem getpwent()

Article View: pl.comp.lang.perl

Article #52258

#52258

From: piecia aka dracorp
Date: Wed, 15 Jun 2011 10:19

37 lines
1541 bytes

Witam
Na początku kod:
#v+
#!/usr/bin/perl 
use strict;
use warnings;
my $krok = 0;
my $login = "root";
sub getent {
	my ( $par1 )	= @_;
	print $krok++.":$par1\n";
	while(my @list = getpwent){
		if($list[0] eq $par1){
			print "@list\n";
		}
	}
}
for(1..3){
	getent($login);
}
#v-

wynik jego działania:
#v+
0:root
root x 0 0   root /root /bin/bash
1:root
2:root  
#v-
Dlaczego za 2-gim i następnym razem getpwent nie zwraca żadnych wartości? 

ps. we właściwym kodzie zrobiłem to inaczej, przepisałem wszystko co 
zwraca getpwent do hasha. Ale to OT.

-- 
piecia aka dracorp
pisz na: piotr kropka rogoza at wp kropka eu

Technical Details

Message-ID: <pan.2011.06.15.10.20.22@dracorp.one.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!.POSTED!not-for-mail
From: piecia aka dracorp <imie.nazwisko@wp.eu>
Newsgroups: pl.comp.lang.perl
Subject: Problem z kilkukrotnym wywołaniem getpwent()
Date: Wed, 15 Jun 2011 10:19:54 +0000 (UTC)
Organization: http://onet.pl
Lines: 37
Message-ID: <pan.2011.06.15.10.20.22@dracorp.one.pl>
NNTP-Posting-Host: 62.108.180.232
Mime-Version: 1.0
X-Trace: news.onet.pl 1308133194 2206 62.108.180.232 (15 Jun 2011 10:19:54 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Wed, 15 Jun 2011 10:19:54 +0000 (UTC)
User-Agent: Pan/0.134 (Wait for Me; GIT cb32159 master)
X-face: &O(G<?G0x[)D}ri@2r:nnqjWG"C%v#'ES"T|m>Gaw3JWL>[XKRh^(75y8=DvLC1QXn9Vtc= !QWAS}|{A97ADU]x0*KE-Z>sKRlHMqyJ7c!=^wW,f#RXJ%e_@(U2YaNV10ucCf
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit