Hey Steven,
Try this:
Then you can pull it from the %ENV hash.
Shawn
> There is one thing left, and I've tried Omi's suggestion, but I'm not sure
> how to capture the name/value pair or parameter in my Perl program.
>
> How do I capture:
>
>
> -or-
Exactly why not include any params after the include? I do it on several
sites right now... You can't include the query string on an exec SSI, but
the include virt works just fine.
Shawn
- Original Message -
From: "Omi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTEC
g files are printed
> next to eachother, only separated by a blank space, like this:
>
> Testfile1 Testfile2 ...
>
>
> The essence of the code is as follows :
>
> > $testvalue=$value[0];
> > $word = `grep -inlsh $testvalue *`;
> > print "The string $testval
ly ISBN:1565922573 and can be had at bookpool.com for a very
reasonable
price...
Shawn
>
> Teddy,
> My dear email address is [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
nd entire array from one CGI Perl program to another CGI
> Perl program?
>
> How would the second program "parse out" the array variables from the
> non-array scalar variables?
Are you planning on having them go from one cgi script to another via the HTML form,
or are you
going t
Hey Chaoz,
#!/usr/bin/perl
use strict;
open(FILE,');
close(FILE);
for(@text) {
/(d+)$/; # Match only the numbers at the end of the string
# and store them in '$1' to be printed out on the
# next line followed by a new line character
print $1,"\
); it tells me this IS a regex... hence the '//'s. So
how exactly is this any less overkill (powerful) than a regex?
shawn
- Original Message -
From: "Scot Robnett" <[EMAIL PROTECTED]>
To: "ChaoZ Inferno" <[EMAIL PROTECTED]>; <[EMAIL PROTECTE
rd, $text[$x+2];
push @colour, $text[$x+3];
}
for(@name) { print if($_); }
exit;
It is still way too early, so if you catch any errors, let me know David (or anyone
else for that matter) :-)
shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Basic 893263JHGjhgjhggjghgjh
> Referer: http://www.yahoo.com/";;
>
> I would like to retrieve the line of Proxy Authorization: Basic and
> truncate it to only:-
To get just the Auth...
(my $var2=$var)=~s/^.*Proxy-Authorization: Basic //ms;
$var2=~s/\n.*$//ms;
This is unetested...
Hello Octavian,
You need to say return(0) or return(1), not return = 0 or 1.
Shawn
- Original Message -
From: "Octavian Rasnita" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, June 23, 2002 1:33 AM
Subject: return =1
> Hi all,
>
> If I p
> why aren't you using:
>
> use CGI::Carp 'fatalsToBrowser';
This is VERY limited, and doesn't even catch some signals... The best solution is to
build a custom SIG handler that makes reference to the caller function as it is dieing
(can be used very nicely w
the last line of the file...) You are iterating over
every line, and constantly replacing $title with each pass...
Maybe add this below the $title=m/...:
last if($title ne $content);
Shawn
- Original Message -
From: "John Pitchko" <[EMAIL PROTECTED]>
To: <[EMAIL PROTE
s2)=((stat($ARGV[0]))[7],'');
for(;;){
do {
select(undef,undef,undef,0.25);
$s2=(stat($ARGV[0]))[7];
} until($s1!=$s2);
$s1=$s2;
open(F,"<$ARGV[0]") or die "Can't open $ARGV[0]: $!\n";
my $row;
while() {
$row++;
print "$row: $_"
s a File::Tail module.
>
> But a CGI script isn't designed to be long-running like this. The
> web server will eventually time out the request and kill your script.
I don't think he was running from the web server, but will the shell time out in the
same fashion?
Shawn
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
arsh, I guess you could get an antibiotic instead.
Norton has seemed to work quite well for the past several years.
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
s to start appearing on non-MS platforms.
Shawn
- Original Message -
From: "Camilo Gonzalez" <[EMAIL PROTECTED]>
To: "'Shawn'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, July 18, 2002 9:37 AM
Subject: RE: Viruses
> Antibiot
project to write a
cgi/linux/perl/mysql/barcode data-center inventory application and need
guidance quick.
Can someone point me in the right direction (book or website) to learn the
internal workings of packages, classes, objects, etc...
Thanks much!
Shawn
--
To unsubscribe, e-mail: [EMAIL PROT
cable). As you know, double quotes end the href
string.
Question being, how to include a double quote into the href string(s)?
Thanks,
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
-Original Message-
From: shawn [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 10, 2001 10:40 AM
To: perlcgi
Subject:
I'm stuck...
-using CGI.pm
I've created an "edit" cgi-forms-page to edit values/items in a database.
What I want to happen is to have the for
1);
It took another pair of eye (co-worker) to raise the question about the
padded 2digit number.
Hope this may help someone else also.
Thanks,
-Shawn
-Original Message-
From: Moon, John [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 10, 2001 11:39 AM
To: 'shawn'; perlcg
I need some help, I am running this code to load values into the
$ArrayofCompareHex [$g] array. Currently it is not working. The
$comparevalue gets the correct value but the value is not past into the
array. Here is a portion of my code. Any ideas
230 my $g =0;
231 for ($g = 0; $g < $m
I am working on some perl cgi code that works on an apache webserver but
I get the following error when I run it on a boa webserver
[08/Sep/2004:23:41:09 +] cgi_header: unable to find LFLF.
I have tried the following change
From:
print "content-type: text/html\n\n";
changed t
I am attempting to write an interface to a SQL database where the user
will be able to scan in serial numbers and such and the database will
keep track of it. Unfortunately, the bar code scanners that will be
used always add {W at the beginning of what they scan, and a newline at
the end. I h
stData
contents have the string ';keywords=' in place of any space character.
For example, if the user was calling my script and passing 'hello
world', $PostData would contain 'hello;keywords=world'.
Thanks,
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
on eq 'search';
...
}else{
# page for no action
...
}
--
Just my 0.0002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_
--
To unsubscribe, e-mail: [
e with grep does not work?
Is this the fastest way?
Considering the amount of work this does outside of Perl, no. A shell
script would be faster. (But, of course, anything written in Perl is
automatically better than everything else ;)
--
Just my 0.0002 million dollars worth,
--- Sha
h for '$<' and '$>'.
--
Just my 0.0002 million dollars worth,
--- Shawn
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is available at http://perldoc.perl.org/
* Always write your code as though you aren't going to see it
* f
If you are smart enough to subscribe you should be smart enough to unsubscribe.
Just because you are lazy, don't fill our inboxes.
Here's some help...
http://lists.cpan.org/showlist.cgi?name=beginners-cgi
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comman
Would you mind sharing the answer? I would assume it would have to be
some sort of Javascript, am I wrong?
Thanks,
Shawn
Shawn Michael Hinchy
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<h
needed.
Thanks,
Shawn
----
Shawn Michael Hinchy
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Quoting David Dorward <[EMAIL PROTECTED]>:
On Mon, Sep 25, 2006 at 10:53:15AM -0400, Shawn Hinchy wrote:
Everything works fine in Mozilla/Firefox but when I try to use IE 6,
it doesn't seem to call the script when the submit button is pressed,
kind of like it knows it is already
x27;;
None of these worked. I read the perldoc for each of these functions
and 'do' looks like the best candidate but I cannot get it to work. I
am sure it is something small I am overlooking.
Any suggestions?
Thanks,
Shawn
Shawn Michael Hinchy
[EMAIL PROTEC
Quoting Ovid <[EMAIL PROTECTED]>:
--- Shawn Hinchy <[EMAIL PROTECTED]> wrote:
Hello all,
I am writing many cgi scripts and need to have the same variables
included in each of them. I was going to put all these 'global'
variables in a separate file that could then be
That's funny, I just read about this today... See Tim Bunce's
tutorial from the Perl 3.0 Conference. I think it will answer some of
your questions...
Actually I couldn't find it from 99 but here is one from 2004.
http://search.cpan.org/src/TIMB/DBI_AdvancedTalk_2004/i
ee;
print "Answer is : $ans.";
I run this but apparently 'my ($array);' doesn't really instantiate
the variables.
Is there any way to do this?
Thanks,
Shawn
Shawn Michael Hinchy
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Country ne 'United States') {
No, I guess not. Ignore me...
It looks to me like you were right, you want to enter the error block
when the selected country does not match both cases, not whether you
don't match one or the other - that'll always be true.
Shawn
And, is
Quoting [EMAIL PROTECTED]:
Shawn Hinchy wrote:
Quoting Jonathan Mangin <[EMAIL PROTECTED]>:
- Original Message -
From: "Jonathan Mangin" <[EMAIL PROTECTED]>
To: ; <[EMAIL PROTECTED]>
Sent: Wednesday, May 02, 2007 9:51 AM
Subject: Re: Odd select box
the
way I have set up my functions.
Are there any other options that I have missed? Suggestions?
Thanks,
Shawn
Shawn Michael Hinchy
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Quoting Tyler Gee <[EMAIL PROTECTED]>:
On 6/24/07, Shawn Hinchy <[EMAIL PROTECTED]> wrote:
Hello all,
I am getting to the point where I need to start thinking about doing
pagination for search results.
I did some searches and it looks like there are some pagination
modules,
between the cgi-bin and html folders.
Can anyone recommend one of the other linux development toolsets?
Should I be using Kate or KDevelop?
Thanks!
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
transfer to the remote
server? Bruce, you said that you use svn/rsync, is it overkill to use
rsync to upload a file that I am modifying every couple minutes to the
server for testing?
Thank you for the help,
Shawn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e
Can someone help on this one?
I created the following code to search for extention .PBD files in the
htdocs/PBD folder while using the apache webserver. However it will only
search in the cgi-bin folder for these files. What am I doing wrong?
#!/perl/bin/perl
use warnings;
use strict;
use CGI
Hey,
I am trying to create a stand alone (static) program in Perl (no shared
libraries). I have tried perlcc -L /lib perl.pl but am not have any
luck. This will create an executable but you still need the shared
libraries. I have also typing in the path of each library (ie perlcc -L
/lib/libp
ot;"
Replace with the module full name, e.g: perl -MStorable -e ""
If the module is not loaded, you will get an error message.
--
__END__
Just my 0.0002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them, we learn by doing them.
On Fri, 2006-28-04 at 14:45 -0400, Mr. Shawn H. Corey wrote:
> Both Storable and Data::Dumper are part of the standard Perl install.
> You should already have them on your machine. To check if a module is
> already loaded:
>
> perl -M -e ""
>
> Replace with
o decide exactly what efficient really means.
--
__END__
Just my 0.0002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldo
't use mod_perl in years; someone else will have to answer this.
--
__END__
Just my 0.0002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
* Perl tutorials at http://perlmonks.org/?node=Tut
character 0x2D.
English version:
$string =~ s/[^-0-9A-Za-z_]//g;
Non-English version:
use locale;
use POSIX;
$string =~ s/[^-[:alnum:]]//g;
See:
perldoc perlretut
perldoc perlre
perldoc locale
perldoc POSIX
--
__END__
Just my 0.0002 million dollars worth,
--- Shawn
&q
uch a handler and even if i did, i don't know how to
> call it into my existing CGI code in place of $|=1.
>
> Suggestions are highly appreciated.
>
> Thanks
>
$| sets autoflush for the selected filehandle, default is STDOUT. You
need only set it once, before any output.
See
Mr. Shawn H. Corey wrote:
> Ibrahim Dawud wrote:
>
>>Hello,
>>
>>The following code works great using normal perl but does not work
>>under mod_perl:
>>
Oops, I overlooked the fact that you are using mod_perl. I haven't use
it for years but I seem t
anonymous hash and populates it with the contents of %hash. It
makes a copy of %hash. Of course, if %hash has any references, they will be
copied but not their contents.
--
Just my 0.0002 million dollars worth,
Shawn
"For the things we have to learn before we can do them, we lea
code would help.
--
Just my 0.0002 million dollars worth,
Shawn
"For the things we have to learn before we can do them, we learn by doing them."
Aristotle
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
52 matches
Mail list logo
