perl读取文件并处理(while<>)

来源:互联网 发布:ubuntu删除virtualbox 编辑:程序博客网 时间:2024/06/06 10:55
while(<>){    print "good! ", $_;    ###默认处理$_    my @LINE=split(' ');    ###打印结果用逗号隔开    $"=",";    print "split ", "@LINE";    print "\n";}



原创粉丝点击