小编kay*_*ato的帖子

我有此示例数据，我想删除逗号，特别是该行的最后一个逗号，顺便说一下，它是.csv文件。

W，S，Vbd2OX / NW，Vbd2OX / PW，Vbd3OX / NW，Vbd3OX / PW， 
ID，ID，11200，V 11200，V 11200，V 11200， 
6,1,0.69,5.56，-5.56,10.5，-10.12，
6,2,3.99,7，-5.13，-7,640.455，

这2个代码不起作用最后一个逗号仍然存在

$line =~ s/\,$//g;

和

$line =~ s/,//g;

我需要在代码中使用哈希和循环。请查看示例代码，它不起作用。我想并排打印可变晶片，站点和资源，所以看起来像这样

1, 1, 63 
1, 2, -53 
1, 3, 9.47 
1, 4, 9.55 
1, 5, -8.32

my @wafer = ("1","1","1","1","1");
my @site = ("1", "2", "3", "4", "5");
my @res = ("63","-53","9.47","9.55","-8.32");

my %hash;
foreach my $result(@res) {
    $hash{$wafer[0]}{$site[0]} = $result;
    last;
}

print "$wafer{$wafer[0]}{$site[0]} \n";

请更正我的代码，我似乎无法打开文件进行解析。错误是这一行open(my $fh, $file) or die "Cannot open file, $!"; 无法打开文件，在 ./sample.pl 第 28 行没有这样的文件或目录。

use strict;
my $dir = $ARGV[0];

my $dp_dpd = $ENV{'DP_DPD'};

my $log_dir = $ENV{'DP_LOG'};
my $xmlFlag = 0;
my @fileList = "";

my @not_proc_dir = `find $dp_dpd -type d -name "NotProcessed"`;

#print "@not_proc_dir\n";


foreach my $dir (@not_proc_dir) {
        chomp ($dir);
        #print "$dir\n";

    opendir (DIR, $dir) or die "Couldn't open directory, $!";
    while ( my $file = readdir DIR) {
            next if $file =~ /^\.\.?$/;
            next …