Petr Didenko (kippie) wrote,
Petr Didenko
kippie

Сделал девушке подарок:

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";
  }

Она рада.
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 4 comments