Differences
This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
matrix_irc_script [2008/02/19 22:40] – created 88.217.66.213 | matrix_irc_script [2021/04/18 12:35] (current) – external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | //Achtung: Ist jetzt im Haskell-Bot von fpletz implementiert.// | ||
< | < | ||
# | # | ||
Line 40: | Line 41: | ||
</ | </ | ||
+ | < | ||
+ | # | ||
+ | |||
+ | use Socket; | ||
+ | |||
+ | my %opt = ( " | ||
+ | |||
+ | my $fh; | ||
+ | if ( ! open($fh, | ||
+ | die(" | ||
+ | }; | ||
+ | socket(my $sh, | ||
+ | |||
+ | print " | ||
+ | |||
+ | seek($fh, | ||
+ | while (1) { | ||
+ | my $record = < | ||
+ | if ($record =~ m/MATRIX/) { | ||
+ | $record =~ s/ | ||
+ | $record =~ s/(.*)\t//; | ||
+ | $record =~ s/\((.*)\) has//; | ||
+ | $record =~ s/MATRIX//; | ||
+ | $record =~ s/ä/ae/; | ||
+ | $record =~ s/ü/ue/; | ||
+ | $record =~ s/ö/oe/; | ||
+ | $record =~ s/Ä/Ae/; | ||
+ | $record =~ s/Ü/Ue/; | ||
+ | $record =~ s/Ö/Oe/; | ||
+ | $record =~ s/ß/ss/; | ||
+ | |||
+ | print " | ||
+ | send($sh, | ||
+ | }; | ||
+ | }; | ||
+ | |||
+ | close($fh); | ||
+ | </ | ||
+ | |||
+ | {{tag> |