Perl:chomp的奇怪行为

时间:2017-08-14 00:19:01

标签: perl

Perl中的

chomp函数从最后出现的变量中删除记录分隔符。但是,在下面的代码中,它删除了更多 - 它也从变量的前面删除了一些字符。这是代码:

#!/usr/bin/env perl

use strict;
use warnings;
use String::Util qw(trim);
use feature 'say';

{
open FILE, "conf.txt" or die "Can't open file";
local $/ = ';';
my %hash;
my @val;

while (<FILE>){
    next if (/^\s+$/);
    @val=split /=/;
    $hash{$val[0]}=$val[1];
}

say $hash{"name1"};
say chomp $hash{"name1"};
close FILE;
}

conf.txt文件如下所示:

name1=va
l1;
name2=v
a
l2;
name3=val3;
name4=val4;

代码的输出如下:

~ $ ./readconf.pl 
va
l1;
1

我期待say chomp $hash{"name1"};的输出为va\nl1。为什么只输出1

1 个答案:

答案 0 :(得分:6)

来自manual

  

它返回从其所有参数中删除的字符总数。

chomp修改其参数。它不会返回可能被截断的字符串。