[rage]

Сообщение от Shayne

Мне не кажется это таким легким

 
#!/usr/bin/perl
use strict;
 
my($npcId, $gchance);
open(FH,"<npc.xml") or die "$!\n";
while(<FH>)
{
  my $str = $_;
  if($str =~/npc id="(\d+)"/)
  {
    $npcId = $1;
    print "\n$npcId\t";
  }
  elsif($str =~/group chance="(.+?)"/)
  {
    $gchance = $1;
  }
  elsif($str =~/\<reward\s+item_id="(\d+)" min="(\d+)" max="(\d+)" chance="(.+?)".+?\<\!--(.+?)--\>/)
  {
    print "$5 $2-$3 [$gchance * 100 / $4]\\n";
  }
}
close(FH);
 
Code: Perl