サブ書き込みや文字列の連結

Question

良い一日、

私は突然、Perlを知るために必要な、と私は数年前に、これらの分野で手を出しているのに、私は完全に失われているように見えます。 Haskell/Javaプログラマにとって、これらのすべての非構造化型は、神経に乗ることができます。

しかし、私はこれを書いています。これは、単一行の文字列を取り、それらを単一の複数行の文字列に連結することになっています。sub私はそうのようにそれを持っていた：

sub unlines { 
    my (@lines) = @_; 
    my $str = ""; 
    foreach $line (@lines) { 
     $str = join $str, chomp($line), "\n"; 
    } 
    return $str; 
} 

そして私は、もちろん、それをテストしたかった：

print unlines(("GET/http1.1", "Host: localhost", "")); 

そして事の結果

000 

改行がたくさんあります。私はそれがなぜなのか全く分かりません。誰でも私を助けて、おそらく、これらの議論がどのようにしてPerlで動作するかを説明することができますか？ @_とshiftのようなもので作業するのは非常に面白いと思われますが、タイピングは悪夢です。

お寄せいただきありがとうございます。

Answer 1

あなたの問題はchompの仕組みにあります。 chompされた変数を返さず、削除された文字数を返し、変数をインプレースで変更します。

だから、最初にムシャムシャ食べると後で参加、次のように...

C:\temp>cat test.pl 
my @lines = ('abc','def'); 
chomp @lines; 
print join "\n",@lines; 

C:\temp>test.pl 
abc 
def 
C:\temp> 

万全を期すために、ここに）どのようにあなたのunlines（だが

sub unlines { 
    my @lines = @_; 
    chomp @lines;  
    return join "\n", @lines; 
}