version 1.14, 2000/10/22 05:10:12
|
version 1.16, 2000/10/22 23:47:06
|
Line 78 sub getField {
|
Line 78 sub getField {
|
} |
} |
next if (/^\s*$/); |
next if (/^\s*$/); |
|
|
if (s/^(.*?)[:\.]\s*// && !$key) { |
if (!$key && /^(.*?)[:\.]\s*(.*)$/s) { |
$key = $1; |
$key = $1; |
$value=$_; |
$value=$2; |
next; |
next; |
} |
} |
if ($key) { |
if ($key) { |
Line 227 MAIN:
|
Line 227 MAIN:
|
# Inherited fields for a Question |
# Inherited fields for a Question |
# |
# |
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', |
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', |
'Автор' => 'Authors', |
'Автор' => 'Authors', 'Рейтинг'=>'Rating', |
'Источник' => 'Sources'); |
'Источник' => 'Sources'); |
|
|
|
|
Line 318 MAIN:
|
Line 318 MAIN:
|
next; |
next; |
} |
} |
|
|
my @Fields = grep /$key/, keys %QuestionFields; |
my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; |
|
|
if (scalar @Fields) { |
if (scalar @Fields) { |
my $word = shift @Fields; |
my $word = shift @Fields; |
Line 333 MAIN:
|
Line 333 MAIN:
|
next; |
next; |
} |
} |
|
|
@Fields = grep /$key/, keys %TourFields; |
@Fields = grep { $key =~ /$_/ } keys %TourFields; |
|
|
if (scalar @Fields) { |
if (scalar @Fields) { |
my $word = shift @Fields; |
my $word = shift @Fields; |