Perl - печать на следующую строку - Отличная библиотека

Я нуб Perl пользователь пытается получить мою работу как можно скорее, так что я могу пойти домой на время сегодня :)Perl - печать на следующую строку

В основном нужно печатать на следующую строку пустых строк в тексте файл.

Следующее, что у меня есть до сих пор. Он может отлично отображать пустые строки. Теперь мне просто нужно распечатать следующую строку.

open (FOUT, '>>result.txt'); 

die "File is not available" unless (@ARGV ==1); 

open (FIN, $ARGV[0]) or die "Cannot open $ARGV[0]: $!\n"; 

@rawData=<FIN>; 
$count = 0; 

foreach $LineVar (@rawData) 
    { 
     if($_ = ~/^\s*$/) 
     { 
      print "blank line \n"; 
        #I need something HERE!! 

     } 
     print "$count \n"; 
     $count++; 
    } 
close (FOUT); 
close (FIN);

Благодаря кучу :)

источник

2009-07-03 b1gtuna

Можно ли повредить весь файл в памяти? Это не на 100% необходимо для показа упражнений. –

Это даже не нужно 1%, даже если вы хотите использовать массив. Взгляните на Tie :: File (часть ядра с 5,8, около 2002 года). –

Файл не был таким большим, но определенно это была не очень хорошая идея. Я посмотрю на Tie :: File :) спасибо – b1gtuna

open (FOUT, '>>result.txt'); 

die "File is not available" unless (@ARGV ==1); 

open (FIN, $ARGV[0]) or die "Cannot open $ARGV[0]: $!\n"; 

$count = 0; 

while(<FIN>) 
{ 
    if($_ = ~/^\s*$/) 
    { 
      print "blank line \n"; 
      count++; 
      <FIN>; 
      print $_; 

    } 
    print "$count \n"; 
    $count++; 
} 
close (FOUT); 
close (FIN);

не читает весь файл в @rawData save s память, особенно в случае больших файлов ...
<FIN> как команда считывает следующую строку в $ _
print ; сам по себе является синонимом print $_; (хотя я пошел к более явному вариантный на этот раз ...

источник

2009-07-03 15:25:15 Stobor

Что происходит с вышесказанным в случае, когда у вас две пустые строки подряд? предположительно вы хотели бы напечатать строку, следующую за второй пустой строкой, но этот код пропустит такую строку, не так ли? – si28719e

@blackkettle: очень верно. Если это требование, то решение Рона/Малаха лучше. – Stobor

большое спасибо за ваше решение :) к счастью, у моего файла не было двух пробелов подряд. – b1gtuna

Добавить переменную как $ lastLineWasBlank, и установить его в конце каждого цикла.

if ($lastLineWasBlank) 
    { 
    print "blank line\n" . $LineVar; 
    }

что-то в этом духе. :-)

источник

2009-07-03 15:16:05

Я бы, как это, но там, наверное, и другие способы сделать это:

for (my $i = 0 ; $i < @rawData ; $i++){ 
    if ($rawData[$i] =~ /^\s*$/){ 
     print $rawData[$i + 1] ; ## plus check this is not null 
    } 
}

источник

2009-07-03 15:16:23 jeje

Разве это не печатает все непустые строки? –

Разъясняя решение Рона Сэвиджа:

foreach $LineVar (@rawData) 
    { 
     if ($lastLineWasBlank) 
      { 
       print $LineVar; 
       $lastLineWasBlank = 0; 
      } 
     if($LineVar =~ /^\s*$/) 
     { 
       print "blank line \n"; 
        #I need something HERE!! 
       $lastLineWasBlank = 1; 
     } 
     print "$count \n"; 
     $count++; 
    }

источник

2009-07-03 15:24:10

Я думаю, вы хотите 'if ($ LineVar = ~/^ \ s * $ /)', поскольку вы не используете $ _ в цикле, не так ли? – Telemachus

Кроме того, вы хотите '0' и' 1', где у вас есть 'false' и' true'? (Нет встроенных булевых элементов в Perl, есть?) – Telemachus

, поэтому, если бы я использовал это решение, мне нужно поставить цитаты вокруг «истина» и «ложь»? – b1gtuna

sh> perl -ne 'if ($b) { print }; if ($b = !/\S/) { ++$c }; END { print $c,"\n" }'

Добавить входной файл (ов) по своему вкусу.

источник

2009-07-03 17:32:03 reinierpost

Perl - печать на следующую строку

ответ

Смежные вопросы