[17164] in Perl-Users-Digest
Perl-Users Digest, Issue: 4576 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 10 21:10:34 2000
Date: Tue, 10 Oct 2000 18:10:15 -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: <971226615-v9-i4576@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 10 Oct 2000 Volume: 9 Number: 4576
Today's topics:
Re: Reading a whole file into a string (Martien Verbruggen)
Re: Reading a whole file into a string <uri@sysarch.com>
Re: Reading a whole file into a string <Jonathan.L.Ericson@jpl.nasa.gov>
Re: Reading a whole file into a string <Jonathan.L.Ericson@jpl.nasa.gov>
Re: Reading a whole file into a string (Mark-Jason Dominus)
Re: Reading a whole file into a string <jeffp@crusoe.net>
Re: Reading a whole file into a string <godzilla@stomp.stomp.tokyo>
searching and adding text <hjai@ucla.edu>
Re: searching and adding text <Jonathan.L.Ericson@jpl.nasa.gov>
Re: searching and adding text <bwalton@rochester.rr.com>
Re: Segmentation faults in Perl/Tk <asquith@macconnect.com>
Strange issue with LWP & HTTP libs (permissions?) <jmackenzie@cimedia.com>
Re: String convertion problem <anmcguire@ce.mediaone.net>
Re: String convertion problem <void@nowhere.com.invalid>
TCP Servers with IO::Socket <troyr@vicnet.net.au>
Re: TCP Servers with IO::Socket <uri@sysarch.com>
Re: TCP Servers with IO::Socket <troyr@vicnet.net.au>
Re: the fastest way to test String A included by String <lr@hpl.hp.com>
Trying to add a service in win32 env. eedlin@my-deja.com
Re: Trying to add a service in win32 env. <carvdawg@patriot.net>
Re: Trying to add a service in win32 env. eedlin@my-deja.com
Using each() on hash of hashes dustintodd@my-deja.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 10 Oct 2000 22:24:12 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Reading a whole file into a string
Message-Id: <slrn8u75o3.8nu.mgjv@verbruggen.comdyn.com.au>
On Tue, 10 Oct 2000 21:52:13 GMT,
Uri Guttman <uri@sysarch.com> wrote:
> >>>>> "JE" == Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> writes:
>
>
> JE> {
> JE> local undef $/;
>
> huh? local $/ is just fine. i am not even sure the above is legal but i
> am not going to try it.
ooooh! why not? :)
# perl -we 'local undef $/'
#
Looks like it's legal. I'll be buttered on both sides if I know what
it does though.
Martien
--
Martien Verbruggen |
Interactive Media Division | Never hire a poor lawyer. Never buy
Commercial Dynamics Pty. Ltd. | from a rich salesperson.
NSW, Australia |
------------------------------
Date: Tue, 10 Oct 2000 22:40:43 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Reading a whole file into a string
Message-Id: <x7hf6k1frp.fsf@home.sysarch.com>
>>>>> "MV" == Martien Verbruggen <mgjv@tradingpost.com.au> writes:
MV> On Tue, 10 Oct 2000 21:52:13 GMT,
MV> Uri Guttman <uri@sysarch.com> wrote:
>> >>>>> "JE" == Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> writes:
>>
>>
JE> {
JE> local undef $/;
>>
>> huh? local $/ is just fine. i am not even sure the above is legal but i
>> am not going to try it.
MV> ooooh! why not? :)
MV> # perl -we 'local undef $/'
MV> #
MV> Looks like it's legal. I'll be buttered on both sides if I know what
MV> it does though.
just played with it. it undefines $/ OUTSIDE the block and then
localized an undef value (that i am not sure about). but it is very
wrong if all you want is $/ to be undef in the block. it works for small
programs but it is very wrong in general.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Tue, 10 Oct 2000 15:06:08 -0700
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: Reading a whole file into a string
Message-Id: <39E392D0.3A5F5708@jpl.nasa.gov>
Uri Guttman wrote:
> >>>>> "JE" == Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> writes:
> JE> {
> JE> local undef $/;
>
> huh? local $/ is just fine. i am not even sure the above is legal but i
> am not going to try it.
It is legal, but certainly poor style.
> JE> open FH, $file or die "can't open $file: $!";
> JE> $var = <FH>;
>
> you might want to localize the handle as well. if you do, it will be
> closed for you on exiting the block.
Under 5.6.0 I could even have used:
open my $fh, $file or die "can't open $file: $!";
Jon
--
Knowledge is that which remains when what is
learned is forgotten. - Mr. King
------------------------------
Date: Tue, 10 Oct 2000 15:38:36 -0700
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: Reading a whole file into a string
Message-Id: <39E39A6C.CE60FC1@jpl.nasa.gov>
Martien Verbruggen wrote:
> # perl -we 'local undef $/'
> #
>
> Looks like it's legal. I'll be buttered on both sides if I know what
> it does though.
$ perl -we '$a = 42; {local undef $a;} print $a'
Use of uninitialized value in print at -e line 1.
It localizes the return value of undef, but not $a. So besides being
bad style, it doesn't serve any useful purpose. (Who wrote that lousy
example? :-)
Jon
--
Knowledge is that which remains when what is
learned is forgotten. - Mr. King
------------------------------
Date: Wed, 11 Oct 2000 00:05:36 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Reading a whole file into a string
Message-Id: <39e3aecf.dac$15e@news.op.net>
In article <39E392D0.3A5F5708@jpl.nasa.gov>,
Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> wrote:
>Uri Guttman wrote:
>> >>>>> "JE" == Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> writes:
>> JE> {
>> JE> local undef $/;
>
>It is legal, but certainly poor style.
It's also wrong:
$/ = 'yobgorgle';
{ local undef $/ }
print $/;
Guess what? $/ has been undefined, and the effect is *not* local.
------------------------------
Date: Tue, 10 Oct 2000 20:18:21 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Reading a whole file into a string
Message-Id: <Pine.GSO.4.21.0010102016580.14163-100000@crusoe.crusoe.net>
On Oct 11, Mark-Jason Dominus said:
>In article <39E392D0.3A5F5708@jpl.nasa.gov>,
>Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> wrote:
>>Uri Guttman wrote:
>>> >>>>> "JE" == Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> writes:
>>> JE> {
>>> JE> local undef $/;
>>
>>It is legal, but certainly poor style.
>
>It's also wrong:
>
> $/ = 'yobgorgle';
> { local undef $/ }
> print $/;
>
>Guess what? $/ has been undefined, and the effect is *not* local.
Right. You can do this (why?):
# doesn't say anything even under -w
local undef;
Anyway, if you'd done:
undef local $/;
That'd work.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: Tue, 10 Oct 2000 17:52:47 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Reading a whole file into a string
Message-Id: <39E3B9DF.6F6AE374@stomp.stomp.tokyo>
Jeff Pinyan wrote:
> Mark-Jason Dominus wrote:
> > Jon Ericson wrote:
> > > Uri Guttman wrote:
> > > > Jon Ericson wrote:
> > > > {
> > > > local undef $/;
> > > It is legal, but certainly poor style.
> > It's also wrong:
> > $/ = 'yobgorgle';
> > { local undef $/ }
> > print $/;
> > Guess what? $/ has been undefined, and the effect is *not* local.
> Right. You can do this (why?):
> # doesn't say anything even under -w
> local undef;
> Anyway, if you'd done:
> undef local $/;
> That'd work.
Clearly this is a woman's job, a task for a woman
who both understands and knows how to use local ()
correctly and effectively.
Godzilla!
--
Dr. Kiralynne Schilitubi ¦ Cooling Fan Specialist
UofD: University of Duh! ¦ ENIAC Hard Wiring Pro
BumScrew, South of Egypt ¦ HTML Programming Class
TEST SCRIPT:
____________
#!/usr/local/bin/perl
print "Content-Type: text/plain\n\n";
$/ = "yobgorgle";
print "Global: $/\n";
&Local;
sub Local
{
undef local ($/);
print "Localized In Subroutine: $/";
if (!($/))
{ print "\$/ Does Not Exist."; }
print "\n";
}
print "Global After Subroutine: $/\n";
undef local ($/);
print "Globally Localized: $/";
if (!($/))
{ print "\$/ Does Not Exist."; }
exit;
PRINTED RESULTS:
________________
Global: yobgorgle
Localized In Subroutine: $/ Does Not Exist.
Global After Subroutine: yobgorgle
Globally Localized: $/ Does Not Exist.
------------------------------
Date: Tue, 10 Oct 2000 22:30:10 -0000
From: <hjai@ucla.edu>
Subject: searching and adding text
Message-Id: <su763i562lvt21@corp.supernews.com>
I need to: search for a selection (several lines) in a text file and copy
and paste this selection in another part of the text file. How do I do
this?
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: Tue, 10 Oct 2000 16:02:58 -0700
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: searching and adding text
Message-Id: <39E3A022.DAD15D4B@jpl.nasa.gov>
hjai@ucla.edu wrote:
> I need to: search for a selection (several lines) in a text file and copy
> and paste this selection in another part of the text file. How do I do
> this?
I assuming that you want to do this with perl in an automated fashion.
perldoc -q 'change one line' should get you started.
Jon
--
Knowledge is that which remains when what is
learned is forgotten. - Mr. King
------------------------------
Date: Tue, 10 Oct 2000 23:56:42 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: searching and adding text
Message-Id: <39E3AD96.236F221D@rochester.rr.com>
hjai@ucla.edu wrote:
>
> I need to: search for a selection (several lines) in a text file and copy
> and paste this selection in another part of the text file. How do I do
> this?
...
I recommend the VIM text editor. It works great. But even notepad
would be OK for that.
--
Bob Walton
------------------------------
Date: Tue, 10 Oct 2000 17:50:52 -0500
From: "Asquith" <asquith@macconnect.com>
Subject: Re: Segmentation faults in Perl/Tk
Message-Id: <8s06gr084j@enews4.newsguy.com>
In article <39DC676C.4E79CDCD@uni-paderborn.de> , Mathias Biere
<mathiasb@uni-paderborn.de> wrote:
> Hi,
>
> sometimes I'm getting segmentation faults in a Perl/Tk program I´m
> working
> on. They often do appear without any obvious reason, for example while
> using
> a menu or after clicking a button. I don`t know where to look for errors
> because the programs seems to be correct and works well unless it
> crashes.
>
> I verified this behaviour on different Linux boxes, so I don`t think it
> is
> caused by a broken installation. The more the program grows the more
> stability
> decreases.
>
> Does anyone know reasons, why a Perl program might crash with a
> segmentation fault?
>
> Thanks for your help,
>
> Mathias
What version of TK are you running. The segmentation faults were hopefully
fixed in last spring's release of TK800.022. You are likely destroying the
Toplevel widget holding the button in the call back that the button
activates. Tk or Perl was losing track of the reference count or something
like that. Try upgrading.
------------------------------
Date: Tue, 10 Oct 2000 21:38:32 +0000
From: James MacKenzie <jmackenzie@cimedia.com>
Subject: Strange issue with LWP & HTTP libs (permissions?)
Message-Id: <39E38C58.F415BB97@newsguy.com>
I've got a program containing the following:
#!/usr/local/bin/perl
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
my $req = POST 'http://blahblahblah',
[ variable_1 => 1, variable_2 => "",
etc. => "etc." ];
$content = $ua->request($req)->as_string;
print "Content-type: text/html\n\n";
print $content;
If I run this program by hand, everything is wonderful and I get
results, and quickly, too.
However, if I let this be run as a cgi, it takes forever and the browser
times out, giving me nothing.
I've put in print statements and the program is not ever getting past
the $ua->request... line.
Is there some sort of issue with using the HTTP and/or LWP libraries as
user 'nobody', which the web server is running as?
--
Jim MacKenzie
mst3000@newsguy.com
------------------------------
Date: Tue, 10 Oct 2000 17:42:10 -0500
From: "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
Subject: Re: String convertion problem
Message-Id: <Pine.LNX.4.21.0010101735160.18372-100000@hawk.ce.mediaone.net>
On Tue, 10 Oct 2000, Sylvain Perreault quoth:
SP> Hi,
SP>
SP> I have a little problem...
[ snip ]
SP> $value =~ tr/\n/<br>/;
SP>
SP> and it doesn't work...
You have a strange idea of what tr does. 'tr' ne 's'. Use s///
for substitution, and m// for matching.
[ mnemonic?: there is no substitution for s///&&m// :-) ]
anm
--
package News::NNTPClient;use subs q;warn;;sub warn{0}package main;use
News::NNTPClient;$;=News::NNTPClient->new();($==>$$)=($;->group(($|||
((<comp.lang.perl.misc>)))));for$)(<$=>..<$$>){map{$\=v12;die 1?qq{$1
}:q--while s<^.+(j..T .{6}(r) p.R. .{5}\2).+>[$1]mig}$;->article($))}
------------------------------
Date: Tue, 10 Oct 2000 19:06:06 -0400
From: Konrad <void@nowhere.com.invalid>
Subject: Re: String convertion problem
Message-Id: <8s07d0$dvu$1@bob.news.rcn.net>
In article <teME5.7006$0d3.173971@weber.videotron.net>, "Sylvain
Perreault" <sylvain2k@sympatico.ca> wrote:
> my problem is here...
>
> I have a <textarea> in my form... and I want the content of this textarea
> on
> 1 line... WITH the \n convert to <br>... like:
>
> This is a test<br> and it's working
>
> I get:
>
> This is a test
> and it's working...
>
> I've tried:
>
> $value =~ tr/\n/<br>/;
You used the translation operator (tr///), what you want is the
substitution operator (s///). The translation operator is for
"translating" a range of characters
For ex. $value =~ tr/A-Z/a-z/; #Uppercase to lower case
Use:
$value =~ s/\n/<br>/g;
Don't forget the "g" option to globally repace all occurances.
Read the documentaion: perlop - Perl operators and precedence
--
Always (or is it never?) read the documentaion.
------------------------------
Date: Wed, 11 Oct 2000 09:34:33 +1100
From: "Troy Rasiah" <troyr@vicnet.net.au>
Subject: TCP Servers with IO::Socket
Message-Id: <nQME5.24977$O7.389668@ozemail.com.au>
Hi there,
I was wondering if anyone could point me to some useful
documentation on the web regarding TCP Servers with IO::Socket for more than
one simultaneous client connection
I have read the perlipc manpage
Thanks in advance.
------------------------------
Date: Tue, 10 Oct 2000 22:51:03 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: TCP Servers with IO::Socket
Message-Id: <x7em1o1fai.fsf@home.sysarch.com>
>>>>> "TR" == Troy Rasiah <troyr@vicnet.net.au> writes:
TR> I was wondering if anyone could point me to some
TR> useful documentation on the web regarding TCP Servers with
TR> IO::Socket for more than one simultaneous client connection
the perl cookbook has several server examples
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Wed, 11 Oct 2000 09:55:13 +1100
From: "Troy Rasiah" <troyr@vicnet.net.au>
Subject: Re: TCP Servers with IO::Socket
Message-Id: <L7NE5.24985$O7.390021@ozemail.com.au>
----------------------------------------------------------------------------
----------------
"Uri Guttman" <uri@sysarch.com> wrote in message
news:x7em1o1fai.fsf@home.sysarch.com...
> >>>>> "TR" == Troy Rasiah <troyr@vicnet.net.au> writes:
>
> TR> I was wondering if anyone could point me to some
> TR> useful documentation on the web regarding TCP Servers with
> TR> IO::Socket for more than one simultaneous client connection
>
> the perl cookbook has several server examples
>
> uri
thanks uri...would you happen to know if the perl cookbook has an online
resource
Many thanks
------------------------------
Date: Tue, 10 Oct 2000 17:04:21 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: the fastest way to test String A included by String B
Message-Id: <MPG.144d4e5d5849c78d98ae1f@nntp.hpl.hp.com>
In article <su6pf59qs92175@corp.supernews.com> on Tue, 10 Oct 2000
18:54:29 -0000, Craig Berry <cberry@cinenet.net> says...
> Lucas (wstsoi@hongkong.com) wrote:
> : I got two strings,
> : @A = ("apple", "banana", "cherry", "cocount", "pear", "peach", "mango");
> : @B = ("cherry", "banana", "pear");
> :
> : what is the fastest way to test whether B is a subset of A?
>
> Not necessarily fastest, but this has a pleasing directness to it:
>
> my %h;
> @h{@A, @B} = (1) x (@A + @B);
> my $is_subset = keys %h == @A;
Sure, and I'll bet it is almost the fastest. To make it faster, why are
you assigning values that are never used?
my %h;
@h{@A, @B} = ();
my $is_subset = keys %h == @A;
The question and response are a subset of a FAQ.
perlfaq4: "How do I compute the difference of two arrays? How do I
compute the intersection of two arrays?"
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 10 Oct 2000 22:58:34 GMT
From: eedlin@my-deja.com
Subject: Trying to add a service in win32 env.
Message-Id: <8s06um$v9v$1@nnrp1.deja.com>
Hello all,
I'm trying to add a service to start automatically at boot.
Here is the code I have tried:
use strict;
my $Registry;
use Win32::TieRegistry ( TiedRef=>\$Registry, Delimiter=>"/" );
my $CAP_HOME = Win32::GetCwd();
$CAP_HOME =~ s/\\bin\S*//;
$Registry->{"LMachine/System/CurrentControlSet/Services/CapSync/"}= {
"/DisplayName" => [ "CapSync", "REG_SZ"],
"/ErrorControl" => [ "0x0001", "REG_DWORD"],
"/ImagePath" => [ "$CAP_HOME\\bin\\Start_CapSync.exe",
"REG_EXPAND_SZ"],
"/ObjectName" => [ "LocalSystem", "REG_SZ"],
"/Start" => [ "0x0002", "REG_DWORD"],
"/Type" => [ "0x0110", "REG_DWORD"],
} or die "Can not create services entry\n";
The entry into services seems correct, but the service control manager
reports back that the service timed out and failed to start. Any clues?
I'm not to familiar with the win32 environment.
Thanks,
Eric
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 10 Oct 2000 19:52:06 -0400
From: H C <carvdawg@patriot.net>
Subject: Re: Trying to add a service in win32 env.
Message-Id: <39E3ABA6.4486D512@patriot.net>
You might want to look at the Win32::Lanman or Win32::Daemon modules...
eedlin@my-deja.com wrote:
> Hello all,
>
> I'm trying to add a service to start automatically at boot.
> Here is the code I have tried:
>
> use strict;
>
> my $Registry;
> use Win32::TieRegistry ( TiedRef=>\$Registry, Delimiter=>"/" );
>
> my $CAP_HOME = Win32::GetCwd();
> $CAP_HOME =~ s/\\bin\S*//;
>
> $Registry->{"LMachine/System/CurrentControlSet/Services/CapSync/"}= {
> "/DisplayName" => [ "CapSync", "REG_SZ"],
> "/ErrorControl" => [ "0x0001", "REG_DWORD"],
> "/ImagePath" => [ "$CAP_HOME\\bin\\Start_CapSync.exe",
> "REG_EXPAND_SZ"],
> "/ObjectName" => [ "LocalSystem", "REG_SZ"],
> "/Start" => [ "0x0002", "REG_DWORD"],
> "/Type" => [ "0x0110", "REG_DWORD"],
> } or die "Can not create services entry\n";
>
> The entry into services seems correct, but the service control manager
> reports back that the service timed out and failed to start. Any clues?
> I'm not to familiar with the win32 environment.
>
> Thanks,
>
> Eric
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
Q: Why is Batman better than Bill Gates?
A: Batman was able to beat the Penguin.
------------------------------
Date: Wed, 11 Oct 2000 00:53:22 GMT
From: eedlin@my-deja.com
Subject: Re: Trying to add a service in win32 env.
Message-Id: <8s0dm0$4q3$1@nnrp1.deja.com>
Win32::Lanman??? Daemon??? Can't find anything about them. Not even a
hit on CPAN!?!
Eric
In article <39E3ABA6.4486D512@patriot.net>,
H C <carvdawg@patriot.net> wrote:
> You might want to look at the Win32::Lanman or Win32::Daemon
modules...
>
> eedlin@my-deja.com wrote:
>
> > Hello all,
> >
> > I'm trying to add a service to start automatically at boot.
> > Here is the code I have tried:
> >
> > use strict;
> >
> > my $Registry;
> > use Win32::TieRegistry ( TiedRef=>\$Registry, Delimiter=>"/" );
> >
> > my $CAP_HOME = Win32::GetCwd();
> > $CAP_HOME =~ s/\\bin\S*//;
> >
> > $Registry->{"LMachine/System/CurrentControlSet/Services/CapSync/"}=
{
> > "/DisplayName" => [ "CapSync", "REG_SZ"],
> > "/ErrorControl" => [ "0x0001", "REG_DWORD"],
> > "/ImagePath" => [ "$CAP_HOME\\bin\\Start_CapSync.exe",
> > "REG_EXPAND_SZ"],
> > "/ObjectName" => [ "LocalSystem", "REG_SZ"],
> > "/Start" => [ "0x0002", "REG_DWORD"],
> > "/Type" => [ "0x0110", "REG_DWORD"],
> > } or die "Can not create services entry\n";
> >
> > The entry into services seems correct, but the service control
manager
> > reports back that the service timed out and failed to start. Any
clues?
> > I'm not to familiar with the win32 environment.
> >
> > Thanks,
> >
> > Eric
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
> --
> Q: Why is Batman better than Bill Gates?
> A: Batman was able to beat the Penguin.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 10 Oct 2000 23:47:16 GMT
From: dustintodd@my-deja.com
Subject: Using each() on hash of hashes
Message-Id: <8s09q3$1mb$1@nnrp1.deja.com>
My brain has jumped out of my head and is floping around on the ground.
If I wish to iterate through a hash using while and each, but the hash
is actually stored inside another hash. I am not sure how to get
reference to has stored inside a hash that I can then give to each().
Please help.
- Dustin -
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
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 4576
**************************************
