[ic] help pulling info from URL

[interchange-users@icdevgroup.org (Stefan Hornburg)]

On Fri, 1 Nov 2002 09:36:50 -0800
"Grant" <listbox@email.com> wrote:

> 
> >> >On Thu, 31 Oct 2002 21:08:54 -0500
> >> >Duncan McGreggor <oubiwann@myrealbox.com> wrote:
> >> >
> >> >> Well, one of perl's mottos is that there's more than one way
> >to do it...
> >> >> here's one elementary way:
> >> >>
> >> >> $last_url = '[data session last_url]';
> >> >> @parts = split("/", $last_url);
> >> >> # position 0 should be nothing
> >> >> # position 1 should be "category"
> >> >> # position 2 should be "posters"
> >> >> # position 3 should be "p1.html"
> >> >> $pstn2 = $parts[2];
> >> >> $pstn3 = $parts[3];
> >> >
> >> >And here a shorter way to do it (also untested):
> >> >
> >> >($pstn2, $pstn3) = (split("/", $Session->{last_url})[2,3];
> >> >
> >> >Ciao
> >> >        Racke
> >>
> >> I set this up:
> >>
> >> [perl] ($pstn2, $pstn3) = (split("/", $Session->{last_url})[2,3]; [/perl]
> >> [scratch pstn2], [scratch pstn3]
> >>
> >> but it returns nothing.  What am I screwing up?
> >
> >First, one paren is missing.
> >
> >Second, no program in the world can read your thoughts. Why should
> >the Perl variables
> >automagically appear in the scratch namespace ? Try:
> >
> >[perl] ($Scratch->{pstn2}, $Scratch->{$pstn3}) = (split("/",
> >$Session->{last_url}))[2,3]; [/perl]

Time for you to go to Perl school to detect errors in my untested code <g>.

[perl] ($Scratch->{pstn2}, $Scratch->{pstn3}) = (split(/\//,
$Session->{last_url}))[2,3]; [/perl]

Bye
   Racke