[16029] in Perl-Users-Digest
Perl-Users Digest, Issue: 3441 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 21 11:10:47 2000
Date: Wed, 21 Jun 2000 08:10:25 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <961600225-v9-i3441@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 21 Jun 2000 Volume: 9 Number: 3441
Today's topics:
Re: q: next pair key in a hash <christian@fabel.dk>
Re: q: next pair key in a hash (M.J.T. Guy)
Re: q: next pair key in a hash <panderse@us.ibm.com>
Reading Pine from Perl fperkins@my-deja.com
Re: Reading Pine from Perl <gellyfish@gellyfish.com>
s/:(/:)/ if (@yourMind =~ m/SSL/) robb4444@my-deja.com
Re: Should be simple, but... <panderse@us.ibm.com>
Re: Should be simple, but... fperkins@my-deja.com
Re: Should be simple, but... <sariq@texas.net>
Re: Simple brain picker <red_orc@my-deja.com>
Re: Simple brain picker <sariq@texas.net>
Re: Simple Question fperkins@my-deja.com
SMS help <dfleet@avaterra.com>
Re: SMS help <j@iforgot.net>
Static Vars and ordering of subroutines <aqumsieh@hyperchip.com>
Switch, Case in Perl phil_alex@my-deja.com
Re: Switch, Case in Perl <sariq@texas.net>
Re: Switch, Case in Perl <blah@nospam.com>
Re: Switch, Case in Perl (Eric Bohlman)
Re: Switch, Case in Perl (David Salgado)
Testing whether filehandle is open (Andre Majorel)
Re: Urgent help with non-blocking child process require <rootbeer@redcat.com>
use Filter::netcrypt; ??? moijk@my-deja.com
Re: Using a variable for subroutine calling. <abe@ztreet.demon.nl>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 21 Jun 2000 15:22:33 +0200
From: Christian Vandsř <christian@fabel.dk>
Subject: Re: q: next pair key in a hash
Message-Id: <i0g1ls4u294kvftlpl1o2peamn4kt495eh@4ax.com>
On Wed, 21 Jun 2000 16:26:59 +0400, "Roman Chumakov" <zfido88@zr.ru>
wrote:
>I have a big hash: $hash.
Uhm... %hash?
>I have a key for this hash to retrieve: $key
>its value is:
>$keyvalue = $hash{$key}
>
>But how can I know previous key in a $hash, that is previos $key?
Depends on how you create your keys. It makes no sense to ask for the
"next", since a hash isn't sorted unless you sort it yourself.
>
>it's like.... i have a book .. I know a page... I need to get next or prev
>page.
$nextpage=$currentpage+1;
$previouspage=$currentpage-1;
/Christian
------------------------------
Date: 21 Jun 2000 13:28:24 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: q: next pair key in a hash
Message-Id: <8iqfto$dj$1@pegasus.csx.cam.ac.uk>
In article <8iqca6$stn$1@news.sovam.com>, Roman Chumakov <zfido88@zr.ru> wrote:
>
>I have a key for this hash to retrieve: $key
>its value is:
>$keyvalue = $hash{$key}
>
>But how can I know previous key in a $hash, that is previos $key?
>And also, how to get next key?
A hash is inherently unordered; there's no concept of "next" or "previous".
If you want to preserve order, you need an array (or several arrays).
Or play games with tied hashes.
Mike Guy
------------------------------
Date: Wed, 21 Jun 2000 08:25:51 -0500
From: "Paul R. Andersen" <panderse@us.ibm.com>
Subject: Re: q: next pair key in a hash
Message-Id: <3950C25F.BAB9A791@us.ibm.com>
Roman Chumakov wrote:
>
> A little trouble.
>
> I have a big hash: $hash.
>
> I have a key for this hash to retrieve: $key
> its value is:
> $keyvalue = $hash{$key}
>
> But how can I know previous key in a $hash, that is previos $key?
> And also, how to get next key?
>
> it's like.... i have a book .. I know a page... I need to get next or prev
> page.
>
But a hash is more like a book whose pages are numbered 1, 12, 18, 35,
43. Now at some point, page 15 is going to be put in and now the 'next'
page after 12 is not 18. There is no fixed next and prev.
Ohhhh.... lame example but the point is that next implies order and
there is no established order in a hash (I bet it varies across
systems).
--
Paul Andersen
+++++++++++++
The difference between theory and practice is that in theory there is no
difference between theory and practice; but in practice there is.
------------------------------
Date: Wed, 21 Jun 2000 13:55:50 GMT
From: fperkins@my-deja.com
Subject: Reading Pine from Perl
Message-Id: <8iqhgt$5m0$1@nnrp1.deja.com>
Scenario: Bounced emails are stored in a Pine email account called
Recipes. The file that houses all this information [via Pine] can be
found at /var/mail/recipes.
Goal: I want to be able to parse through these failed emails to get
out the bad emails and put them into a flat file. I could just do a
standard open (EMAILS, "/var/mail/recipes"); but I can find a clear way
to find the beginning and end of each email. I would use the Net::Pop3
module, but POP3 isnt enabled.
Any ideas?
TIA,
Frank
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 14:49:04 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Reading Pine from Perl
Message-Id: <AB445.514$My4.49505@news.dircon.co.uk>
On Wed, 21 Jun 2000 13:55:50 GMT, fperkins@my-deja.com Wrote:
> Scenario: Bounced emails are stored in a Pine email account called
> Recipes. The file that houses all this information [via Pine] can be
> found at /var/mail/recipes.
>
> Goal: I want to be able to parse through these failed emails to get
> out the bad emails and put them into a flat file. I could just do a
> standard open (EMAILS, "/var/mail/recipes"); but I can find a clear way
> to find the beginning and end of each email. I would use the Net::Pop3
> module, but POP3 isnt enabled.
I would look at the Mail-Tools package which has facilities to do things
with mailbox files and with the individual messages therein - go to CPAN
and search <http://search.cpan.org> .
/J\
------------------------------
Date: Wed, 21 Jun 2000 13:16:14 GMT
From: robb4444@my-deja.com
Subject: s/:(/:)/ if (@yourMind =~ m/SSL/)
Message-Id: <8iqf6e$3sv$1@nnrp1.deja.com>
Perl: s/:(/:)/ if (@yourMind =~ m/SSL/)
English: it will really turn my frown upside down if any here knows...
how to retrieve the Certificate headers from an HTTP response.
I would like to be able to print and/or store the headers
called "Client-SSL-Cipher","Client-SSL-Cert-Subject","Client-SSL-Cert-
Issuer". These are defined in sub _get_sock_info in https.pm ... the
perl module lovingly known as LWP::Protocol::HTTPS. Any takers?
Robb
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 08:18:09 -0500
From: "Paul R. Andersen" <panderse@us.ibm.com>
Subject: Re: Should be simple, but...
Message-Id: <3950C091.7E8D6BF3@us.ibm.com>
James Hall wrote:
>
> And it probably IS simple, however, it seems to be missing me. Here is
> the problem:
> I want the user to add items from a selection to an array. No problem.
> What I can't figure out how to do is NOT add the item if it already
> exists in the array-
> EXAMPLE:
>
> @array = qw(red white blue);
>
> #The user selects 'green' and 'red' to enter into the array;
> $green = param('green'); #where the form element 'green' has the value
> 'green'
> $red = param('red'); #ditto
> push(@array, $green);
> push(@array, $red);
>
> #Now the array has the following value
> @array = qw(red white blue green red);
>
> How do I keep an item from being added if it already exists, such as
> 'red' in this example? Thanks in advance, I've searched 3 O'Reilly
> books, and several web searches to no avail...
> James Hall
The easy way to handle this (and it works well if the array is not huge)
is to add the element to the array and then remove duplicates.
Duplicate removal is covered in the Perl Cookbook on page 102. There
would be some size beyond which you should use a hash.
--
Paul Andersen
+++++++++++++
The difference between theory and practice is that in theory there is no
difference between theory and practice; but in practice there is.
------------------------------
Date: Wed, 21 Jun 2000 14:28:16 GMT
From: fperkins@my-deja.com
Subject: Re: Should be simple, but...
Message-Id: <8iqjda$75r$1@nnrp1.deja.com>
> How do I keep an item from being added if it already exists, such as
> 'red' in this example? Thanks in advance, I've searched 3 O'Reilly
> books, and several web searches to no avail...
Do you have the ORA Perl Cookbook? Good info in section 4.6 p102
Frank
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 09:49:51 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Should be simple, but...
Message-Id: <3950D60F.F932BE47@texas.net>
James Hall wrote:
>
> And it probably IS simple, however, it seems to be missing me.
Anytime you have a problem that seems simple, it's probably been seen
before.
> I want the user to add items from a selection to an array. No problem.
> What I can't figure out how to do is NOT add the item if it already
> exists in the array
perldoc -q unique
"How can I extract just the unique elements of an array?"
Pay close attention to the final sentence.
Then, learn to fish.
perldoc perldoc
perldoc perl
- Tom
------------------------------
Date: Wed, 21 Jun 2000 13:52:56 GMT
From: Rodney Engdahl <red_orc@my-deja.com>
Subject: Re: Simple brain picker
Message-Id: <8iqhbg$5cd$1@nnrp1.deja.com>
In article <3953868a.1053296@news.skynet.be>,
bart.lateur@skynet.be (Bart Lateur) wrote:
> Igor Mack wrote:
>
> >What is the most proper way of doing this:
> >
> >$first_five = substr($serialno, 3, 3);
> >$version = substr($first_five, 0, 1) . "." . substr($first_five, 1,
2) ;
>
> $first_three = substr($serialno, 3, 3);
> substr($first_three, 1, 0) = ".";
>
> (where did you get that idea of "first five"?)
>
> --
> Bart.
>
wouldn't that just be:
$version=substr($serialno,3,1) . '.' . substr($serialno,4,2);
why use $first_five, $first_three, or even $second_three at all?
anyway, since we have no specification, the _only proper_ way to do the
two lines in the OP is as they were written in the OP. ;^)
the most proper way to accomplish the same thing is another matter.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 09:00:45 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Simple brain picker
Message-Id: <3950CA8D.A250B8FD@texas.net>
Abe Timmerman wrote:
>
> On Wed, 21 Jun 2000 04:46:24 GMT, Igor Mack <sushi38@my-deja.com> wrote:
>
> > What is the most proper way of doing this:
> >
> > $first_five = substr($serialno, 3, 3);
> > $version = substr($first_five, 0, 1) . "." . substr($first_five, 1, 2) ;
>
> $version = join '.', (unpack "A3A1A2", $serialno)[1,2];
>
> It leaves out the strange varname :-)
($version=$serialno)=~s/...(.)(..).*/$1.$2/;
I'd issue a golf challenge, but my game wouldn't even qualify for the
perl.buy.com tour - and there are P(erl)(L)PGA pros in these parts.
- Tom
------------------------------
Date: Wed, 21 Jun 2000 13:05:14 GMT
From: fperkins@my-deja.com
Subject: Re: Simple Question
Message-Id: <8iqeht$3em$1@nnrp1.deja.com>
It sounds like your webserver doesn't know that .pl should be executed
using Perl. Make sure you configured your NT box so that .pl are
registered to run Perl. I remember there being info with ActiveState's
win32 flavor or Perl which showed you how to do this.
What if you tried changing your script to a .cgi extension? I wonder
if that would work...
Frank
In article <re%35.996$73.7240@news1.tor.primus.ca>,
"mxusstmm" <mxusstmm@xoommail.com> wrote:
> Just picked up PERL so help would be appriciated with this question.
> I just finished PC magazine's PERL 5.0 CGI Web Pages book.
>
> Here's my problem:
>
> I uploaded my PERL scripts to my ISP.
> I followed all of thier directions regaring cgi file location and the
> #!usr/bin/perl line, but...
>
> When I use the GET method to call the pl file, I just see the whole
script
> in the browser like unformatted text.When I use POST from a form, my
browser
> wants to download.
>
> I've tried to duplicate the error on my server, by turing off access
to
> PERL, but I just get 404 errors.
> Can't seem to duplicate whats going on online.
>
> I'm running O'Reily's WebSite server on an NT box to test the stuff,
but my
> ISP uses ZEUS on Sun boxes.
>
> Has anyone had this set of problems happen to them?
> Is this my problem or my ISP?
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 15:23:12 +0100
From: "David Fleet" <dfleet@avaterra.com>
Subject: SMS help
Message-Id: <3950ce63_1@nnrp1.news.uk.psi.net>
Anyone know if it's possible to send SMS by Perl?
Or download bookmarks to the phone by Perl?
Any advice greatfully/gratefully appreciated.
Han.
------------------------------
Date: Wed, 21 Jun 2000 08:32:32 -0600
From: "Jim" <j@iforgot.net>
Subject: Re: SMS help
Message-Id: <3950d20a$0$17334@news.denver1.Level3.net>
Yes, it is possible to send SMS jobs through Perl. Learn more about SMS and
the solution will present itself. I can't send you the source I developed
as it belongs to my employer.
"David Fleet" <dfleet@avaterra.com> wrote in message
news:3950ce63_1@nnrp1.news.uk.psi.net...
> Anyone know if it's possible to send SMS by Perl?
------------------------------
Date: Wed, 21 Jun 2000 14:43:49 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Static Vars and ordering of subroutines
Message-Id: <7ar99rp00p.fsf@merlin.hyperchip.com>
Hey all,
The following works as expected:
% perl -wl
{
my $static_x = 3;
sub getNextX {
return ++$static_x;
}
}
my $x = getNextX();
print "X is $x.";
__END__
X is 4.
But if I declare the subroutine getNextX() *after* the call to it, it
seems that the static variable doesn't get initialized properly:
% perl -wl
my $x = getNextX();
print "X is $x.";
{
my $static_x = 3;
sub getNextX {
return ++$static_x;
}
}
__END__
X is 1.
Is this a documented feature that somehow escaped me? Or is it a bug?
perlsub talks a lot about static vars, but doesn't mention any ordering
preferences.
% perl -v
This is perl, version 5.005_03 built for i386-linux
Can somebody please compare with 5.6?
Thanks,
--Ala
------------------------------
Date: Wed, 21 Jun 2000 14:26:14 GMT
From: phil_alex@my-deja.com
Subject: Switch, Case in Perl
Message-Id: <8iqj9g$74m$1@nnrp1.deja.com>
Hi,
First, I'm sorry for my poor English.
I'm a newbie in perl, and in looking for a control structure like
switch case in C.
Thx in advance
Philippe
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 09:51:10 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Switch, Case in Perl
Message-Id: <3950D65E.77AD3D61@texas.net>
phil_alex@my-deja.com wrote:
>
> I'm a newbie in perl, and in looking for a control structure like
> switch case in C.
perldoc -q switch
"How do I create a switch or case statement?"
Then, learn to fish.
perldoc perldoc
perldoc perl
- Tom
------------------------------
Date: Wed, 21 Jun 2000 16:51:55 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: Switch, Case in Perl
Message-Id: <3950D68B.1E22DAA9@nospam.com>
Philippe,
phil_alex@my-deja.com wrote:
> I'm a newbie in perl, and in looking for a control structure
> like switch case in C.
This is a FAQ. Check the FAQ list, there is a long and interesting
discussion about your question.
perldoc -q switch
Best regards,
Marco
------------------------------
Date: 21 Jun 2000 14:52:01 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Switch, Case in Perl
Message-Id: <8iqkqh$8o7$3@slb1.atl.mindspring.net>
phil_alex@my-deja.com wrote:
: I'm a newbie in perl, and in looking for a control structure like
: switch case in C.
See "How do I create a switch or case statement" in perlfaq7.
------------------------------
Date: Wed, 21 Jun 2000 15:02:33 GMT
From: david@digitalronin.nospam.com (David Salgado)
Subject: Re: Switch, Case in Perl
Message-Id: <3952d835.23398595@news.demon.co.uk>
>I'm a newbie in perl, and in looking for a control structure like
>switch case in C.
There isn't one as such, but TMTOWTDI. You can use a bare block with
ifs and lasts;
BLOCK
{
if ($foo) { dostuff(); last BLOCK; }
...
doelsestuff();
}
or use if/elsif/elsif/elsif/else
HTH
David
------------------------------
Date: 21 Jun 2000 14:18:19 GMT
From: aym@aym4.domicile.fr (Andre Majorel)
Subject: Testing whether filehandle is open
Message-Id: <slrn8l1qnq.10r.aym@aym4.domicile.fr>
Is there a way to determine whether a given filehandle is open
before trying to print into it ?
What I'm trying to do is :
sub message
{
print "@_" if ($verbose);
print LOG @_;
}
message "blah blah\n"; # 1
open LOG, ">>/var/log/myprog";
message "more blah\n";
close LOG, ">>/var/log
message "even more blah\n"; # 2
without getting "print on closed filehandle main::LOG" at lines
#1 and #2.
--
André Majorel <amajorel@teezer.fr> (it's really "teaser")
http://www.teaser.fr/~amajorel/
If everything is coming your way, you're in the wrong lane.
------------------------------
Date: Tue, 20 Jun 2000 10:26:31 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Urgent help with non-blocking child process required
Message-Id: <Pine.GSO.4.10.10006201007520.29843-100000@user2.teleport.com>
You've already gotten help on part of this, but there may be another issue
or two....
On Tue, 20 Jun 2000 salim@cygnos.com wrote:
> Newsgroups: comp.lang.perl.misc, comp.lang.perl.modules, comp.lang.perl,
> comp.lang.perl.moderated
If your news administrator still carries comp.lang.perl, please let him
or her know that that newsgroup has not existed since 1995. If you
have such an outdated newsgroup listing, you are probably missing out
on many other valid newsgroups as well. You'll be doing yourself and
many others a favor to use only comp.lang.perl.misc (and other valid
Perl newsgroups) instead.
> Subject: Urgent help with non-blocking child process required
It doesn't help to ask for "urgent" help. Folks who answer questions on
Usenet always do so at top speed, which is the same as minimum speed -
there's no point in answering any faster or slower than what's natural.
Perhaps you're thinking of Usenet as a help desk, and hoping that "urgent"
problems will go to the head of the line. Stop that. Thank you.
> Below is a complete code
> se strict;
Somehow I don't think that's complete. Now, I don't want to come down on
you too hard for a simple typo. But too often people post code which is
different than the code which is giving them trouble. This wastes
everyone's time in finding the wrong problems. Instead of retyping the
code, using copy-and-paste (or something equivalent) will be more
reliable.
> require Exporter;
> require AutoLoader;
When you post problem code to Usenet, you should almost always strip out
the extraneous parts, so as to more clearly show where the problem is. I
don't think that you were doing any exporting or autoloading - in fact,
since those are most often used with modules, and you were showing example
_programs_, I have to wonder what those lines were doing at all. They
certainly look extraneous.
Still, there are other parts of your sample programs which seem to
indicate that you left something out. In general, you shouldn't leave
anything out of your sample code. A good example will be small, but
self-contained. This isn't always easy to accomplish, I admit.
> if (my $pid=open(CHILD, "|-")){
> CHILD->autoflush(1);
> print CHILD $y;
> print "\nSnippetA: iteration $x\n";
> waitpid(-1,&WNOHANG);
> }else{
> exec "perl snippetB.pl";
> }
Using proper indentation, although it makes no difference to perl, will
help human beings to read, write, debug, and maintain the code. A good
programmers' editor will help you. In any case, before posting code to
Usenet, you should ensure that the format properly shows its structure.
You don't seem to be checking for a failed open and instead simply
assuming that, if the return value is false, you're in the child process.
That's not a good idea. Especially when you're creating new processes in a
loop, as you seem to be doing, you should check that that's succeeded.
> print "\nsnippetB: ...sleeping\n";
> sleep 10;
> print "\nsnippetB: ... just woke up\n"
Do you know about output buffering? Have you read about the $| variable in
the perlvar manpage?
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 21 Jun 2000 13:39:22 GMT
From: moijk@my-deja.com
Subject: use Filter::netcrypt; ???
Message-Id: <8iqgi7$4q9$1@nnrp1.deja.com>
Is it possible to decrypt a file crypted with Filter::netcrypt? And is
it possible to get the module for personal use or is it a "private" one?
The program crypted with it isn't the most well documented one so I'd
like to see how the program it constructed to solve the barrears I've
reacherd. (and it's many of them)
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 21 Jun 2000 15:56:12 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Using a variable for subroutine calling.
Message-Id: <v4i1lssqtvqooktfo9jd6ehjuqpcq6q5of@4ax.com>
On Wed, 21 Jun 2000 11:17:10 GMT, digit_jc@hotmail.com wrote:
> Hi!
Hi,
>
...
> But what if you are trying to call an object method?
>
> $ref = new Module ();
>
> $var = "routine";
>
> This doesn't work:
> $answer = $ref->$var();
>
> sub routine {
> $ref = shift;
> return "Yo\n";
> }
What happened when you tried it?
#!/usr/bin/perl -w
use strict;
{
package Foo;
use strict;
sub new { bless {}; }
sub routine { return "Yo\n"; }
}
my $ref = new Foo;
my $var = 'routine';
my $answer = $ref->$var();
print "The answer = $answer";
__END__
See:
perldoc perlobj
--
Good luck,
Abe
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3441
**************************************
