[29765] in Perl-Users-Digest
Perl-Users Digest, Issue: 1008 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 6 18:09:41 2007
Date: Tue, 6 Nov 2007 15:09:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 6 Nov 2007 Volume: 11 Number: 1008
Today's topics:
Platypus - Current Working Directory - write file <youcontrol@hispeed.ch>
@array has no value from cgi.pm STDIN <webmaster@know.spam.customfitonline.com>
Re: @array has no value from cgi.pm STDIN <1usa@llenroc.ude.invalid>
Re: Get length of returned array without storing? <nobull67@gmail.com>
How do I use a variable-width positive look behind asse <jl_post@hotmail.com>
How Does One Implement a Timer in Perl? kvnsmnsn@hotmail.com
Re: How Does One Implement a Timer in Perl? xhoster@gmail.com
Re: How Does One Implement a Timer in Perl? <jurgenex@hotmail.com>
Re: How to handle fields names in comma separated file? <ben@morrow.me.uk>
Re: Platypus - Current Working Directory - write file <youcontrol@hispeed.ch>
Re: Platypus - Current Working Directory - write file <glennj@ncf.ca>
Re: Platypus - Current Working Directory - write file <youcontrol@hispeed.ch>
Re: Platypus - Current Working Directory - write file <glex_no-spam@qwest-spam-no.invalid>
Re: Platypus - Current Working Directory - write file <youcontrol@hispeed.ch>
Re: Platypus - Current Working Directory - write file <ben@morrow.me.uk>
Re: Replace without back reference <jimsgibson@gmail.com>
Re: set IE enviroment to use HTTP::Proxy module? <ben@morrow.me.uk>
Re: set IE enviroment to use HTTP::Proxy module? <glex_no-spam@qwest-spam-no.invalid>
Re: set IE enviroment to use HTTP::Proxy module? w.c.humann@arcor.de
Re: set IE enviroment to use HTTP::Proxy module? <spamtrap@dot-app.org>
Re: Simple question to experts <jimsgibson@gmail.com>
Taint mode slows down LWP::UserAgent->get significantly <azwemmer@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 6 Nov 2007 19:19:58 +0100
From: Markus S <youcontrol@hispeed.ch>
Subject: Platypus - Current Working Directory - write file
Message-Id: <4730b04f@news1-rz-ap.ethz.ch>
On 2007-11-06 1:25 pm, Markus S said:
> On 2007-11-06 5:02, Larry said:
>
>> > in Platypus window:
>>
>> > Script Type: Shell
>> > Script Path: your start.sh
>>
>> > the followin is the start.sh file:
>>
>> > #!/bin/sh
>> > #
>> > # start.sh
>>
>> > cd $1/Contents/Resources/
>>
>> > /usr/bin/perl $1/Contents/Resources/my_perl_script.pl
>
> Thanks. Unfortunately, the $1 contains a space in my case and the cd
> command therefore fails. I would know how to deal with this within Perl
> but not on the Shell level.
Hi Larry,
Well, I've tried to run the whole thing on a path without spaces. There
it works, but I have to manually place the Perl script in
Contents/Resources after building the app. I also have tell it to write
the output file three directory levels higher. All doable but a bit
cumbersome. Biggest problem however, is that the app does no longer
seem to be droppable, or at least the 'drops' don't reach the Perl
script. I guess the Shell script would have to hand them over. Knowing
very little about about Shell scripts, I am at a loss here.
I've also tried to use sed to escape the spaces but am more less just
fumbling around:
p = "$1/Contents/Resources/";
q = $(echo $p | sed 's/ /\\ /g')
cd $q;
------------------------------
Date: Tue, 06 Nov 2007 20:54:24 GMT
From: "Robert Valcourt" <webmaster@know.spam.customfitonline.com>
Subject: @array has no value from cgi.pm STDIN
Message-Id: <4w4Yi.184258$1y4.103141@pd7urf2no>
Greetings,
I have a Website form with 4 checkboxes each with the same name but
different values. I use cgi.pm to build an @array from these values but it
doesn't seem to be working. The script:
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
my @services = param('service');
foreach my $choice (@services) {
$choice = "$choice<br>";
}
print "Content-type: text/html \n\n";
print @services;
exit;
The result is an empty page. The page should have up to 4 lines of text with
the values of the checkboxes as seen below.
Here is what is odd, I use this same exact script for another website that
is on the same server, accesses the same perl library and it works just
fine. The only difference if the site that works has a doctype of 4.01
transitional and is .html and the one that doesn't work doctype xhtml 1.0
and is .php. I wonder if this is an issue. The form:
<form method="post" action="request-quote.pl">
<input type="checkbox" name="service" value="Outdoor Recreation">
<input type="checkbox" name="service" value="Education Programming">
<input type="checkbox" name="service" value="Retreat">
<input type="checkbox" name="service" value="Accommodations">
</form>
I "could" name each of the checkboxes different but i'd like to make this
work if possible as does my other script. For what it is worth I have also
tried:
use CGI;
my $q = new CGI;
my @services = $q->param('service');
As described from post:
http://groups.google.ca/group/comp.lang.perl.misc/browse_thread/thread/c6fdb07ada986311/75482491e9e6a6fa
CGI.pm is supposed to handle this right? I'm really scratching my head on
this one and its starting to hurt.
TIA
Robert
------------------------------
Date: Tue, 06 Nov 2007 21:05:56 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: @array has no value from cgi.pm STDIN
Message-Id: <Xns99E0A3C2C8D5Easu1cornelledu@127.0.0.1>
"Robert Valcourt" <webmaster@know.spam.customfitonline.com> wrote in
news:4w4Yi.184258$1y4.103141@pd7urf2no:
> I have a Website form with 4 checkboxes each with the same name but
> different values. I use cgi.pm to build an @array from these values
I don't know what cgi.pm is. However, there is a CGI.pm module. Case
matters.
> but it doesn't seem to be working. The script:
>
> #!/usr/bin/perl
> use CGI qw(:standard);
> use CGI::Carp qw(fatalsToBrowser);
> use strict;
use warnings;
> my @services = param('service');
>
> foreach my $choice (@services) {
> $choice = "$choice<br>";
> }
>
> print "Content-type: text/html \n\n";
> print @services;
You are lying about the content.
...
> works just fine. The only difference if the site that works has a
> doctype of 4.01 transitional and is .html and the one that doesn't
> work doctype xhtml 1.0 and is .php. I wonder if this is an issue. The
So, you are moving from a loosy-goosy doctype to a strict one and you
wonder why the strict doctype does not work when you don't conform to
its, ahem, strict requirements?
Try the following:
#!/usr/bin/perl
use strict;
use warnings;
use CGI; # qw( -debug ) # for testing using the command line
my $cgi = CGI->new;
my @services = $cgi->param('service');
print $cgi->start_html(),
$cgi->ul( $cgi->li( \@services ) ),
$cgi->end_html();
__END__
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Tue, 06 Nov 2007 17:49:58 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Get length of returned array without storing?
Message-Id: <1194371398.256906.303930@o80g2000hse.googlegroups.com>
On Nov 2, 1:39 am, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "BaB" == Big and Blue <N...@dsl.pipex.com> writes:
> BaB> I was assuming it doesn't and won't.
> that is also a poor assumption.
Actually, I think it's more likely to be affected use of English.
I suspect BaB wrote "I was assuming it doesn't" when he meant "I
wasn't assuming it does".
This is rather an unfortunately common affectation in the general
population.
------------------------------
Date: Tue, 06 Nov 2007 14:52:14 -0800
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: How do I use a variable-width positive look behind assertion?
Message-Id: <1194389534.282536.278580@o80g2000hse.googlegroups.com>
Hi,
I have some code that splits text right after a line containing
only a single dot. To do this, I used a positive look-behind
assertion, like in this sample script:
#!/usr/bin/perl
use strict;
use warnings;
my $text = <<"END_OF_TEXT";
Line 1
.
Line 2
.
Line 3
END_OF_TEXT
# Use a positive look-behind assertion
# to split $text right after a dot on
# a line by itself:
my @elements = split m/(?<=\n\.\n)/, $text;
use Data::Dumper;
print Dumper @elements;
__END__
Running this program gives the output:
$VAR1 = 'Line 1
.
';
$VAR2 = 'Line 2
.
';
$VAR3 = 'Line 3
';
Basically, $text was split into three elements, which each element
(except for the last) ending with a dot (on a line by itself).
This positive look-behind assertion works great if the dot is truly
on a line by itself. But it there was leading and/or trailing
whitespace with the dot (on a line by itself), the regular expression
m/(?<=\n\.\n)/ won't split after that line.
What I'm looking for is to do something like this:
#!/usr/bin/perl
use strict;
use warnings;
my $text = <<"END_OF_TEXT";
Line 1
.
Line 2
.
Line 3
END_OF_TEXT
# Use a positive look-behind assertion
# to split $text right after a dot on
# a line by itself:
my @elements = split m/(?<=\n\s*\.\s*\n)/, $text;
use Data::Dumper;
print Dumper @elements;
__END__
(Note that the "." lines now have leading whitespace and that
split()'s regular expression has now changed to m/(?<=\n\s*\.\s*
\n)/ .)
The regular expression in split() now checks for leading and
trailing whitespace, but when I try to run the script I get the
following error:
Variable length lookbehind not implemented in regex; marked by <--
HERE in m/(?<=\n\s*\.\s*\n) <-- HERE / at splitOnDot.pl line 17.
This error isn't surprising, as "perldoc perlre" says that a
positive look-behind assertion "works only for fixed-width look-
behind."
Therein lies my problem. I want to split right after a line that
contains exactly one dot and an arbitrary amount of whitespace, but I
don't think I can do it with split() using a simple regular
expression. Or can I?
I have developed a work-around, and that's to replace the split()
line with the following lines:
my @elements = split m/(\n\s*\.\s*\n)/, $text;
{
my @newElements;
push @newElements, shift(@elements) . shift(@elements)
while @elements > 1;
push @newElements, @elements;
@elements = @newElements;
}
Because of the parentheses in split()'s regular expression (notice it
no longer uses a look-behind assertion), the line containing a dot
(and whitespace) on a line by itself is now split out into a separate
element. The block of code that follows it is just "reassembling" the
elements so that the "dot-line" is now attached to the previous
element.
This method does what I want, but it feels like a hack. Is there a
better way to do what I want?
Thanks in advance for any advice.
-- Jean-Luc
------------------------------
Date: Tue, 06 Nov 2007 09:51:05 -0800
From: kvnsmnsn@hotmail.com
Subject: How Does One Implement a Timer in Perl?
Message-Id: <1194371465.172543.212450@e9g2000prf.googlegroups.com>
I need to write a Perl script for one server that sends off messages
on a socket and then waits for a response. If a response comes in
five seconds, it uses that response for its output. If a response
_doesn't_ come in five seconds, it uses another algorithm to generate
its output.
Is there a way in Perl to do this, to suspend execution until five
seconds have past or until a response has come, whichever happens
first? Any feedback on this would be greatly appreciated.
---Kevin Simonson
"You'll never get to heaven, or even to LA,
if you don't believe there's a way."
from _Why Not_
------------------------------
Date: 06 Nov 2007 17:56:56 GMT
From: xhoster@gmail.com
Subject: Re: How Does One Implement a Timer in Perl?
Message-Id: <20071106125658.237$nc@newsreader.com>
kvnsmnsn@hotmail.com wrote:
> I need to write a Perl script for one server that sends off messages
> on a socket and then waits for a response. If a response comes in
> five seconds, it uses that response for its output. If a response
> _doesn't_ come in five seconds, it uses another algorithm to generate
> its output.
>
> Is there a way in Perl to do this, to suspend execution until five
> seconds have past or until a response has come, whichever happens
> first? Any feedback on this would be greatly appreciated.
IO::Select
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Tue, 06 Nov 2007 18:24:43 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How Does One Implement a Timer in Perl?
Message-Id: <Lj2Yi.5798$Cc.5667@trndny09>
kvnsmnsn@hotmail.com wrote:
> I need to write a Perl script for one server that sends off messages
> on a socket and then waits for a response. If a response comes in
> five seconds, it uses that response for its output. If a response
> _doesn't_ come in five seconds, it uses another algorithm to generate
> its output.
Your Question is Asked Frequently. See
perldoc -q timeout
"How do I timeout a slow event?"
jue
------------------------------
Date: Tue, 6 Nov 2007 15:46:13 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to handle fields names in comma separated file?
Message-Id: <5re605-thh1.ln1@osiris.mauzo.dyndns.org>
Quoth Ben Morrow <ben@morrow.me.uk>:
>
> If you want access by name, you can use a hash:
>
> my @fields = qw/NAME ADDRESS CITY STATE/;
> my %fields = split /,/; # or something better
Sorry, stupid thinko; that should read
my @fields = qw/NAME ADDRESS CITY STATE/;
my %fields;
@fields{@fields} = split /,/; # or something better
Note that @fields{} actually refers to %fields, not to @fields. There is
some sense there somewhere, but it's quite hard to find... :)
Ben
------------------------------
Date: Tue, 6 Nov 2007 19:29:07 +0100
From: Markus S <youcontrol@hispeed.ch>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <4730b274@news1-rz-ap.ethz.ch>
On 2007-11-06 1:25 pm, Markus S said:
> On 2007-11-06 5:02, Larry said:
>
>> > in Platypus window:
>>
>> > Script Type: Shell
>> > Script Path: your start.sh
>>
>> > the followin is the start.sh file:
>>
>> > #!/bin/sh
>> > #
>> > # start.sh
>>
>> > cd $1/Contents/Resources/
>>
>> > /usr/bin/perl $1/Contents/Resources/my_perl_script.pl
>
> Thanks. Unfortunately, the $1 contains a space in my case and the cd
> command therefore fails. I would know how to deal with this within Perl
> but not on the Shell level.
Hi Larry,
Well, I've tried to run the whole thing on a path without spaces. There
it works, but I have to manually place the Perl script in
Contents/Resources after building the app. I also have tell it to write
the output file three directory levels higher. All doable but a bit
cumbersome. Biggest problem however, is that the app does no longer
seem to be droppable, or at least the 'drops' don't reach the Perl
script. I guess the Shell script would have to hand them over. Knowing
very little about about Shell scripts, I am at a loss here.
I've also tried to use sed to escape the spaces but am more less just
fumbling around:
p = "$1/Contents/Resources/";
q = $(echo $p | sed 's/ /\\ /g')
cd $q;
(Sorry for posting again, but I missed the 'Re' and my message opened a
new thread instead of being appended to this one.)
------------------------------
Date: 6 Nov 2007 18:39:09 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <slrnfj1d6e.qkn.glennj@smeagol.ncf.ca>
At 2007-11-06 01:29PM, "Markus S" wrote:
> On 2007-11-06 1:25 pm, Markus S said:
>
> > On 2007-11-06 5:02, Larry said:
> >
> >> > in Platypus window:
> >>
> >> > Script Type: Shell
> >> > Script Path: your start.sh
> >>
> >> > the followin is the start.sh file:
> >>
> >> > #!/bin/sh
> >> > #
> >> > # start.sh
> >>
> >> > cd $1/Contents/Resources/
> >>
> >> > /usr/bin/perl $1/Contents/Resources/my_perl_script.pl
> >
> > Thanks. Unfortunately, the $1 contains a space in my case and the cd
> > command therefore fails. I would know how to deal with this within Perl
> > but not on the Shell level.
[...]
> script. I guess the Shell script would have to hand them over. Knowing
> very little about about Shell scripts, I am at a loss here.
>
> I've also tried to use sed to escape the spaces but am more less just
> fumbling around:
>
> p = "$1/Contents/Resources/";
> q = $(echo $p | sed 's/ /\\ /g')
> cd $q;
A couple of notes about shell syntax:
1. you cannot put spaces arount the '=' in a variable assignment:
"a=b" not "a = b"
2. always double quote variables when substituting, unless you know when
not to:
cd "$q"
So,
#!/bin/sh
#
# start.sh
cd "$1/Contents/Resources/"
/usr/bin/perl "$1/Contents/Resources/my_perl_script.pl"
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Tue, 6 Nov 2007 20:04:36 +0100
From: Markus S <youcontrol@hispeed.ch>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <4730bac5@news1-rz-ap.ethz.ch>
On 2007-11-06 1:29 pm, Glenn Jackman said:
> #!/bin/sh
> #
> # start.sh
> cd "$1/Contents/Resources/"
> /usr/bin/perl "$1/Contents/Resources/my_perl_script.pl"
That solves the 'spaces' issue, thanks. I was sure, I had tried that
out before, don't know what went wrong then.
That leaves the issue of the platypus app not being dropable.
------------------------------
Date: Tue, 06 Nov 2007 13:15:07 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <4730bd3b$0$509$815e3792@news.qwest.net>
Markus S wrote:
> On 2007-11-06 1:29 pm, Glenn Jackman said:
>
>> #!/bin/sh
>> #
>> # start.sh
>> cd "$1/Contents/Resources/"
>> /usr/bin/perl "$1/Contents/Resources/my_perl_script.pl"
or
cd "$1/Contents/Resources/" && /usr/bin/perl ./my_perl_script.pl
> That leaves the issue of the platypus app not being dropable.
Whatever that means.
------------------------------
Date: Tue, 6 Nov 2007 20:30:16 +0100
From: Markus S <youcontrol@hispeed.ch>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <4730c0ca@news1-rz-ap.ethz.ch>
On 2007-11-06 8.15 pm, J. Gleixner said:
>> That leaves the issue of the platypus app not being dropable.
> Whatever that means.
Platypus (http://www.sveinbjorn.org/platypus ) let's you create .apps
on Mac OS X out of all sorts of scripts. I've used it successfully to
create an app onto which files can be dropped to run/open them with the
app. Unfortunately, writing files did not seem to work with these
Platypus-created apps, probably because the Perl script embedded in the
app did not know the working directory.
Larry showed me a solution to work around this issue, the app created
by Platypus now writes files but does not react to files dropped on it
anymore.
------------------------------
Date: Tue, 6 Nov 2007 22:40:44 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Platypus - Current Working Directory - write file
Message-Id: <c47705-hlj1.ln1@osiris.mauzo.dyndns.org>
Quoth Markus S <youcontrol@hispeed.ch>:
> On 2007-11-06 1:29 pm, Glenn Jackman said:
>
> > #!/bin/sh
> > #
> > # start.sh
> > cd "$1/Contents/Resources/"
> > /usr/bin/perl "$1/Contents/Resources/my_perl_script.pl"
>
> That solves the 'spaces' issue, thanks. I was sure, I had tried that
> out before, don't know what went wrong then.
>
> That leaves the issue of the platypus app not being dropable.
Assuming the dropped items come in as $2, $3, ..., you want
#!/bin/sh
topdir="$1"
shift
cd "$topdir/Contents/Resources"
/usr/bin/perl "$topdir/Contents/Resources/my_perl_script" "$@"
but this is a shell issue, not a Perl one. Have you tried simply using a
Perl script instead of shell? That is, instead of start.sh, have
start.pl
#!/usr/bin/perl
use File::Spec::Functions;
my $dir = catdir $ARGV[0], qw/Contents Resources/;
chdir $dir;
# presumably the dropped items are now in $ARGV[1]... ?
Ben
------------------------------
Date: Tue, 06 Nov 2007 10:34:45 -0800
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: Replace without back reference
Message-Id: <061120071034457490%jimsgibson@gmail.com>
In article <1194347924.889686.170950@t8g2000prg.googlegroups.com>, howa
<howachen@gmail.com> wrote:
> Consider the code below:
>
> ############
> $str = "ABCD";
>
> $str =~ s/(C)D/$1F/g;
>
> print $str;
>
> ############
>
>
> It replace `ABCD` to `ABCF`, using back reference.
>
> I need to do these kind of operations a lot, seems using back
> reference is slow
>
> Any better or faster approach for the above example?
Here is another way:
while( (my $pos = index($str,'CD') ) > -1 ) {
substr($str,($pos+1),1,'F');
}
I don't know if that is faster, so I have to benchmark it:
#!/usr/local/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);
my $str = 'ABCDEFGHCDIJCXKLCDMNOPC';
my $s;
cmpthese( 1_000_000, {
'Backreference' => sub{ ($s = $str) =~ s/(C)D/$1F/g; },
'Lookbehind' => sub{ ($s = $str) =~ s/(?<=C)D/F/g; },
'Index/Substr' => sub{
$s = $str;
while( (my $pos = index($s,'CD') ) > -1 ) {
substr($s,($pos+1),1,'F');
}
}
});
Rate Backreference Lookbehind Index/Substr
Backreference 262467/s -- -47% -58%
Lookbehind 495050/s 89% -- -20%
Index/Substr 621118/s 137% 25% --
Platform: perl v5.8.8 on Mac OS 10.5.
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Tue, 6 Nov 2007 15:49:22 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: set IE enviroment to use HTTP::Proxy module?
Message-Id: <21f605-thh1.ln1@osiris.mauzo.dyndns.org>
Quoth "jck11" <jck11@msr.pchome.com.tw>:
> Hi all,
> I just want to test a perl module HTTP::Porxy.
> I find the example code below and run it in the windows command line.
> But I don't know how to set my browser(IE) to use the proxy.
This has nothing to do with Perl. I would suggest you read the Help
files for IE.
Ben
(I'm sure it's in there *somewhere*...)
------------------------------
Date: Tue, 06 Nov 2007 09:54:45 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: set IE enviroment to use HTTP::Proxy module?
Message-Id: <47308e45$0$497$815e3792@news.qwest.net>
jck11 wrote:
> Hi all,
> I just want to test a perl module HTTP::Porxy.
> I find the example code below and run it in the windows command line.
> But I don't know how to set my browser(IE) to use the proxy.
> Can somebody help me?
Ahhhh.. ya think it might be an option in IE?
------------------------------
Date: Tue, 06 Nov 2007 08:43:34 -0800
From: w.c.humann@arcor.de
Subject: Re: set IE enviroment to use HTTP::Proxy module?
Message-Id: <1194367414.370527.205660@57g2000hsv.googlegroups.com>
On Nov 6, 2:21 pm, "jck11" <jc...@msr.pchome.com.tw> wrote:
> Hi all,
> I just want to test a perl module HTTP::Porxy.
> I find the example code below and run it in the windows command line.
> But I don't know how to set my browser(IE) to use the proxy.
Indeed more an IE question than a perl question. Anyway:
Tools -> Internet Options... -> Connections -> LAN Settings... ->
Proxy Server
------------------------------
Date: Tue, 06 Nov 2007 16:13:22 -0500
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: set IE enviroment to use HTTP::Proxy module?
Message-Id: <m1wssv2i31.fsf@dot-app.org>
"jck11" <jck11@msr.pchome.com.tw> writes:
> I just want to test a perl module HTTP::Porxy.
HTTP::Porxy? Does that have something to do with cartoon pigs? :-)
> I find the example code below and run it in the windows command line.
> But I don't know how to set my browser(IE) to use the proxy.
The same way you'd set that if you were using IE manually, or running it
from some other language.
What might that be? You'll need to ask in an IE group.
sherm--
--
WV News, Blogging, and Discussion: http://wv-www.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Tue, 06 Nov 2007 09:30:21 -0800
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: Simple question to experts
Message-Id: <061120070930215696%jimsgibson@gmail.com>
In article <slrnfivinv.v0j.tadmc@tadmc30.sbcglobal.net>, Tad McClellan
<tadmc@seesig.invalid> wrote:
> Paul Lalli <mritty@gmail.com> wrote:
>
> > It's my birthday,
>
>
> Those are good for you.
>
> A federally funded study has shown that people with the most birthdays...
>
> ...
>
> ...
>
> ... live the longest.
But did they find a causal relationship, or was it more of a
statistical correlation?
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Tue, 06 Nov 2007 10:44:45 -0800
From: arz <azwemmer@gmail.com>
Subject: Taint mode slows down LWP::UserAgent->get significantly
Message-Id: <1194374685.804936.90130@y42g2000hsy.googlegroups.com>
Hi,
I've got a CGI script that retrieves an approx. 8MB file from a server
and does some checking on it before returning a result. I download the
file using LWP::UserAgent. I have taint-checking enabled by default to
verify CGI script arguments, but it appears taint-checking
significantly slows down my $ua->get(). With -T it takes about 8-9
seconds before $ua->get() returns. Without -T, it's about wire-speed.
Are taint-mode checks being done on all the HTTP data as it comes in?
Thanks!
Arnoud.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1008
***************************************
