quote]
Phoinix:
Вообще понятие первой строки абзаца - довольно странное...[/quote]
Ну, может быть.
Под "абзацем" в данном случае я подразумевал n-е кол-во строк, отделенное от другого "абзаца" пустой строкой.
И первая строка такого "абзаца" - это первая строка после пустой строки. (О, как! ;-)
Наверное, можно это назвать и записями, разделенными пустой строкой.
Phoinix:
P.S. А что не сработало-то?
Perl ругается:
Use uninitialied value in pattern match (m//).
Use uninitialied value in hash element.
Код такой.
####################
#!perl -w
use strict;
$/="";
my %hash;
my ($paragraf, $key);
my $n = 5;
open(FN, "fn.txt") || die "$!";
while (
) {
$paragraf =~m/(.{$n,}).*/;
$hash{$1} = $paragraf;
}
#######################
fn.txt
#######################
абзац1
Здесь находится первый
абзацццц
абзац2
Привет
Здесь второй
#######################