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";
}
Она рада.
Часто для меня мечта выглядит вот так. Чтобы отстали и поспать дали
Зашел по какой-то ссылке в ЖЖ и решил почитать ленту френдов. Ну и конечно же там остался единственный персонаж —…
Очень забавные ощущения. Меня тут порой поругивают за то, что не могу выражать свои мысли в одной строчки, например. Читать народ вообще разучился и…