Re: [PERL] parsing af string!

[Ole Tange <sslug@sslug>]

On Sat, 3 Jun 2000, Kim Schulz wrote:

> hejsa
> jeg får følgende streng ind:
> "sms to 123456 from kim dette er en besked af variabel længde...."
> Dette skal jeg have delt op i følgende (såfrem linien starter med sms)
> $number = '123456';
> $from = 'kim';
> $besked = 'dette er en besked af wariabel længde....';
>
> Der kan være byttet om på from og to så den skal bare tage det efter
> ordet.
> Nogen der kan finde ud af en simpel parsin af dette ???? 

/sms\s+   # sms
 (\S+)\s+ # from eller to
 (\S+)\s+ # afs eller modt
 (\S+)\s+ # to eller from 
 (\S+)\s+ # modt eller afs
 (\S.*)   # besked af var længde
/x;       # xtended syntax = ignorer whitespace i regexp

$besked{$1}=$2;
$besked{$3}=$4;
$besked{'indhold'}=$5;

Brug herefter: $besked{'to'}, $besked{'from'} og $besked{'indhold'}

> Linien kommer ind via irc og ligger i variablen $message.
> jeg skal have puttet den ind i en linie ala
> system('lynx
> http://www.kampsax.dtu.dk/groups/irc/sms.php3?nummer=$number&fra=$from&besked=$besked');
> 
> hvordan url parser jeg $besked så der kommer %20 i stedet for mellemrum
> osv.? 

Der er en url-encode i enten libwww eller CGI.pm
Kik på CPAN.

/Ole