Re: [PERL] parsing af string!

[Ole Tange <sslug@sslug>]

On Sat, 3 Jun 2000, Kim Schulz wrote:

> 
> 
> 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) {

Hvis du ikke vil have kommentarer, behøver du ikke /x

>     $besked($1)=$2;
             ^  ^
>     $besked($3)=$4;
             ^  ^
>     $besked('indhold')=$5;
             ^         ^ 
Er det en ny syntax?

>     use URI::Escape; # til url encoding
>     $beskeden = url_encode("$besked('indhold')");
                                     ^         ^
>     $sms-url =
          ^
Hvad er url? Og hvorfor skal den trækkes fra $sms?

> "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?? 

perl -w


/Ole