Как читать абзацы одновременно с Perl?
Когда я пишу
#!/usr/bin/perl -w
use strict;
while( ) {
print "\n-------------------------\n\n";
print;
;
}
после каждоговернуть" Я получаю одну строчку.
Почему Дон'я получаю следующий скрипт после каждоговернуть" один абзац?
#!/usr/bin/perl -w
use strict;
local $/ = "";
while( ) {
print "\n-------------------------\n\n";
print;
;
}
__DATA__
line one
line two
line three
line four
line five
line six
line seven
line eigth
line nine
line ten
line eleven
line twelve