Opened by Gast at 2008-09-09 02:18
Der Code deines Freundes ist sehr umständlich.
So geht es sehr viel einfacher:
So geht es sehr viel einfacher:
Code: (dl
)
1
2
3
4
5
my $input = ':Monk!Monk@127.0.0.1 PRIVMSG #test :Beispiel TEXT';
my ($name, $text) = ('', '');
if( $input=~/^:(\w+)!.+?:(.+)$/i )
{ ($name, $text) = ($1, $2); }
print "Name: $name\nText: $text\n";