URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 757
[ Назад ]

Исходное сообщение
"HELP! (awk/sed/perl...)"

Отправлено Gretha , 23-Май-02 00:55 
How to merge lines with \ (backslash) at the end?
I mean,
line1
line2\
line3
should become
line1
line2line3
Zaranee bolshoe spasibo

Содержание

Сообщения в этом обсуждении
"RE: HELP! (awk/sed/perl...)"
Отправлено pth , 23-Май-02 01:17 
>How to merge lines with \
>(backslash) at the end?

Из Perl Cookbook:

while(defined($line = <FH>))
{
    chomp $line;
    if($line =~ s/\\\s*$//)
    {
        $line .= <FH>;
        redo unless eof(FH);
    }
    # Обработать полную запись в $line
}