Как я извлекаю строки между двумя разделителями строки в Perl?

Как в Perl захватить несколько строк после совпадающей?

Как это? В нем строка END - это $ ^, вы можете изменить ее на свою строку END.

Я тоже новичок, но решения там предоставляют довольно много методов ... дайте мне знать более конкретно, что это вы хотите, что отличается от приведенной выше ссылки.

while (<>) {
    chomp;      # strip record separator
    if(/END/) { $f=0;}
    if (/START/) {
        s/.*START//g;
        $f=1;
    }
    print $_ ."\n" if $f;
}

попробуйте написать код в следующий раз

Вы используете Vista или Windows 7? Если это так, то SetThreadLocale не работает (даже если он возвращает TRUE, вздох), и вам нужно использовать SetThreadUILanguage .

Я только что завершил приложение WTL, которое было переведено на 7 разных языков, и пользователь может переключать языки без проблем, которые вы описываете. Я использую SetThreadLocale в XP и SetThreadUILanguage в Vista / 7.

Дополнительная информация:

http://social.msdn.microsoft.com/forums/en- США / windowscompatibility / thread / d3a44b1c-900c-4c64-bdf8-fe94e46722e2 /

http: //www.curlybrace. оператор (задокументирован в perlop):

perl -ne 'print if /START/ .. /END/' file1 file2 ...

perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ...

while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
# now choose between them
} continue {
    $. = 0 if eof;  # fix $.
}

После ответа Телемаха вещи начали выливаться наружу. Это работает как решение, которое я ищу в конце концов.

1. Я пытаюсь извлечь строки, разделенные двумя строками (одна - со строкой, заканчивающейся на «CINFILE =»; другая, со строкой, содержащей один «#» ") отдельными строками, за исключением строк-разделителей. Это я могу сделать с помощью решения Телемаха.
2. В первой строке есть пробел, который я хочу удалить. Я также включаю его.
3. Я также пытаюсь извлечь каждый набор строк в отдельные файлы.

У меня это работает, хотя код можно классифицировать как уродливый; это потому, что я практически новичок в Perl. В любом случае, вот оно:

#!/usr/bin/env perl
use strict;
use warnings;

my $start='CINFILE=$';
my $stop='^#$';
my $filename;
my $output;
my $counter=1;
my $found=0;

while (<>) {
  if (/$start/../$stop/) {
    $filename=sprintf("boletim_%06d.log",$counter);
    open($output,'>>'.$filename) or die $!;
    next if /$start/ || /$stop/;
    if($found == 0) { print $output (split(/ /))[1]; }
    else { print $output $_; }
    $found=1;
  } else { if($found == 1) { close($output); $counter++; $found=0; } }
}

Надеюсь, это принесет пользу и другим. Ура.

Неплохо для "виртуального новичка". Одна вещь, которую вы можете сделать, - это поместить «$ found = 1» внутри блока «if ($ found == 0)», чтобы вы не выполняли это присвоение каждый раз между $ start и $ stop.

Еще одна неприятная вещь, на мой взгляд, это то, что вы открываете один и тот же обработчик файлов каждый раз, когда вводите $ start / $ stop-block.

Это показывает способ обойти это:

#!/usr/bin/perl

use strict;
use warnings;

my $start='CINFILE=$';
my $stop='^#$';
my $filename;
my $output;
my $counter=1;
my $found=0;

while (<>) {

    # Find block of lines to extract                                                           
    if( /$start/../$stop/ ) {

        # Start of block                                                                       
        if( /$start/ ) {
            $filename=sprintf("boletim_%06d.log",$counter);
            open($output,'>>'.$filename) or die $!;
        }
        # End of block                                                                         
        elsif ( /$end/ ) {
            close($output);
            $counter++;
            $found = 0;
        }
        # Middle of block                                                                      
        else{
            if($found == 0) {
                print $output (split(/ /))[1];
                $found=1;
            }
            else {
                print $output $_;
            }
        }

    }
    # Find block of lines to extract                                                           

}