Linuxtrent: Corso Perl
- From: Guido Brugnara <gdo@xxxxxxxxx>
- To: linuxtrent@xxxxxxxxxxxxxxxxx
- Date: Sun, 01 Apr 2001 08:52:52 +0200
Allego il piccolo esempio argomento della precente =
lezione per gli interessati.
Ci vediamo come sempre mercoled=EC ore 21:00
cordiali saluti
Guido Brugnara
-------------------------------------------------
#!/usr/bin/perl -w
use IO::File;
$fh =3D new IO::File;
$fh->open("< /etc/passwd") or die "Errore apertura file\n";
while(<$fh>){
my($user,$passwd,$uid,$gid,$comments,$home,$shell) =3D
split /:/, $_, 7;
print STDOUT "user=3D$user\npsw=3D$passwd\n uid=3D$uid\n".
" gid=3D$gid\n comm=3D$comments\n home=3D$home\n shell=3D$shell\n\n";=
}
$fh->close;
-------------------------------------------------
-- =
ing. Guido Brugnara tel.+39(461)390804 fax.396028
Leader.IT S.r.l. (Leader Information Technology)
Strada della Pozzata, 41 www.leader.it/srl
38050 Villazzano TRENTO (ITALY) info@xxxxxxxxx
--
Per iscriversi (o disiscriversi), basta spedire un messaggio con SOGGETTO
"subscribe" (o "unsubscribe") a mailto:linuxtrent-request@xxxxxxxxxxxxxxxxx
Other related posts: