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
