Gossamer Forum: General: Perl Programming: STDIN

Sep 14, 2001, 12:35 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 12:35 AM

Post #1 of 11

Shortcut

STDIN

Ok, this is getting me quite annoyed! Shouldnt the following code put the values of all the inputted info (wether via POST or GET) into variables within @input?

It just doesnt seem to like it when using POST Frown

if ($ENV{REQUEST_METHOD} eq "GET") {

$forminput = $ENV{'QUERY_STRING'};
@input = split(/&/, $forminput);

} else {

read(STDIN, $forminput, $ENV{'CONTENT_LENGTH'});
@input = split(/&/, $forminput);

}

Thanks

Andy

Andy (mod)
andy@ultranerds.co.uk

Sep 14, 2001, 3:28 AM

Paul

Veteran (19537 posts)

Sep 14, 2001, 3:28 AM

Post #2 of 11

Shortcut

Re: [youradds] STDIN In reply to

Ugh, forget all that archaic parsing code just use CGI.pm

Sep 14, 2001, 4:13 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 4:13 AM

Post #3 of 11

Shortcut

Re: [PaulWilson] STDIN In reply to

I'd love to. Would that code work though? Tongue

Andy

Andy (mod)
andy@ultranerds.co.uk

Sep 14, 2001, 5:00 AM

Paul

Veteran (19537 posts)

Sep 14, 2001, 5:00 AM

Post #4 of 11

Shortcut

Re: [youradds] STDIN In reply to

Well surely that is irrelevant if you use CGI.pm

The code to parse forms can be found all over the Internet. If you want to find some that works Im sure you could do so with a quick search on Google.

Sep 14, 2001, 5:07 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 5:07 AM

Post #5 of 11

Shortcut

Re: [PaulWilson] STDIN In reply to

Well, in some scripts they use;

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

But the code I use should do almost that, or shouldnt it? All I want to do is put the content of the query string into an array, andf then i can split them up further when I want to.

I do want to use CGI.pm, but I cant see how it would work for me!

I need all of the info put into that array, so i can use it later in the script!. The way the CGI.pm (standard) module seems to work is to put them with just the result of the name, and not the name of what was submitted! If you know a way around this, then please let me know!

Thanks

Andy

Andy

Andy (mod)
andy@ultranerds.co.uk

Sep 14, 2001, 5:11 AM

Paul

Veteran (19537 posts)

Sep 14, 2001, 5:11 AM

Post #6 of 11

Shortcut

Re: [youradds] STDIN In reply to

Quote:

I do want to use CGI.pm, but I cant see how it would work for me!

So I'm guessing you just want some code?

---------------------------------------

use CGI qw(:standard);

my $lazy = new CGI;
my @wink = ();

foreach ($lazy->param()) {
push @wink, $lazy->param($_);
}

There, all input stored in @wink.

Quote:

The way the CGI.pm (standard) module seems to work is to put them with just the result of the name, and not the name of what was submitted! If you know a way around this, then please let me know!

Sorry ya lost me.

Last edited by:

PaulWilson: Sep 14, 2001, 5:12 AM

Sep 14, 2001, 5:21 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 5:21 AM

Post #7 of 11

Shortcut

Re: [PaulWilson] STDIN In reply to

What would that push into the array, just the value of the field, or the fields name too?

Basically what I need to do is have the array split later on, to be displayed like;

FieldName = Value

I am assuming the way you are doing it just pushes the values of the submitted data into the array, or does it actually put the name of the input, and its value?

Sorry if I lost you earlier Sly

Andy

Andy (mod)
andy@ultranerds.co.uk

Sep 14, 2001, 5:30 AM

Paul

Veteran (19537 posts)

Sep 14, 2001, 5:30 AM

Post #8 of 11

Shortcut

Re: [youradds] STDIN In reply to

Stored in earch array element with this code will be name=value

Code:
use CGI qw(:standard);  

my $lazy = new CGI;  
my @wink = ();  

foreach ($lazy->param()) {  
     push @wink, "$_=$lazy->param($_)";  
}

Sep 14, 2001, 5:39 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 5:39 AM

Post #9 of 11

Shortcut

Re: [PaulWilson] STDIN In reply to

Thats great. Wasnt sure if you could do that with CGI.pm. Mind you, you can do alomst anything with Perl, should have guessed you could do something as simple as this with it....lol Smile

Thanks

Andy

Andy (mod)
andy@ultranerds.co.uk

Sep 14, 2001, 8:16 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 8:16 AM

Post #10 of 11

Shortcut

Re: [PaulWilson] STDIN In reply to

Slight prob with that code! It sends it in the form of;

email=CGI

recipient=CGI

subject=CGI

Any ideas?

Andy

Andy (mod)
andy@ultranerds.co.uk

Sep 14, 2001, 9:16 AM

Andy

Veteran / Moderator (18441 posts)

Sep 14, 2001, 9:16 AM

Post #11 of 11

Shortcut

Re: [youradds] STDIN In reply to

Oh well, managed to fix it Smile

I ended up using;

Code:
foreach my $key ($listings->param()) 
    { 
    my $value = $listings->param($key); 
    push @input, "$key=$value";  
    }

Thanks though, you got me on the right lines :)

Andy

Andy (mod)
andy@ultranerds.co.uk