Kategorien
FreewarWiki:Bot/Skripts/npclist2fightcalcdata.pl: Unterschied zwischen den Versionen
< FreewarWiki:Bot | Skripts
K (Die Seite wurde neu angelegt: „<pre> #!/usr/bin/perl #input: npclist while(<>) { next if (/^GET/); my ($name, $atk, $lp) = split(/;/); if ($name ne "" && $atk ne "" && $lp ne "") { …“) |
K (Korrektur) |
||
| Zeile 2: | Zeile 2: | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
#input: npclist | #input: npclist | ||
use constant CUnknown => "?"; | |||
while(<>) | while(<>) | ||
| Zeile 9: | Zeile 9: | ||
my ($name, $atk, $lp) = split(/;/); | my ($name, $atk, $lp) = split(/;/); | ||
if ($name ne | if ($name ne CUnknown && $atk ne CUnknown && $lp ne CUnknown) { | ||
printf("%s;%s;%s\n", $name, $atk, $lp); | printf("%s;%s;%s\n", $name, $atk, $lp); | ||
} | } | ||
} | } | ||
</pre> | </pre> | ||
Version vom 12. Juni 2011, 06:31 Uhr
#!/usr/bin/perl
#input: npclist
use constant CUnknown => "?";
while(<>)
{
next if (/^GET/);
my ($name, $atk, $lp) = split(/;/);
if ($name ne CUnknown && $atk ne CUnknown && $lp ne CUnknown) {
printf("%s;%s;%s\n", $name, $atk, $lp);
}
}