[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,$secret,$uid,$gid\n";
}
close(FILE);
$filen='/etc/group';
open(GROUP,$filen)or die;
while(<GROUP>){
($groupname)=split(":");
print "$groupname\n";
}
close(GROUP);
perl中的while处理文件
原创文章标签 perl处理passwd文件 文章分类 代码人生
©著作权归作者所有:来自51CTO博客作者网络蛤蟆的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:perl自学小练习
下一篇:perl中的sig问题
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
虚拟化kvm的raw文件处理
kvm的raw文件简单处理
raw文件打开 kvm的raw文件处理 -
perl while continue循环
今天发现Perl中原来还有个while-co...
perl 正则 while循环 元字符 后缀