Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Next revisionBoth sides next revision | ||
matrix_irc_script [2008/07/09 11:03] – sva | matrix_irc_script [2008/08/24 17:59] – sva | ||
---|---|---|---|
Line 40: | Line 40: | ||
</ | </ | ||
+ | < | ||
+ | # | ||
- | {{tag> | + | 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/ | ||
+ | $record =~ s/\((.*)\) has//; | ||
+ | $record =~ s/ | ||
+ | $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> |