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