forum.opennet.ru - "HELP! (awk/sed/perl...)" (1)

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"HELP! (awk/sed/perl...)"

Форумы Программирование под UNIX (Public)
Вариант для распечатки		Архивированная нить - только для чтения! Пред. тема \| След. тема
Изначальное сообщение		[Проследить за развитием треда]

"HELP! (awk/sed/perl...)"
Сообщение от Gretha on 23-Май-02, 00:55 (MSK)
How to merge lines with \ (backslash) at the end? I mean, line1 line2\ line3 should become line1 line2line3 Zaranee bolshoe spasibo
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх

Оглавление

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: HELP! (awk/sed/perl...)"

Сообщение от pth on 23-Май-02, 01:17  (MSK)

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

Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.

Партнёры:

Хостинг:

1. "RE: HELP! (awk/sed/perl...)"
Сообщение от pth on 23-Май-02, 01:17 (MSK)
>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 }
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх