Kategorien
FreewarWiki:Bot/Skripts/npclist2wiki.pl: Unterschied zwischen den Versionen
< FreewarWiki:Bot | Skripts
K (Timestamp-Format auf dd.MM.yyyy hh:mm geändert) |
Zabuza (Diskussion | Beiträge) (Erweiterung des Skriptes um Sortkey zur korrekten Sortierung bei "Nicht-Zahlen" wie ? und -) |
||
Zeile 11: | Zeile 11: | ||
my $myTimestamp = sprintf("%.2d.%.2d.%d %.2d:%.2d", $mday, $mon+1, $year+1900, $hour, $min); | my $myTimestamp = sprintf("%.2d.%.2d.%d %.2d:%.2d", $mday, $mon+1, $year+1900, $hour, $min); | ||
print "Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den einzelnen NPC-Artikeln erstellt (zuletzt am " . $myTimestamp . "). Die Daten hier sollten nicht direkt | print "Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den einzelnen NPC-Artikeln erstellt (zuletzt am " . $myTimestamp . "). Die Daten hier sollten nicht direkt geändert werden, weil solche Änderungen bei einer Neuerstellung verloren gehen. Stattdessen bitte die Daten auf den Seiten des jeweiligen NPCs korrigieren! | ||
Die Buttons neben den | Die Buttons neben den Überschriften können zum Sortieren angeklickt werden. Da die Liste sehr lang ist, kann dies allerdings einige Sekunden dauern. | ||
{| {{Prettytable|text-align:right;}} class=\"sortable\" | {| {{Prettytable|text-align:right;}} class=\"sortable\" | ||
Zeile 26: | Zeile 26: | ||
if ($divisor == 0) {return "-"; } | if ($divisor == 0) {return "-"; } | ||
return sprintf($format, $dividend / $divisor); | return sprintf($format, $dividend / $divisor); | ||
} | |||
sub CheckUnknown { | |||
my $number = @_[0]; | |||
if (($number eq "?") || ($number eq "-")) { $number = 0;} | |||
return $number; | |||
} | } | ||
Zeile 33: | Zeile 39: | ||
my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/); | my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/); | ||
printf " |-\n | style=\"text-align:left;\" | [[%s]] || %s || %s || %s || %s || %s || %s || %s\n", $name, $atk, $lp, $xp, $gm, GetQuotient($xp, $lp, "%.2f"), GetQuotient($gm, $lp, "%.2f"), GetQuotient($gm, $xp, "%.0f"); | printf " |-\n | style=\"text-align:left;\" | [[%s]] || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}}\n", $name, CheckUnknown($atk), $atk, CheckUnknown($lp), $lp, CheckUnknown($xp), $xp, CheckUnknown($gm), $gm, CheckUnknown(GetQuotient($xp, $lp, "%.2f")), GetQuotient($xp, $lp, "%.2f"), CheckUnknown(GetQuotient($gm, $lp, "%.2f")), GetQuotient($gm, $lp, "%.2f"), CheckUnknown(GetQuotient($gm, $xp, "%.0f")), GetQuotient($gm, $xp, "%.0f"); | ||
} | } |
Version vom 25. Februar 2012, 07:19 Uhr
#!/usr/bin/perl #inout: npclist use constant CUnknown => "?"; use POSIX; setlocale(LC_NUMERIC, "de_DE"); ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); my $myTimestamp = sprintf("%.2d.%.2d.%d %.2d:%.2d", $mday, $mon+1, $year+1900, $hour, $min); print "Diese Tabelle wird von Zeit zu Zeit automatisch aus den Daten aus den einzelnen NPC-Artikeln erstellt (zuletzt am " . $myTimestamp . "). Die Daten hier sollten nicht direkt geändert werden, weil solche Änderungen bei einer Neuerstellung verloren gehen. Stattdessen bitte die Daten auf den Seiten des jeweiligen NPCs korrigieren! Die Buttons neben den Überschriften können zum Sortieren angeklickt werden. Da die Liste sehr lang ist, kann dies allerdings einige Sekunden dauern. {| {{Prettytable|text-align:right;}} class=\"sortable\" |- style=\"text-align:center;\" ! Name || Angr. || LP || XP || Gold || XP/LP || Gold/LP || Gold/XP\n"; sub GetQuotient { my ($dividend, $divisor, $format) = @_; if (($dividend eq CUnknown) || ($divisor eq CUnknown)) { return CUnknown; } if ($divisor == 0) {return "-"; } return sprintf($format, $dividend / $divisor); } sub CheckUnknown { my $number = @_[0]; if (($number eq "?") || ($number eq "-")) { $number = 0;} return $number; } while(<>) { next if (/^GET/); my ($name, $atk, $lp, $xp, $gm, $vk, $items) = split(/;/); printf " |-\n | style=\"text-align:left;\" | [[%s]] || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}} || {{SortKey|{{nts|%s}}|%s}}\n", $name, CheckUnknown($atk), $atk, CheckUnknown($lp), $lp, CheckUnknown($xp), $xp, CheckUnknown($gm), $gm, CheckUnknown(GetQuotient($xp, $lp, "%.2f")), GetQuotient($xp, $lp, "%.2f"), CheckUnknown(GetQuotient($gm, $lp, "%.2f")), GetQuotient($gm, $lp, "%.2f"), CheckUnknown(GetQuotient($gm, $xp, "%.0f")), GetQuotient($gm, $xp, "%.0f"); } print " |} [[Kategorie:NPC-Listen]]";