论坛 › Perl › perl中的while处理文件

lmwtzw6u5l0 发表于 2018-8-31 11:25:40

perl中的while处理文件

　　# cat w.pl
　　#!/usr/bin/perl
　　$filename='/etc/passwd';
　　open(FILE,$filename)or die;
　　while($line = ){
　　($username,$secret,$uid,$gid)=split(":",$line);
　　print "$username,$secret,$uid,$gid\n";
　　}
　　close(FILE);
　　$filen='/etc/group';
　　open(GROUP,$filen)or die;
　　while(){
　　($groupname)=split(":");
　　print "$groupname\n";
　　}
　　close(GROUP);

查看完整版本: perl中的while处理文件