while (<>) {
chop;
@a = split (/\s/,$_,2);
$ids{$a[0]} = $a[1];
}
foreach my $key (keys %ids) {
$regexes{$ids{$key}} .= "|$key";
};
foreach my $key (keys %regexes) {
system "egrep -e \"$regexes{$key}\" $key";
}
Она рада.
while (<>) {
chop;
@a = split (/\s/,$_,2);
$ids{$a[0]} = $a[1];
}
foreach my $key (keys %ids) {
$regexes{$ids{$key}} .= "|$key";
};
foreach my $key (keys %regexes) {
system "egrep -e \"$regexes{$key}\" $key";
}
Она рада.
-
Мечта
Часто для меня мечта выглядит вот так. Чтобы отстали и поспать дали
-
Остался только Тёма
Зашел по какой-то ссылке в ЖЖ и решил почитать ленту френдов. Ну и конечно же там остался единственный персонаж —…
-
Машина времени
Очень забавные ощущения. Меня тут порой поругивают за то, что не могу выражать свои мысли в одной строчки, например. Читать народ вообще разучился и…
- Post a new comment
- 4 comments
- Post a new comment
- 4 comments
