美好的一天,
对于工作,我突然需要知道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中的sub？使用@_和shift之类的东西似乎很有趣,但打字……这是一场噩梦.
谢谢收听.