免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1957 | 回复: 3

HELP: 文件处理问题 [复制链接]

论坛徽章:
0
发表于 2007-07-03 10:27 |显示全部楼层
FILELIST里面放的是我想处理的文件名字
我想去掉FILELIST里文件的注释行和空白。  但是每次执行后,都没有对这些文件进行处理。
请问问题出在哪儿啊??
open(FILELIST, "<$file_list") || die "Cannot open $file_list\n";
     while (<FILELIST>) {
           chomp($_);
           open(FILE, "<$_") || die "Cannot open $_\n";
                while (<FILE>) {
                          s/(^\s+|\s+$)//g;
                          next if(/^#/);
                          s/#.*$//;
                      }
            close FILE;
        }
close FILELIST;

论坛徽章:
0
发表于 2007-07-03 10:50 |显示全部楼层
你的替换处理都是对临时变量做的,对原文件是只读的啊,原文件怎么会有变化呢?
你可以把替换后的,或者符合保留下来的条件的行,输出到新的文件。
就应该可以了。

  1. open( FILELIST, "<$file_list" ) || die "Cannot open $file_list\n";
  2. while (<FILELIST>) {
  3.     chomp($_);
  4.     open( FILE, "<$_" ) || die "Cannot open $_\n";
  5.     open( F_new, ">>$_.ok" ) or die $!;
  6.     while (<FILE>) {
  7.         if ( !/^\s*$/ and !/^\s*#/ ) { print F_new $_; }
  8.     }
  9.         close F_new;
  10.     close FILE;
  11. }
  12. close FILELIST;
复制代码

[ 本帖最后由 royalzhang 于 2007-7-3 11:01 编辑 ]

论坛徽章:
0
发表于 2007-07-03 17:09 |显示全部楼层
替换掉原来的文件的内容:

  1. open( FILELIST, "<$file_list" ) || die "Cannot open $file_list\n";
  2. while (<FILELIST>) {
  3.     my $fname = $_;
  4.     chomp($fname);
  5.     open( FILE, "<$fname" ) || die "Cannot open $_\n";
  6.     my @con = <FILE>; # 将文件内容放入一个数组
  7.     close FILE;
  8.     my $string = '';
  9.     for my $line (@con) {
  10.         if ( $line !~ /^\s*$/ and $line !~ /^\s*#/ ) {
  11.             $string .= $line; # 将符合要求的行连成字符串
  12.         }
  13.     }
  14.     open G, ">$fname" or die $!;
  15.     print G $string; # 替换原来文件的内容
  16.     close G;
  17. }
  18. close FILELIST;
复制代码

论坛徽章:
0
发表于 2007-07-03 19:13 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP