Re: [PERL] parsing af string!

[Kim Schulz <sslug@sslug>]

Ole Tange skriver:
> 
> 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'}

jeg har nu følgende:

if ($message =~ /sms\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S.*)/x) {
    $besked($1)=$2;
    $besked($3)=$4;
    $besked('indhold')=$5;
    use URI::Escape; # til url encoding
    $beskeden = url_encode("$besked('indhold')");
    $sms-url =
"http://www.kampsax.dtu.dk/groups/irc/sms.php3?nummer=$besked{'to'}&fra=$besked{'from'}&besked=$beskeden";
    system('lynx -dump $sms-url');
return "sending...";
}

Den kan desværre ikke klare den der $sms-url, og jeg ved ikke lige hvad
jeg skal gøre.
any ideas?? 
-- 
-
 MVH
   Kim schulz
========================================================================
|                 ADICT Kode Slave - www.adict.net                     |
|            Dansk Linux Link Database - www.LinuXia.dk                |
========================================================================
              Sleep is just a cheap substitute for coffee     
     Fast, reliable, cheap - pick any two - [Microsoft in a Nutshell]