Benutzer:Benji/Tools

Listenumschreibungen

Für Liste der Mitglieder der WTO ([1]) hab ich folgendes Perl-Script geschrieben:

#!/usr/bin/perl
my %countrys;

open(FH, "|lynx -dump -nolist http://de.wikipedia.org/wiki/Wikipedia:Ländervorlagen_mit_Flagge");

while(<FH>) {
    if(/^     \* (...) .*? - .*?  ([^\(]+)/) {
        $v = $2;
        chomp($v);
        $countrys{lc($v)} = $1;
        print "$1 = $2\n"; # debug
    }
}


# stdin durchgehen
print "Geparst. Warte auf Input\n";
my $input;
while(<STDIN>) {
    foreach $country (keys %countrys) {
        #print "Checke auf $country...\n";
        $_ =~ s{$country}{\{\{$countrys{$country}\}\} }i;
    }
    $input .= $_;
}

print "\n\n----FERTIG-----\n\n";

print $input;
print "\n";

Anschließend in Standardeingabe das alte Wikidokument eingeben und anschließend das neue zurück in Wikipedia kopieren

Liste zu Tabelle

Perl-Onliner:

perl -e 'while(<>){ s/^:(.+?)\s+(.+?)$/| $1 || $2\n|----/; print; }' | kwrite