Sub письменность и конкатенация

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; он не возвращает измененную переменную, она возвращает количество удаленных символов и изменяет переменную на месте.

Так грызть первым и присоединиться позже, как это ...

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; 
}