Re: [PERL] parsing af string!

[Kim Schulz <sslug@sslug>]

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

Nej dårlig vane da jeg skrev det ind i mailen!! Det er self. med {}

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

Det var bl.a. en del af fejlen! 
 
> > "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

har jeg på, men den giver ikke helt det jeg skulle bruge! 
-- 
-
 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]