I keep getting this message over and over again!!
Adam
----- Original Message -----
From: "Jim Kelly" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, October 30, 2001 4:51 PM
Subject: Re: [sambar] substitute not working (2)
> Dave & Melvyn
>
> Thank you both for the feedback, I knew that PERL had been around long
> enough that this should be a simple operation..... just didn't know where
to
> look. As for that WHITE SPACE I'm learning.
>
>
> ----- Original Message -----
> From: "Dave Goode" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Monday, October 29, 2001 2:56 AM
> Subject: RE: [sambar] substitute not working (2)
>
>
> > What you're missing is that you're reinventing the wheel. Use CGI.pm -
> it'll
> > handle parsing into name-value pairs, escaping and unescaping
flawlessly.
> > Look at this example:
> >
> > ------------------------------------------------
> > #! your_path_to_perl
> >
> > use strict;
> > use warnings;
> > use CGI;
> >
> > my $cgi = new CGI;
> > my $searchfield = $cgi->param('searchfield');
> >
> > print $searchfield;
> > ------------------------------------------------
> >
> > and then use it with this URL (change to your server name!) to simulate
a
> > form submission:
> >
> > http://foo.com/cgi-bin/test.cgi?searchfield=Lydia%27s
> >
> > and you'll see Lydia's - exactly what you want with a minimum of code.
> > Exactly what you want to see.
> >
> > Dave
> >
> >
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf
Of
> > > Jim Kelly
> > > Sent: Sunday, October 28, 2001 9:26 PM
> > > To: sambar
> > > Subject: [sambar] substitute not working (2)
> > >
> > >
> > > I found this code and it works correctly.......$value =~ s
> > > /%(..)/pack ("C",
> > > hex ($1))/eg;
> > >
> > > That means something is wrong inside my [ ] and [ ] any ideas?
> > >
> > >
> > > ******************************************************
> > > I'm entering this code as written in a book, but can't get it to work.
> The
> > > splits work, the translate works but the substitute does not..........
> The
> > > data returned keeps the special characters IE %27. I have
experimented
> > > using the /d (for decimal) and entering 0-9 for matches but neither
> works.
> > > WHAT AM I MISSING?
> > >
> > > returned data =
> > > Lydia%27s burritos are the greatest%21 The guys at work loved them and
> it
> > > was a real treat when she would prepare them for a team
> > > lunch.%0D%0A%0D%0A%0D%0A%0D%0AJim
> > >
> > >
> > > sub readPostInput(){
> > > my (%searchField, $buffer, $pair, @pairs);
> > > if ($ENV{ 'REQUEST_METHOD'} eq 'POST') {
> > > read(STDIN, $buffer, $ENV{ 'CONTENT_LENGTH'});
> > > @pairs = split(/&/, $buffer);
> > > foreach $pair (@pairs){
> > > ($name, $value) = split(/=/, $pair);
> > > $value =~ tr/+/ /;
> > > $value =~ s /%([\dA-Fa-f] [\dA-Fa-f])/pack ("C", hex
($1))/eg;
> > > $name =~ tr/+/ /;
> > > $name =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
> > > $searchField{ $name} = $value;
> > > }
> > > }
> > > return (%searchField);
> > > }
> > >
> > >
> > > ------------------------------------------------------------------
> > > --------------
> > > For unsubscription of this list send an email to
> > > [EMAIL PROTECTED] with email
> > > data containing unsubscribe emailadd sambar
> > >
> >
> >
> >
>
> --------------------------------------------------------------------------
> ------
> > For unsubscription of this list send an email to [EMAIL PROTECTED]
with
> email
> > data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
> --------------------------------------------------------------------------
------
> For unsubscription of this list send an email to [EMAIL PROTECTED] with
email
> data containing unsubscribe emailadd sambar
>
>
--------------------------------------------------------------------------------
For unsubscription of this list send an email to [EMAIL PROTECTED] with email
data containing unsubscribe emailadd sambar
