[28340] in Perl-Users-Digest
Perl-Users Digest, Issue: 9704 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 8 14:05:39 2006
Date: Fri, 8 Sep 2006 11:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 8 Sep 2006 Volume: 10 Number: 9704
Today's topics:
$a and $b "reserved" for sort() <mritty@gmail.com>
Re: beginners question <syscjm@gwu.edu>
Re: beginners question <nobull67@gmail.com>
Re: beginners question <glennj@ncf.ca>
Re: Help using a proxy <john@castleamber.com>
Re: Help using a proxy <scobloke2@infotop.co.uk>
How system() & output works mingclee1@gmail.com
Re: How system() & output works <nobull67@gmail.com>
Re: How system() & output works <someone@example.com>
Maximum number of sockets <angusma@attglobal.net>
Re: Non-uniform split <nobull67@gmail.com>
Re: Pattern Matching and skipping <someone@example.com>
Perl Code Coverage Larry_A_Starr@yahoo.com
perl script for apache mod_rewrite <ahaspel@gmail.com>
Re: perl script for apache mod_rewrite <mritty@gmail.com>
Re: perl script for apache mod_rewrite rajeev.networld@gmail.com
Re: perl script for apache mod_rewrite <mritty@gmail.com>
Re: perl script for apache mod_rewrite <nobull67@gmail.com>
Re: perl script for apache mod_rewrite <nobull67@gmail.com>
Re: perl script for apache mod_rewrite <ahaspel@gmail.com>
Re: perl script for apache mod_rewrite <mritty@gmail.com>
Re: perl script for apache mod_rewrite <mritty@gmail.com>
rand() with less decimals. <olaf_el_blanco@gmail.es>
Re: rand() with less decimals. <markrat@gmail.com>
Re: rand() with less decimals. <someone@example.com>
Re: User authentication for a website rajeev.networld@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Sep 2006 11:03:37 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: $a and $b "reserved" for sort()
Message-Id: <1157738617.576424.317050@m73g2000cwd.googlegroups.com>
John W. Krahn wrote:
> Olaf wrote:
> > $a=rand(10);
>
> Don't use $a, it is reserved for the sort function.
I confess that I've never understood this warning. Can someone please
explain to me the danger of using $a or $b outside of a sort
subroutine? Is it just a visual indicator to the programmer that we're
worried about, or is there an actual danger of data being affected?
$ perl -le'
$a = "Hello";
my $b = "World";
my @vals = sort { length $a <=> length $b} qw(a bc alpha beta gamma);
print "@vals";
print "$a $b";
'
a bc beta alpha gamma
Hello World
Doesn't look to me like $a is being affected by sort. Presumably,
sort() localizes the global value, and never touches the lexical at
all. So what's the issue?
Thanks,
Paul Lalli
------------------------------
Date: Fri, 08 Sep 2006 12:04:22 -0400
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: beginners question
Message-Id: <12g3547tib5nga5@corp.supernews.com>
Abigail wrote:
> Alpha (nospam@diespammer.com) wrote on MMMMDCCLVI September MCMXCIII in
> <URL:news:450105a7$0$790$5a62ac22@per-qv1-newsreader-01.iinet.net.au>:
> -- Okay guys, there's a bit of misunderstanding in my part here. What I
> -- really want is to match a string like this:
> -- $str = "whatever Test bla bhlah 123123!!@#!@# Test whoever 123aojiaso
> -- Test i don't want to see this part in the end";
> --
> -- the result will be "whatever Test bla bhlah 123123!!@#!@# Test whoever
> -- 123aojiaso "
> --
> -- so the regexp will strip off the last "Test" and whatever that comes
> -- after that, on a string that doesn't have a pattern except that "Test"
> -- will appear at least once in the document.
> --
> -- If it only appears once, like here
> -- $str = "whatever bla bla bla bla bla Test 123combination of strings and
> -- !@#!@#",
> -- it will give me
> -- "whatever bla bla bla bla bla";
> --
> -- in weird situation:
> -- $str = "Test whatever 12345";
> -- it will just return empty string
> -- and on $str = "Test Test Test whatever 12345";
> -- it will return "Test Test ".
> --
> -- hope that makes it clear now, and thanks for the help ;)
>
>
> Untested:
>
> s/Test[^T]*(?:T(?!est)[^T]*)*//;
>
>
> Abigail
Seems to be making it unnecessarily complex. You can do this
without any backtracking at all, and keeping the RE dead
simple (but note, untested):
$findstring = "Test"; # or "String", or whatever you're looking for
if ($str =~ /(.*)$findstring/) {
$str = $1; }
else {
print "We couldn't find \"$findstring\" in \"$str\"!\n"; }
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 8 Sep 2006 09:54:44 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: beginners question
Message-Id: <1157734484.751745.274980@d34g2000cwd.googlegroups.com>
Xicheng Jia wrote:
> $string =~ s/(?!.* String).*//;
Did you benchamark that?
------------------------------
Date: 8 Sep 2006 17:14:22 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: beginners question
Message-Id: <slrneg397e.86l.glennj@smeagol.ncf.ca>
At 2006-09-07 11:36PM, "Ala Qumsieh" wrote:
> Alpha wrote:
> > Hi guys, n00bs here.
> >
> > I was playing around with regexp and got stuck with this:
> > $string ="String 12345 String 67890 String whatever here";
> > basically i want to strip off the last "String" and whatever that comes
> > after that.
> > so $string will become "String 12345 String 67890 ";
>
> I don't think any of the given solutions is really what you're looking
> for. Perhaps this is?
>
> $string =~ s/(.*)String.*/$1/;
Another couple of options:
my ($keepthis) = $string =~ /(.*)String/;
$string =~ s/String(?!.*String).*//;
--
Glenn Jackman
Ulterior Designer
------------------------------
Date: 8 Sep 2006 15:53:59 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Help using a proxy
Message-Id: <Xns98386EDFCA3ADcastleamber@130.133.1.4>
"Shan" <Shani718@gmail.com> wrote:
> I did read perldoc lwp::useragent
>
> $ua->proxy(['http', 'ftp'], 'http://proxy.sn.no:8001/');
>
> I still can't get it to work.
Define "not work". Error message? Warning?
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 08 Sep 2006 17:01:53 +0100
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: Help using a proxy
Message-Id: <mdSdncEfBN1pDpzYRVnyiA@bt.com>
Shan wrote:
> I did read perldoc lwp::useragent
Good, you could have saved me having to guess by saying what
documentation you consulted (unless you did earlier and I missed it?)
>
> $ua->proxy(['http', 'ftp'], 'http://proxy.sn.no:8001/');
>
> I still can't get it to work.
>
It would be helpful if quote some context (relevant parts of prior
discussion) and give the actual error messages.
Earlier you said
>> I tried doing
>> $ua->proxy(['http','gopher','ftp','ssl'], 'localhost:8118');
>> But this does not work. I get a message saying
>> 501 Protocol scheme 'localhost' is not supported
Which was good because you showed some of *your* code and gave the text
of the error message. This time you did neither.
Did you notice there is a significant difference between perldoc's
$ua->proxy(['http','gopher','ftp','ssl'], 'localhost:8118');
and your
$ua->proxy(['http', 'ftp'], 'http://proxy.sn.no:8001/');
let's break that down
$ua Your user agent object
->proxy(...) A method that tells the user agent to use a proxy
['http' ...] A list of *protocols* to be proxied
The next part is a URL in the documentation, this particular URL has
three parts: a protocol (http://), a hostname (proxy.sn.no) and a port
number (:8001).
You have only two parts of the URL, a hostname(localhost) and a port
(:8118). You omitted the first of the three parts of the URL.
If this is the cause of your problem, please try to learn how to read
the perl documentation carefully and diligently, I find it works well
most of the time for me.
If this isn't the cause of your problem then I commend this document to
you: http://www.catb.org/~esr/faqs/smart-questions.html
------------------------------
Date: 8 Sep 2006 10:00:34 -0700
From: mingclee1@gmail.com
Subject: How system() & output works
Message-Id: <1157734834.153748.14560@i3g2000cwc.googlegroups.com>
Hello,
I am running into a weird problem:
environment: unix solaris 9
I am running the following perl from command line:
>test.pl
test.pl:
#!/usr/local/bin/perl
use strict;
print "begin process";
system("ming2.pl");
print "after calling the processn";
ming2.pl:
#!/usr/local/bin/perl
use strict;
print "in the child process 1";
sleep(5);
print "in the child process 2";
The output is:
in the child process 1 | in the child process 2 | begin process | after
calling the process
I used | to make the output easier to read, they don't really exist in
the output.
It seemed to have executed the child process before anything in the
parent process has been executed.
However if I added \n to print "begin process": print "begin process\n"
in test.pl, then the output:
begin process
in the child process 1in the child process 2after calling the process
which shows that the parent process waits for the child process to
return. This should be the right behavior for system() command.
So, why the weird behavior? Any advise is highly appreciated!
Thanks
------------------------------
Date: 8 Sep 2006 10:15:16 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: How system() & output works
Message-Id: <1157735716.014346.84020@d34g2000cwd.googlegroups.com>
mingclee1@gmail.com wrote:
> I am running into a weird problem:
[ snip output buffering problem ]
See FAQ: "How do I flush/unbuffer an output filehandle? Why must I do
this?"
------------------------------
Date: Fri, 08 Sep 2006 17:57:01 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: How system() & output works
Message-Id: <N9iMg.184$Lb5.134@edtnps89>
mingclee1@gmail.com wrote:
> Hello,
>
> I am running into a weird problem:
>
> environment: unix solaris 9
>
> I am running the following perl from command line:
>
>>test.pl
>
> test.pl:
> #!/usr/local/bin/perl
> use strict;
> print "begin process";
> system("ming2.pl");
> print "after calling the processn";
>
> ming2.pl:
> #!/usr/local/bin/perl
> use strict;
> print "in the child process 1";
> sleep(5);
> print "in the child process 2";
>
>
> The output is:
> in the child process 1 | in the child process 2 | begin process | after
> calling the process
>
> I used | to make the output easier to read, they don't really exist in
> the output.
>
> It seemed to have executed the child process before anything in the
> parent process has been executed.
>
> However if I added \n to print "begin process": print "begin process\n"
> in test.pl, then the output:
> begin process
> in the child process 1in the child process 2after calling the process
>
> which shows that the parent process waits for the child process to
> return. This should be the right behavior for system() command.
>
> So, why the weird behavior? Any advise is highly appreciated!
perldoc -q "How do I flush/unbuffer an output filehandle"
John
--
use Perl;
program
fulfillment
------------------------------
Date: Fri, 8 Sep 2006 13:55:54 -0400
From: "A Ma" <angusma@attglobal.net>
Subject: Maximum number of sockets
Message-Id: <4501aead$1@kcnews01>
I am using ActiveState Perl under Windows. The default maximum number of
sockets that I can open is 64. I found the parameter PERL_FD_SETSIZE in
c:\perl\lib\core\sys\socket.h. I changed that number but it did not take
effect. Is there something else I need to change? Do I need to recompile
anything?
------------------------------
Date: 8 Sep 2006 09:53:17 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: Non-uniform split
Message-Id: <1157734397.473537.287870@i3g2000cwc.googlegroups.com>
anno4000@radom.zrz.tu-berlin.de wrote:
> if ( my @cols = /$re/ ) {
> push @data, { map { $_ => shift @cols } qw( a b c d e) };
> }
TMTOWTDI, when optomising for clarity I prefer a slice over using map.
Unfortunately this which means one can't avoid naming the hash without
the code getting real ugly:
if ( my @cols = /$re/ ) {
push @data, \my %record;
@record{ qw( a b c d e) } = @cols;
}
------------------------------
Date: Fri, 08 Sep 2006 17:33:26 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Pattern Matching and skipping
Message-Id: <GPhMg.132$KA6.131@clgrps12>
MattJ83 wrote:
>>If you post a SHORT AND COMPLETE PROGRAM THAT WE CAN RUN, then
>>we can surely help you.
>>
>>Try doing that for once.
>
> ok, sorry.
>
> #!/usr/central/bin/perl
> use strict;
> #use warnings;
> use DBI;
>
> my @filenames= </home/username/logs/*.log>;
> foreach my $filename (@filenames) {
> open my $LOG, '<', $filename or die "can't open $filename: $!\n";
>
> while (<$LOG>) {
> if (/updates table/) {
> my $info = $_;
> {
> while (<$LOG>) {
> if (/elapsed/) {
> my $elapsed1 = $_;
> {
> while (<$LOG>) {
> if (/conflicting|FASTSEARCH/) {
> my $fast = $_;
> {
> while (<$LOG>) {
> if (/elapsed/) {
> my $elapsed2 = $_;
> {
You don't need all that nesting:
for my $filename ( </home/username/logs/*.log> ) {
open my $LOG, '<', $filename or die "can't open $filename: $!\n";
my ( $info, $elapsed1, $fast, $elapsed2 );
while ( <$LOG> ) {
chomp;
$info = $_ if /updates table/;
$elapsed1 = $_ if defined $info and /elapsed/;
$fast = $_ if defined $elapsed1 and /conflicting|FASTSEARCH/;
if ( defined $fast and /elapsed/ ) {
$elapsed2 = $_;
> close($LOG) ;
>
> my $dbh = DBI ->connect("dbi:Oracle:SERVER", "DATABASE", "PASSWORD")
> or die "couldn't connect to database: $DBI::errstr\n";
>
> $dbh->do("insert into LOGS values ('$filename', '$info', '$elapsed1',
> '$fast', '$elapsed2')")
> or die ("inserting data failure: $!\n");
>
> $dbh->disconnect;
}
}
}
John
--
use Perl;
program
fulfillment
------------------------------
Date: 8 Sep 2006 09:45:55 -0700
From: Larry_A_Starr@yahoo.com
Subject: Perl Code Coverage
Message-Id: <1157733955.228601.162540@e3g2000cwe.googlegroups.com>
Hello Everyone,
I am trying to run code coverage on some of my perl code.
I have been able to get a .cvp file from running "perl -d:Coverage
test1.pl"
but I am unable to locate information on 'coverperl', or find the
coverperl program on my machine.
Does anyone know where to find information on coverperl?
Does anyone know the defualt install location of coverperl?
------------------------------
Date: 8 Sep 2006 08:06:12 -0700
From: "Aaron Haspel" <ahaspel@gmail.com>
Subject: perl script for apache mod_rewrite
Message-Id: <1157727972.519336.142380@m79g2000cwm.googlegroups.com>
Greetings perl hackers:
Not being a perl programmer myself, I'm trying to get a simple perl
script to work for url rewriting and I'm having a bit of trouble. My
script looks like this:
#!/usr/bin/perl
$|=1; # Turn off buffering
while ( <STDIN> )
{
local $postid = $_;
++postid;
print "/?p=$postid\n";
}
Simple enough. Just takes old urls, converts them to numbers, adds 1,
and returns a string. Runs fine from the command line. But when I try
to use it in a RewriteRule in apache, it behaves strangely. The first
time it executes, it returns null. The next time it executes, it
returns what one would have expected from the first run, the third time
from the second, and so forth. So, for example, if I run it three times
I get the following:
arg: /archives/00000590.html return: null
arg: /archives/00000577.html return: /?p=591
arg: /archives/00000490.html return: /?p=578
I thought about posting this to apache, but the script is executing
when it's supposed to, just weirdly, so I thought it was more of a perl
problem. Any help is most appreciated.
Regards,
Aaron Haspel
------------------------------
Date: 8 Sep 2006 08:10:10 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157728210.848829.297720@d34g2000cwd.googlegroups.com>
Aaron Haspel wrote:
> Greetings perl hackers:
>
> Not being a perl programmer myself,
<snip>
> Runs fine from the command line. But when I try
> to use it in a RewriteRule in apache, it behaves strangely.
<snip>
> I thought about posting this to apache, but the script is executing
> when it's supposed to, just weirdly, so I thought it was more of a perl
> problem.
Think again, I'd suggest. You've already proven that when fed correct
data, it works as it's supposed to. Therefore, the Perl is fine. The
input, however, may not be. Talk to the Apache people about how the
data is being fed to the program.
Paul Lalli
------------------------------
Date: 8 Sep 2006 09:25:11 -0700
From: rajeev.networld@gmail.com
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157732711.819698.118580@p79g2000cwp.googlegroups.com>
I am wonder why dont u try using "my" variable instead of "local".
------------------------------
Date: 8 Sep 2006 09:56:01 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157734561.673540.213210@h48g2000cwc.googlegroups.com>
rajeev.networld@gmail.com wrote:
> I am wonder why dont u try using "my" variable instead of "local".
I wonder why you think that would matter.
Paul Lalli
------------------------------
Date: 8 Sep 2006 10:01:22 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157734882.402366.206890@m73g2000cwd.googlegroups.com>
rajeev.networld@gmail.com wrote:
> I am wonder why dont u try using "my" variable instead of "local".
I wonder why you think this is relevant.
Granted there's no reason for the OP to be using local() where he could
use my() but this will not account for his problem.
------------------------------
Date: 8 Sep 2006 10:04:49 -0700
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157735089.075267.271240@h48g2000cwc.googlegroups.com>
Aaron Haspel wrote:
[ invalid code ]
> Runs fine from the command line.
So what does your actual code look like?
------------------------------
Date: 8 Sep 2006 10:18:42 -0700
From: "Aaron Haspel" <ahaspel@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157735922.671568.322680@m79g2000cwm.googlegroups.com>
Copied directly, here it is:
#!/usr/bin/perl
$|=1; # Turn off buffering
while (<STDIN>)
{
local $postid = $_;
++$postid;
print "/?p=$postid\n";
}
I apologize if the previous listing was wrong, and also for the bad
style that other commenters pointed out.
AH
Brian McCauley wrote:
> Aaron Haspel wrote:
>
> [ invalid code ]
>
> > Runs fine from the command line.
>
> So what does your actual code look like?
------------------------------
Date: 8 Sep 2006 10:22:02 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157736122.467118.17500@m79g2000cwm.googlegroups.com>
Brian McCauley wrote:
> Aaron Haspel wrote:
>
> [ invalid code ]
>
> > Runs fine from the command line.
>
> So what does your actual code look like?
I may be missing something, but would you care to explain what was
"invalid" about the code the OP posted?
Paul Lalli
------------------------------
Date: 8 Sep 2006 10:47:05 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: perl script for apache mod_rewrite
Message-Id: <1157737625.846354.319070@p79g2000cwp.googlegroups.com>
Paul Lalli wrote:
> Brian McCauley wrote:
> > Aaron Haspel wrote:
> >
> > [ invalid code ]
> >
> > > Runs fine from the command line.
> >
> > So what does your actual code look like?
>
> I may be missing something, but would you care to explain what was
> "invalid" about the code the OP posted?
D'oh. And now I see it. Missing sigil. Sorry, Brian, I should have
attempted to run it before asserting it was not invalid....
Paul Lalli
------------------------------
Date: Fri, 08 Sep 2006 17:58:57 +0200
From: Olaf <olaf_el_blanco@gmail.es>
Subject: rand() with less decimals.
Message-Id: <eds404$8qi$1@cormoran.emeteo.local>
Hello...
$a=rand(10);
I need that $a have just two decimals and not 14!
Thank you.
(My perl is correctly compiled)
------------------------------
Date: 8 Sep 2006 09:13:48 -0700
From: "MarkRat" <markrat@gmail.com>
Subject: Re: rand() with less decimals.
Message-Id: <1157732028.591552.292280@e3g2000cwe.googlegroups.com>
Olaf wrote:
> Hello...
>
> $a=rand(10);
> I need that $a have just two decimals and not 14!
perldoc -f sprintf
my $a = sprintf "%.2f", rand(10);
------------------------------
Date: Fri, 08 Sep 2006 17:53:26 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: rand() with less decimals.
Message-Id: <q6iMg.135$KA6.9@clgrps12>
Olaf wrote:
> Hello...
>
> $a=rand(10);
Don't use $a, it is reserved for the sort function.
> I need that $a have just two decimals and not 14!
( my $x = rand 10 ) =~ s/(?<=\.\d\d)\d+//;
my $x = int( rand( 10 ) * 100 ) / 100;
John
--
use Perl;
program
fulfillment
------------------------------
Date: 8 Sep 2006 09:30:57 -0700
From: rajeev.networld@gmail.com
Subject: Re: User authentication for a website
Message-Id: <1157733057.724181.149440@i3g2000cwc.googlegroups.com>
use cookies in your code.
sujay.tukai@gmail.com wrote:
> I have an account in a website. Whenever i need to read my inbox from
> that website. I have to login with my name and password.
>
> I need a solution for this i.e.,
> i need a perl program which
>
> (1)uses the password and username to login
> (2) read the inbox
>
> the server has a https connection...and sorry to say no pop3 access is
> there....
> i tried lwp posting of username and password. it worked to a certain
> extent. that is i got in.
>
> but again for reading the inbox using the lwp get method i get this
> message "Your session has expired, please login again!"
>
> plz help me reg. the steps i should use????
------------------------------
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 V10 Issue 9704
***************************************
