perl求和

清泉一边

我有一个文件夹，名字为1，文件夹里有两个文件，名字分别是data.txt与da.txt里面的数据如下：
data：
1 2
1 2
1 2
da：
1 3
1 3
1 3
我想在一个名为su.txt的文件里输出第二列的和,理想状态为：
data 6
da 9
下面是我写的程序，输不出结果，初学者，大家勿见笑。请帮忙改正一下，感谢！

#!/usr/bin/perl-w
@list=glob ("C:\\Users\\lenovo\\Desktop\\1\\*.txt");
foreach  $list(@list)
{
$list=~/C\:\\Users\\lenovo\\Desktop\\1\\(\S*)\.txt/;
$name=$1;
        open (IN,"C:/Users/lenovo/Desktop/$name.txt");
        open (OUT,">C:/Users/lenovo/Desktop/1/su.txt");
     $i=0;
         while ($line=<IN>)
         {
                 chomp $line;
                 @line=split (/\t/,$line);
         $i=$line[1]+$i;
         }
  print OUT"$name\t$i\n";
}

ly5066113

1. perl -lane '$h{$ARGV}+=$F[1];END{print "$_ $h{$_}" for keys %h}' data.txt da.txt > su.txt

复制代码

yybmsrs

open (IN,"C:/Users/lenovo/Desktop/$name.txt");

路径不对吧

jzp520520

　　建议你在最开始加一句：打开目录句柄：  opendir(ETC,"/etc")||die "出错,不能打开目录";  
这样你glob或变量就不用带上文件目录的地址了，直接取文件名就可以了。另外你的文件目录地址的正反斜杠用的比较混，一个系统要么是/要么是\。

清泉一边

路径是对的，可能是其他地方错了。回复 3# yybmsrs


   

清泉一边

是的，我都改成一样了，输出结果还是不对，输出结果为0.回复 4# jzp520520


   

yybmsrs

一步步print下看看呗

清泉一边

我和我同学写的完全一样，他可以输出来，我的为什么啊？茫然。。。。回复 7# yybmsrs


   

jzp520520

你试下这个，你的问题在于目录操作上，记得打开只读文件或目录后面要带上 or die "错误 信息"
#!/usr/bin/perl
#use strict;
use warnings;
opendir(ETC,"C:\\Users\\lenovo\\Desktop\\1\\")||die "出错,不能打开目录";  
@list=glob "*.txt";

foreach  $list(@list) {

$list=~/(.*).txt/;
         $name=$1;
         open (IN,"$name.txt") or die $!;
         open (OUT,">su.txt");
      $i=0;
          while ($line=<IN>)
          {
                  chomp $line;
                  @line=split (/\t/,$line);
          $i=$line[1]+$i;
          }
   print OUT "$name\t$i\n";
}

清泉一边

不对回复 9# jzp520520