perl中的while处理文件

发布时间：2020-12-16 00:23:46 所属栏目：大数据来源：网络整理

导读：[root@stationx perl]# cat w.pl #!/usr/bin/perl $filename='/etc/passwd'; open(FILE,$filename)or die; while($line = FILE){ ($username,$secret,$uid,$gid)=split(":",$line); print "$username,$gidn"; } close(FILE); $filen='/etc/group'; open(GRO

[root@stationx perl]# cat w.pl #!/usr/bin/perl $filename='/etc/passwd'; open(FILE,$filename)or die; while($line = <FILE>){ ($username,$secret,$uid,$gid)=split(":",$line); print "$username,$gidn"; } close(FILE); $filen='/etc/group'; open(GROUP,$filen)or die; while(<GROUP>){ ($groupname)=split(":"); print "$groupnamen"; } close(GROUP); ?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!