Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | Next revisionBoth sides next revision | ||
matrix_irc_script [2008/07/09 11:03] – sva | matrix_irc_script [2008/08/03 19:29] – 216.139.240.0 | ||
---|---|---|---|
Line 40: | Line 40: | ||
</ | </ | ||
+ | < | ||
+ | # | ||
+ | |||
+ | 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> | {{tag> |