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 (+{{Scriptquelltextverwendung}}) |
||
(2 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
{{Scriptquelltextverwendung}} | |||
<pre> | <pre> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
#input: npclist | #input: npclist | ||
use constant CUnknown => "?"; | |||
while(<>) | while(<>) | ||
Zeile 9: | Zeile 10: | ||
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> |
Aktuelle Version vom 16. März 2012, 16:12 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); } }