[28988] in Perl-Users-Digest
Perl-Users Digest, Issue: 232 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 16 14:09:55 2007
Date: Fri, 16 Mar 2007 11:09: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, 16 Mar 2007 Volume: 11 Number: 232
Today's topics:
Re: anyone could explain this to me? <tzz@lifelogs.com>
Re: Comparing filenames in different directories <jurgenex@hotmail.com>
Re: Comparing filenames in different directories <xicheng@gmail.com>
Re: Comparing filenames in different directories <xicheng@gmail.com>
cpan upgrade gone bad <ihccab@gmail.com>
Re: cpan upgrade gone bad <ihccab@gmail.com>
Re: Mastering Perl <justin.0703@purestblue.com>
Re: new CGI::Session creates a new session every visit. xhoster@gmail.com
Re: new CGI::Session creates a new session every visit. <paduille.4060.mumia.w+nospam@earthlink.net>
Re: new CGI::Session creates a new session every visit. <kingskippus@gmail.com>
Re: new CGI::Session creates a new session every visit. <kingskippus@gmail.com>
Re: new CGI::Session creates a new session every visit. <spamtrap@dot-app.org>
Re: output confusion <paduille.4060.mumia.w+nospam@earthlink.net>
Re: Scope and Arrays <hjp-usenet2@hjp.at>
sockschain begiorgio@gmail.com
Re: spawn process to run parallel <glex_no-spam@qwest-spam-no.invalid>
Re: Urgent requirement in perl for a US based CMM Level <tzz@lifelogs.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 16 Mar 2007 12:24:56 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: anyone could explain this to me?
Message-Id: <g693b45dulj.fsf@dhcp-65-162.kendall.corp.akamai.com>
On Thu, 15 Mar 2007 19:36:12 +0100 "Peter J. Holzer" <hjp-usenet2@hjp.at> wrote:
>> So basically it's an unnecessarily complex way to grab the environment
>> resulting from /etc/Tivoli/setup_env.sh
PJH> While I would have written that as:
PJH> for (`. /etc/Tivoli/setup_env.sh; env`) {
PJH> $ENV{$1} = $2 if (/^([^=]+)=(.*)$/);
PJH> }
PJH> that's not less complex, just more readable (IMHO). Can you think of a
PJH> less complex way to do that? (assuming that /etc/Tivoli/setup_env.sh may
PJH> contain non-trivial /bin/sh code)
No, your approach is what I had in mind. Obviously, if we could
execute in the context of setup_env.sh, that would be best, but
perhaps the script shouldn't have the environment for the entire run.
Your approach has one loop, and it's very readable. The original had
unnecessary grep, do, and chop. That's what I meant by "unnecessarily
complex."
Ted
------------------------------
Date: Fri, 16 Mar 2007 15:58:55 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Comparing filenames in different directories
Message-Id: <39zKh.11$zx.2@trndny05>
Deepu wrote:
>>> FILENAME_2.a
>>> FILENAME_3.a
>>> FILENAME_4.a
>>
>>> DIR2:
>>
>>> FILENAME_1.x
>>> FILENAME_2.x
>>> FILENAME_3.x
>>> FILENAME_5.x
>>
>>> I need to 'diff' files with same name
>>
>> None of those file have the same name...
>
> I am trying to compare file with name "FILENAME_1" in DIR1 and
> "FILENAME_1" in DIR2 after ignoring .a & .x and then continue the same
> for other files.
perldoc File::Basename
------------------------------
Date: 16 Mar 2007 09:00:29 -0700
From: "Xicheng Jia" <xicheng@gmail.com>
Subject: Re: Comparing filenames in different directories
Message-Id: <1174060829.179779.245290@n76g2000hsh.googlegroups.com>
On Mar 16, 9:32 am, "Deepu" <pradeep...@gmail.com> wrote:
> > There is a unix utility called "dircmp" which does basic directory
> > comparision , but assuming you are looking for just file comparision
> > within different directories, have you tried using diff or sdiff
> > ( sdiff is much more readable as it shows side by side comparision).A
> > simple for loop ( in shell or foreach in perl) . You can obviusly
> > pretty it up by cleaning up the syntax and including more error
> > checking..
>
> > in shell,
> > for i in 1..10
> > do
> > echo "##Comparing FILENAME_$i in DIR1 and DIR2##"
> > sdiff /DIR1/FILENAME_$i.a /DIR2/FILENAME_$i.x
> > done | tee <output>
>
> > in perl,
> > foreach (1..10) {
> > print "##comparing FILENAME_$i in DIR1 and DIR2##";
> > `sdiff /DIR1/FILENAME_$i.a /DIR2/FILENAME_$i.x >> /tmp/somefile`;
> > }
>
> How to do this ONLY after checking files with same name exists in both
> directories else display FILENAME doesnot exist in DIR1/2- Hide quoted text -
>
> - Show quoted text -
perl -lne '
s{^/(?:(DIR2)|DIR1)/(.*?)\.[^.]*$}{$2};
$seen{$2}=1 and next if defined $1;
print "$2 of DIR1 is ", !$seen{$2}&&"not ", "present in DIR2"
' /DIR2/*.x /DIR1/*.a
FILENAME_1 of DIR1 is present in DIR2
FILENAME_2 of DIR1 is present in DIR2
FILENAME_3 of DIR1 is present in DIR2
FILENAME_4 of DIR1 is not present in DIR2
Regards,
Xicheng
------------------------------
Date: 16 Mar 2007 09:17:13 -0700
From: "Xicheng Jia" <xicheng@gmail.com>
Subject: Re: Comparing filenames in different directories
Message-Id: <1174061833.220896.291210@n76g2000hsh.googlegroups.com>
On Mar 16, 11:00 am, "Xicheng Jia" <xich...@gmail.com> wrote:
> On Mar 16, 9:32 am, "Deepu" <pradeep...@gmail.com> wrote:
>
>
>
>
>
> > > There is a unix utility called "dircmp" which does basic directory
> > > comparision , but assuming you are looking for just file comparision
> > > within different directories, have you tried using diff or sdiff
> > > ( sdiff is much more readable as it shows side by side comparision).A
> > > simple for loop ( in shell or foreach in perl) . You can obviusly
> > > pretty it up by cleaning up the syntax and including more error
> > > checking..
>
> > > in shell,
> > > for i in 1..10
> > > do
> > > echo "##Comparing FILENAME_$i in DIR1 and DIR2##"
> > > sdiff /DIR1/FILENAME_$i.a /DIR2/FILENAME_$i.x
> > > done | tee <output>
>
> > > in perl,
> > > foreach (1..10) {
> > > print "##comparing FILENAME_$i in DIR1 and DIR2##";
> > > `sdiff /DIR1/FILENAME_$i.a /DIR2/FILENAME_$i.x >> /tmp/somefile`;
> > > }
>
> > How to do this ONLY after checking files with same name exists in both
> > directories else display FILENAME doesnot exist in DIR1/2- Hide quoted text -
>
> > - Show quoted text -
>
> perl -lne '
> s{^/(?:(DIR2)|DIR1)/(.*?)\.[^.]*$}{$2};
hmmm, the s/// expression is completely redundant..
m{^/(?:(DIR2)|DIR1)/(.*?)\.[^.]*$};
Regards,
Xicheng
> $seen{$2}=1 and next if defined $1;
> print "$2 of DIR1 is ", !$seen{$2}&&"not ", "present in DIR2"
> ' /DIR2/*.x /DIR1/*.a
>
> FILENAME_1 of DIR1 is present in DIR2
> FILENAME_2 of DIR1 is present in DIR2
> FILENAME_3 of DIR1 is present in DIR2
> FILENAME_4 of DIR1 is not present in DIR2
>
> Regards,
> Xicheng- Hide quoted text -
>
> - Show quoted text -
------------------------------
Date: 16 Mar 2007 08:32:00 -0700
From: "ihccab" <ihccab@gmail.com>
Subject: cpan upgrade gone bad
Message-Id: <1174059120.258212.15820@l77g2000hsb.googlegroups.com>
I've been using CPAN for many years, and never had a problem, but I
connected to CPAN this morning on a new install of RedHat AS 4 to
upgrade and install perl modules. I had many timeouts, and after a
while it finally started "install Bundle::CPAN". But the installation
went bad and did not upgrade the bundle.
Now when I issue "perl -MCPAN -e shell" it complains that it cannot
find Cwd.pm and other *.pm files.
I'm missing many files from my install. How can I repair this? Or,
should I get the whole tar.gz and install to /usr/local? Thanks for
any help.
------------------------------
Date: 16 Mar 2007 08:59:47 -0700
From: "ihccab" <ihccab@gmail.com>
Subject: Re: cpan upgrade gone bad
Message-Id: <1174060787.074818.193540@y80g2000hsf.googlegroups.com>
On Mar 16, 11:32 am, "ihccab" <ihc...@gmail.com> wrote:
> I've been using CPAN for many years, and never had a problem, but I
> connected to CPAN this morning on a new install of RedHat AS 4 to
> upgrade and install perl modules. I had many timeouts, and after a
> while it finally started "install Bundle::CPAN". But the installation
> went bad and did not upgrade the bundle.
>
> Now when I issue "perl -MCPAN -e shell" it complains that it cannot
> find Cwd.pm and other *.pm files.
>
> I'm missing many files from my install. How can I repair this? Or,
> should I get the whole tar.gz and install to /usr/local? Thanks for
> any help.
I solved the problem on my own. I forced an rpm install of the perl
package, and it restored the missing files. Sorry to inconvenience
anyone.
------------------------------
Date: Fri, 16 Mar 2007 15:41:34 -0000
From: Justin C <justin.0703@purestblue.com>
Subject: Re: Mastering Perl
Message-Id: <slrnevlele.tif.justin.0703@stigmata.purestblue.com>
On 2007-03-16, Michele Dondi <bik.mido@tiscalinet.it> wrote:
> On 16 Mar 2007 00:15:30 -0700, "The Count" <gerald607@gmail.com>
> wrote:
>
>>Im a BSc4 Maths/Computer Science student and would like to find out
>>the best way to learn programming in perl.Perl is not offered in my
>>course but I find that it is a very popular language.I can program in
>>Pascal,Delphi and C++.How long could it take me to master perl to a
>>level where I can make web applications? Can you recommend websites
>
> It depends. Perl is a vast language but it is inspired by many other
> ones and just like with natural languages in the words of $Larry, it
> is officially ok to only speak a subset to it. Call that "baby Perl".
> While speaking baby Perl, people will often correct you and suggest
> more mature ways to do things. In any case start with an introdutory
> book, like the Llama.
[snip]
I'll second the Llama. It's my most thumbed book. I know where
everything is in there and, for those moments when I can't remember the
correct syntax (quite often then), it's invaluable.
I've not built any web-apps but it educated me enough to automate the
web-site for work, and a whole bunch of other things. I don't hesitate
in recommending it as an introductory volume. Of course, when you're
done with that there is still so much more to learn, but it gets you
pointed in the right direction.
Justin.
--
Justin C, by the sea.
------------------------------
Date: 16 Mar 2007 15:44:38 GMT
From: xhoster@gmail.com
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <20070316114440.199$xz@newsreader.com>
"Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net> wrote:
>
> This is from CGI::Session::Tutorial:
>
> > The second argument is session id to be initialized. If it's undef, it
> > will force CGI::Session to create a new session. Instead of passing a
> > session id, you can also pass a CGI.pm object, or any other object that
> > can implement either of cookie() or param() methods.
While I'll be. That will teach me not to read the perldocs for my
locally installed version rather than the version the OP was talking about.
Version 4.x releases act quite differently, and of course are documented
differently.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Fri, 16 Mar 2007 17:44:09 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <JHAKh.10448$PL.1244@newsread4.news.pas.earthlink.net>
On 03/16/2007 10:44 AM, xhoster@gmail.com wrote:
> "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net> wrote:
>> This is from CGI::Session::Tutorial:
>>
>>> The second argument is session id to be initialized. If it's undef, it
>>> will force CGI::Session to create a new session. Instead of passing a
>>> session id, you can also pass a CGI.pm object, or any other object that
>>> can implement either of cookie() or param() methods.
>
> While I'll be. That will teach me not to read the perldocs for my
> locally installed version rather than the version the OP was talking about.
>
> Version 4.x releases act quite differently, and of course are documented
> differently.
>
> Xho
>
I'm lucky I have CGI::Session 3.95 installed through my OS's package
installation utilities. The CGI::Session 4.20 seems to be a lot smarter;
it can get the session cookie without consulting a CGI.pm object. The
OP's code would probably work without modification with 4.20.
------------------------------
Date: 16 Mar 2007 09:54:08 -0700
From: "TonyV" <kingskippus@gmail.com>
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <1174064048.254775.58090@n76g2000hsh.googlegroups.com>
On Mar 16, 12:04 am, "Mumia W." <paduille.4060.mumia.w
+nos...@earthlink.net> wrote:
>
> This is from CGI::Session::Tutorial:
>
> > The second argument is session id to be initialized. If it's undef, it
> > will force CGI::Session to create a new session. Instead of passing a
> > session id, you can also pass a CGI.pm object, or any other object that
> > can implement either of cookie() or param() methods.
>
> Your program will work properly if you make the change suggested above.
I just tried this. I now have the following lines in my program:
my $cgi = new CGI;
my $session = new CGI::Session(undef, $cgi, {Directory=>'/websessions/
test'}) or die CGI::Session->errstr;
my $cookie = $cgi->cookie(CGISESSID => $session->id );
It does exactly the same thing: creates a new session every time the
page is loaded. >:-( I suppose I could try loading the cookie before
calling Session->new to try to get an existing session ID, but it's my
understanding that this is not only not required, but way too much
work. According to the CGI::Session::Tutorial:
"We didn't check for any session cookies [in the example] above, did
we? No, we didn't, but CGI::Session did. It looked for a cookie called
CGISESSID, and if it found it tried to load existing session from
server side storage (file in our case)." In *my* case, something is
broken, because although the cookie *is* being created and I've
verified that its name *is* CGISESSID, for some weird reason,
CGI::Session isn't reading it.
Any other ideas? It's still driving me crazy.
------------------------------
Date: 16 Mar 2007 10:46:42 -0700
From: "TonyV" <kingskippus@gmail.com>
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <1174067202.372669.227920@p15g2000hsd.googlegroups.com>
On Mar 16, 12:54 pm, "TonyV" <kingskip...@gmail.com> wrote:
> I suppose I could try loading the cookie before
> calling Session->new to try to get an existing session ID, but it's my
> understanding that this is not only not required, but way too much
> work.
Okay, I see what you mean about the differences between CGI-
Session-3.95 and CGI-Session-4.20. It looks like the 3.95 versions
*doesn't* check your cookies for a session ID, and that passing it a
CGI *won't* work. I've changed my code to the following, and it seems
to work a lot better:
my $sessid = $cgi->cookie('CGISESSID');
my $session = new CGI::Session(undef, $sessid, {Directory=>'/
websessions/test'}) or die CGI::Session->errstr;
my $cookie = $cgi->cookie('CGISESSID'=>$session->id());
Unfortunately, it looks like there isn't a CGI-Session-4.20 available
for Windows, at least not from ActiveState. :-( Oh well, at any
rate, in case anyone else finds this thread through your favorite
search engine *here* are the documents you should be looking at:
http://search.cpan.org/~sherzodr/CGI-Session-3.95/
Here are the ones you *shouldn't* be looking at:
http://search.cpan.org/~markstos/CGI-Session-4.20/
------------------------------
Date: Fri, 16 Mar 2007 13:58:44 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <m26491jciz.fsf@local.wv-www.com>
"TonyV" <kingskippus@gmail.com> writes:
> Unfortunately, it looks like there isn't a CGI-Session-4.20 available
> for Windows, at least not from ActiveState. :-( Oh well, at any
> rate, in case anyone else finds this thread through your favorite
> search engine *here* are the documents you should be looking at:
Actually, you shouldn't be looking at cpan.org for docs at all. The docs
that are included with the module itself, right on your own computer, are
guaranteed to always be for the version you have.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Fri, 16 Mar 2007 17:44:10 GMT
From: "Mumia W." <paduille.4060.mumia.w+nospam@earthlink.net>
Subject: Re: output confusion
Message-Id: <KHAKh.10449$PL.7389@newsread4.news.pas.earthlink.net>
On 03/16/2007 09:46 AM, Huub wrote:
> Hi,
>
> I wrote a script that reads from a database and should print to labels
> on a printer. It did work, but the text is out of proportion. I first
> got advise to use PCL, but I didn't get that working. Next advise was to
> use PostScript::Simple. I think I have that working, although loading
> the generated .ps file couldn't be loaded by Evince that kept showing
> "loading".
> Now I have a question: when I write to file, I do this:
>
> open(out,">$FILE");
> print out "some text\n";
> print out "some text2\n";
> close(out);
>
> Now, with PS, I have to use e.g.
>
> my $ps = new PostScript::Simple(....);
> $ps->text(10,10,"some text");
> $ps->text(10,11,"some text2"); (?)
> $ps->output("file.ps");
>
> I suppose I just should replace all lines
>
> print out "some text";
>
> by
>
> $ps->text(<x>,<y>,"some text");
>
> Is this correct?
>
> Thanks for helping.
>
> Huub
It's pretty close to that. Do the first example at the top of the POD
for PostScript::Simple. The POD tells you how to set the font and colour.
You can read the POD by doing "perldoc PostScript::Simple"
------------------------------
Date: Fri, 16 Mar 2007 17:40:43 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Scope and Arrays
Message-Id: <slrnevli4b.n8s.hjp-usenet2@yoyo.hjp.at>
On 2007-03-16 13:20, Christian Winter <thepoet_nospam@arcor.de> wrote:
> Andrew wrote:
>> my $message;
>> my @messages = ("Hello", "Goodbye");
>>
>> foreach $message (@messages) {
>> displayPrint();
>> }
>>
>> sub displayPrint {
>>
>> print "My message is $message.\n";
>>
>> }
>>
>> Then I get the following error message from the print line;
>>
>> "Use of uninitialized value in concatenation (.) or string"
>>
>> Can someone explain this to me ?
[...]
>
> foreach() localises the iterator variable. Your loop is equivalent
> to the following:
>
> foreach (@messages ) { # implicit $_ loop iterator
> local $message = $_;
> displayPrint();
> }
>
> The localised $message is declared in the loop block's scope, which
> isn't visible from the sub that is declared in a different scope.
Actually, "local"ized variables are visible in subs which are called
within their scope, but that works only with package-global variables,
not with lexicals. So one (rather ugly, I admit) solution would be to
change "my $message;" into "our $message;":
our $message;
my @messages = ("Hello", "Goodbye");
foreach $message (@messages) {
displayPrint();
}
sub displayPrint {
print "My message is $message.\n";
}
prints
My message is Hello.
My message is Goodbye.
I like Anno's way with the hash better, though (that's how I would do it).
hp
--
_ | Peter J. Holzer | Blaming Perl for the inability of programmers
|_|_) | Sysadmin WSR | to write clearly is like blaming English for
| | | hjp@hjp.at | the circumlocutions of bureaucrats.
__/ | http://www.hjp.at/ | -- Charlton Wilbur in clpm
------------------------------
Date: 16 Mar 2007 09:07:33 -0700
From: begiorgio@gmail.com
Subject: sockschain
Message-Id: <1174061253.771468.215310@y80g2000hsf.googlegroups.com>
Hi, I've tried to use use LWP::Protocol::http::SocksChain perl module
to concatenate proxys and socks. With socks it works but when I put a
proxy in the chain, I always get the error "500 connection not
allowable".
I'm using
Module Version: 1.4
and the latest perl version from activestate.
Can you please help? Do you know of any other way to concatenate a
proxy and a sock?
Thank you very much.
I've tried to use the following code with privoxy for the purpose of
testing; it doesn't work with any other http proxy anyway.
########
use LWP::UserAgent;
use LWP::Protocol::http::SocksChain;
LWP::Protocol::implementor( http =>
'LWP::Protocol::http::SocksChain');
@LWP::Protocol::http::SocksChain::EXTRA_SOCK_OPTS = (
Chain_Len => 1,
Debug => 1,
Random_Chain => 1,
Chain_File_Data => [
'127.0.0.1:8118:::0:1155 b/s privoxy',
#'127.0.0.1:9050:::5:1155 b/s tor',
],
Auto_Save => 0,
Restore_Type => 0 );
&socket();
sub socket{
my $ua = LWP::UserAgent->new();
my $res =
$ua->get('http://www.google.com');
if ($res->is_success) {
#print $res->content;
print $res->status_line;
} else {
print "failed";
print $res->status_line;
}
}
------------------------------
Date: Fri, 16 Mar 2007 09:56:55 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: spawn process to run parallel
Message-Id: <45fabe47$0$493$815e3792@news.qwest.net>
Naren wrote:
> I am trying to start multiple php processes from perl script ; can I
> do the following?. It is failing to launch.
I'd suggest that you take a look at Parallel::ForkManager.
It's very easy to use and it works.
------------------------------
Date: Fri, 16 Mar 2007 12:29:33 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Urgent requirement in perl for a US based CMM Level 4 company
Message-Id: <g69veh1cfte.fsf@dhcp-65-162.kendall.corp.akamai.com>
On 16 Mar 2007 03:04:19 -0700 josh.arni@gmail.com wrote:
ja> We currently have an urgent requirement for a US based CMM Level 4
ja> company in Chennai. The job description is given below kindly go
ja> through it and if you are interested kindly reply with your updated
ja> resume to pss_chennai@rediffmail.com
That's great! I need to find a good dry cleaner in my area, if you
can help please reply to my e-mail address.
Ted
------------------------------
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 232
**************************************
