FreewarWiki:Bot/Skripts/npclist2fightcalcdata.pl

#!/usr/bin/perl
#input: npclist


while(<>)
{
  next if (/^GET/);
  my ($name, $atk, $lp) = split(/;/);
 
  if ($name ne "" && $atk ne "" && $lp ne "") {
    printf("%s;%s;%s\n", $name, $atk, $lp);
  }
}