> my $q = new CGI;
> ##
> # Get the input
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>
> # Split the name-value pairs
> @pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs) {
>($name, $value) = split(/=/, $pair);
>
>$value =~ tr/+/ /;
>$value =~
Malcolm Debono wrote:
> Hello,
>
> Help me please.
> I have got so far with trying to build this script (little knowledge) and
> have got a problem trying to read from a form
>
> http://yes/cgi-bin/metacheck/read_html5.cgi"; method="POST">
> the field on the form being maxlength="50" size="50">
That expression *does* work.
Expand that to this:
if ($line =~ /^\*/) { print "Match! $line\n" }
else { print "No match! $line\n" }
When the problem isn't where you think it is, it's where you think it
isn't.
--- John
At 02:12 PM 7/9/02 , Peter Eisengrein wrote:
I am
trying to match the '*' c
It works for me. I suspect that your $line variable is not what you think
it is.
$line = "*line";
print "Match! $line\n" if $line =~ /^\*/;
Tim
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveS
I'm not sure exactly why yours isn't working. But I'm working on a script
right now and I need to do the same. I have all lines stored in
@MountedVobs and used the following to extract only those that begin with
"*".
my @MountedVobs = grep /^\*/, @AllVobs;
Dan Abner (x2654)
St Jude Medical,
Actually, you should use Via::Com to get at CSPAN.
--- John
At 02:00 PM 7/9/02 , Cutts III, James H. wrote:
>I've figured out (again) how to add new repositories for my PPM. Is it possible to
>use PPM to address CSPAN and what would be the URL that I should use?
>
>Thanks.
>
>-
Hello,
Help me please.
I have got so far with trying to build this script (little knowledge) and
have got a problem trying to read from a form
http://yes/cgi-bin/metacheck/read_html5.cgi"; method="POST">
the field on the form being
When I run the script I get :-
CGI Error
The specified CGI ap
Title: how to match '*'
I am trying to match the '*' character and am having trouble getting anything. Basically, I have some lines that I want to extract only if they start with a '*'.
Seems easy enough.
if ($line =~ /^\*/)
{
print "Match! $line\n";
}
No deal. Tried faking it out
