split

xp20683

Inter_B.txt的内容:

1|FFFFFFFFFFFFFFFF
2|FFFFFFFFFFFFFFFF


$i_B="Inter_B.txt";
open(FH3, "<$i_B");
while(<FH3>)
{
    if($_ eq "")
   {
         next;
    }
    elsif(/|/)
   {
        chomp;
       @ps=split("|",$_);
       $stn=shift(@ps);
        print $stn."-";
       dut_label=shift(@ps);
       print $dut_label."\n";
   }
   else
  {
   }
}

为什么输出:
1-|
2-|

不是:
1-FFFFFFFFFFFFFFFF
2-FFFFFFFFFFFFFFFF

wxlfh

@ps = split /\|/;

这样试试。

hitsubunnu

三处错误

1.  elsif(/|/)   ->  elsif(/\|/)

2. @ps=split("|",$_);   ->  @ps=split(/\|/,$_);

3. dut_label=shift(@ps);  ->  $dut_label=shift(@ps);


一个建议 没必要用shift 吧    $ps[0]  $ps[1]  直接用不好吗

qiyanse

:wink: if you want to join them ,why you dont try to use "join",

join "-",@ps;

iceberg77

也可以直接替换

while(<FH3>) {
      s/\|/-/;
      print;
}

xp20683

我不要替换,我要取出|两边的值

iceberg77

不要就不要好了

见３楼，很详细

schnell18

这个程序看起来怎么这么别扭啊。
这样写不是更加清楚吗：
$i_B="Inter_B.txt";
open(FH3, "<$i_B");
while(<FH3>) {
    chomp;
    next if $_ eq "";
    next unless /\|/;
   
    my($stn, $dut_label) = split("|", $_);
    print "$stn-$dut_label\n";
}