Home > Archive > PERL CGI Beginners > December 2004 > LWP:SImple, getstore
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
LWP:SImple, getstore
|
|
|
| Dear,
I am using getstore it works if I do
getstore($trim, "$root$fn");
if $root = "./members/Bucci/";
but not when $root = $session{dir} which equates to "./members/Bucci/"
when I print $root$fn I get the same output "./members/Bucci/72203068"
What the $#@ is wrong.
TIA, sample code bellow.
FM. :(
$fn = bob.jpg
$root = $rt;
print (getstore($trim, "$root$fn"));
print "($root$fn)<br>";
$root = "./members/Bucci/" ;
print (getstore($trim, "$root$fn"));
print "($root$fn)<br>";
output:
500(./members/Bucci/72203068)
200(./members/Bucci/72203068)
500(./members/Bucci/831715265)
200(./members/Bucci/831715265)
500(./members/Bucci/833845210)
200(./members/Bucci/833845210)
500(./members/Bucci/924423568)
200(./members/Bucci/924423568)
500(./members/Bucci/70_2.JPG)
200(./members/Bucci/70_2.JPG)
| |
|
| Perl's Taint Mode
#!/usr/bin/perl -wT
It's been awhile since i used the -T mode. I un tainted my variable and now
it works.
"FxM" <mastronardif@comcast.net> wrote in message
news:492dnREMrO2CyF_cRVn-2g@comcast.com...
> Dear,
> I am using getstore it works if I do
> getstore($trim, "$root$fn");
> if $root = "./members/Bucci/";
> but not when $root = $session{dir} which equates to "./members/Bucci/"
> when I print $root$fn I get the same output "./members/Bucci/72203068"
> What the $#@ is wrong.
> TIA, sample code bellow.
> FM. :(
>
>
> $fn = bob.jpg
> $root = $rt;
>
> print (getstore($trim, "$root$fn"));
> print "($root$fn)<br>";
>
> $root = "./members/Bucci/" ;
> print (getstore($trim, "$root$fn"));
> print "($root$fn)<br>";
>
> output:
> 500(./members/Bucci/72203068)
> 200(./members/Bucci/72203068)
> 500(./members/Bucci/831715265)
> 200(./members/Bucci/831715265)
> 500(./members/Bucci/833845210)
> 200(./members/Bucci/833845210)
> 500(./members/Bucci/924423568)
> 200(./members/Bucci/924423568)
> 500(./members/Bucci/70_2.JPG)
> 200(./members/Bucci/70_2.JPG)
>
>
|
|
|
|
|