суббота, 24 октября 2009 г.

Подсчет платных в текстовике

Подсчет платных в текстовике:

#!/usr/bin/perl

print "\tВыворотка\tРамка\tЗвездочка\tТочка\tФото\n";
while (<stdin>){
   @Text=split (' ',$_);
   $rubr=$Text[0];
   if ($rubr eq '@RB'){
      $nomer=$Text[2];
      if (($nomer!=101)&&($flag>0)){print "$old_nomer\t$flagA\t$flagB\t$flagC\t$flagD\t$flagE\n";}
      $flagA=0;
      $flagB=0;
      $flagC=0;
      $flagD=0;
      $flagE=0;
      $flag=0;
      $old_nomer=$nomer;
   }
   if ($rubr eq '@RPT') {$flagA=$flagA+1;$flag=1;}
   if ($rubr eq '@R2') {$flagB=$flagB+1;$flag=1;}
   if ($rubr eq '@RPZ') {$flagC=$flagC+1;$flag=1;}
   if ($rubr eq '@RPP') {$flagD=$flagD+1;$flag=1;}
   if ($rubr eq '@FOTO') {$flagE=$flagE+1;$flag=1;}
}
if (($nomer==950)&&($flag>0)){print "$nomer\t$flagA\t$flagB\t$flagC\t$flagD\t$flagE\n";}

Комментариев нет:

Отправить комментарий