[17794] in Perl-Users-Digest
Perl-Users Digest, Issue: 5214 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 28 18:05:35 2000
Date: Thu, 28 Dec 2000 15:05:17 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <978044716-v9-i5214@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 28 Dec 2000 Volume: 9 Number: 5214
Today's topics:
Re: Code Review? (Tad McClellan)
Re: Code Review? (David H. Adler)
Re: Code Review? <uri@sysarch.com>
Comm.pl, pipes, and Open2/3 <bonomo@sal.wisc.edu>
Re: Comm.pl, pipes, and Open2/3 (Tad McClellan)
Create time <grillboy6000@my-deja.com>
Error installing Perl 5.6.0 <mail4donpro@home.com>
Re: Error installing Perl 5.6.0 <tony_curtis32@yahoo.com>
Extract the nth word from a line <dpmurphy@emc.com>
Re: Extract the nth word from a line <Mike.Wescott@crosstor.com>
Re: Extract the nth word from a line <bart.lateur@skynet.be>
Re: Extract the nth word from a line <hinson@home.com>
Re: File test (Brian Pontz)
Re: flat file database question simplitia@yahoo.com
Re: flat file database question (Gregory Spath)
Re: Free win32 Perl IDE+easiest way to start learning P <bart.lateur@skynet.be>
Re: Free win32 Perl IDE+easiest way to start learning P <joe+usenet@sunstarsys.com>
Re: Free win32 Perl IDE+easiest way to start learning P <lmoran@wtsg.com>
Re: Free win32 Perl IDE+easiest way to start learning P (Richard Zilavec)
Re: help with no strict 'refs' (Richard Zilavec)
Re: help with no strict 'refs' (Tad McClellan)
Re: help with no strict 'refs' (Richard Zilavec)
HTTPS using LWP but no OpenSSL (Scott Zsori)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 Dec 2000 11:52:10 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Code Review?
Message-Id: <slrn94mrtq.gcu.tadmc@magna.metronet.com>
Colin Watson <cjw44@flatline.org.uk> wrote:
>Tad McClellan <tadmc@metronet.com> wrote:
>>Colin Watson <cjw44@flatline.org.uk> wrote:
>>>Arcana <emerald-arcana@home.com> wrote:
>>>> if ( $ARGV[0] eq "") {
>>>
>>>Perhaps 'if (@ARGV)'?
>
>Indeed, 'unless (@ARGV)', as your followup indirectly pointed out. :)
I hadn't even noticed that problem in _your_ code ... :-)
>>You should probably offer up a reason for that suggested change,
>>since it has a different semantic from the original.
>That's true. Actually, both the original and yours give warnings if
>there are no arguments, which I think was why I picked up on it in the
>first place; 'unless (@ARGV and length $ARGV[0])' would be better and
>otherwise equivalent.
I think the "best" approach would be two tests for two "types"
of error checking:
die "USAGE: myprog <files...>" unless @ARGV;
die "Can't have an empty filename you bonehead" unless length $ARGV[0];
>I think I usually prefer just testing the length of @ARGV out of some
>sense that if people are deliberately providing empty arguments then
>they probably know what they're doing.
That wasn't the case I was thinking of.
If you want to allow spaces in your filenames, you might call
the program (from within some other program):
system "myprog '$fname'" and die ...
And myprog will see an empty string arg if $fname is empty or undef.
Since you cannot foresee all possible uses of your program, it is
best to limit its potential as little as possible.
(though it is already "limited" by taking an argument for the
filename instead of just taking from STDIN. Now it cannot be
inserted into a pipe line (it is "limited").
)
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 28 Dec 2000 20:45:42 GMT
From: dha@panix2.panix.com (David H. Adler)
Subject: Re: Code Review?
Message-Id: <slrn94n9jm.ei9.dha@panix2.panix.com>
On 28 Dec 2000 12:29:15 GMT, Colin Watson <cjw44@flatline.org.uk>
wrote:
>Garry Williams <garry@zvolve.com> wrote:
>>On 28 Dec 2000 02:02:52 GMT, Colin Watson <cjw44@flatline.org.uk> wrote:
>>>Style nit: no need to quote hash keys if they're just words.
>>
>>Hmmm. I wonder if that's good advice?
>>
>> $ perl -wle '$x{"time"} = "Hello, world";print $x{time}'
>> Ambiguous use of {time} resolved to {"time"} at -e line 1.
>> Hello, world
>> $ perl -v
>>
>> This is perl, version 5.004_04 built for sun4-solaris
>
>Interesting:
>
> $ perl-5.004 -v | grep This
> This is perl, version 5.004_05 built for i386-linux
> $ perl-5.004 -wle '$x{"time"} = "Hello, world";print $x{time}'
> Hello, world
[etc.]
To muddy the waters even further, from perldata:
As in some shells, you can put curly brackets around the
name to delimit it from following alphanumerics. In fact,
an identifier within such curlies is forced to be a
string, as is any single identifier within a hash sub-
script. Our earlier example,
$days{'Feb'}
can be written as
$days{Feb}
and the quotes will be assumed automatically. But any-
thing more complicated in the subscript will be inter-
preted as an expression.
So there *is* some backup from the docs for thinking that $hash{time}
would be the same as $hash{'time'}.
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
The perversity of the Universe tends towards a maximum.
------------------------------
Date: Thu, 28 Dec 2000 22:20:27 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Code Review?
Message-Id: <x7wvck9oic.fsf@home.sysarch.com>
>>>>> "TM" == Tad McClellan <tadmc@metronet.com> writes:
TM> Colin Watson <cjw44@flatline.org.uk> wrote:
>> Arcana <emerald-arcana@home.com> wrote:
>>> Does anyone here mind doing a review of my script and making appropriate
>>> comments? I don't have specific problems, but I'd like to perhaps be
>>> enlightened in some of the finer points of programming.
>>> if ( $ARGV[0] eq "") {
>>
>> Perhaps 'if (@ARGV)'?
TM> You should probably offer up a reason for that suggested change,
TM> since it has a different semantic from the original.
TM> Perhaps 'if ( length $ARGV[0] )'
TM> could have gone unqualified, because it is equivalent.
TM> Your alternative is not equivalent to the original.
TM> The original has the correct semantic if $ARGV[0] should happen
TM> to be the empty string. The proposed change won't do The Right
TM> Thing in that case...
but did you really expect the OP was looking for a non-null string in
$ARGV[0]?
both yours and his code warns with -w and no @ARGV. colin was just
trying to convert it to the common test of seeing if @ARGV is
populated. if it is, then you could test for length or eq to ''.
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: Thu, 28 Dec 2000 13:22:46 -0600
From: Richard Bonomo <bonomo@sal.wisc.edu>
Subject: Comm.pl, pipes, and Open2/3
Message-Id: <3A4B9306.1950E0FD@sal.wisc.edu>
Hello!
I am attempting to write a perl script which will
interact with a system untility or any other program,
the script taking on the role normally played by
the human operator manning the keyboard.
1. I have seen multiple references to "Comm.pl" being
suitef for this, but when I reference it, it reports
an error on line 995, which contains, simply <<EOF; .
I tried sending e-mail to the creator to the creator
of the module, but the address is dead. Does
anyone know anything about this?
2. When using a pipe set up with IPC:Open2,
the examples show the input to the script being
read using a contruction like this:
$foo = <PIPENAME>;
It appears to me that the $foo will not be filled
with the current contents of the pipe until a
"newline" character is sent through. If this is
the behavior with angle brackets, which operator
or technique does one use if a newline is not
generated?
Thank you.
Rich B.
--
************************************************
Richard Bonomo
UW Space Astronomy Laboratory
ph: (608) 263-4683 telefacsimile: (608) 263-0361
SAL-related email: bonomo@sal.wisc.edu
all other email: bonomo@ece.wisc.edu
web page URL: http://www.cae.wisc.edu/~bonomo
************************************************
------------------------------
Date: Thu, 28 Dec 2000 13:07:33 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Comm.pl, pipes, and Open2/3
Message-Id: <slrn94n0b5.gjr.tadmc@magna.metronet.com>
Richard Bonomo <bonomo@sal.wisc.edu> wrote:
>
>I am attempting to write a perl script which will
>interact with a system untility or any other program,
>the script taking on the role normally played by
>the human operator manning the keyboard.
Expect.pm was built for just such a situation. Have you
looked at that module yet?
>1. I have seen multiple references to "Comm.pl" being
>suitef for this, but when I reference it, it reports
>an error on line 995, which contains, simply <<EOF; .
^^^^^^^^
We cannot help with your "mystery error".
If you could give us the verbatim text of the message, then
we might be able to help.
Error/warning messages are meant to be helpful in debugging
problems. You should include the message text when seeking
debugging help. Help the helpers help you (and look up
the message in perldiag.pod before posting too).
[
use PSI::ESP:
Might there be Carriage Returns or other non-printing characters
in your source file?
]
See Perl FAQ, part 4:
"Why don't my <<HERE documents work?"
Note also, that the error is likely NOT on line 995, but on
one of the subsequent lines (before the EOF terminator).
>which operator
>or technique does one use if a newline is not
>generated?
perldoc -f read
or
perldoc -f sysread
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 28 Dec 2000 22:49:24 GMT
From: Mikey N <grillboy6000@my-deja.com>
Subject: Create time
Message-Id: <92gg1h$3o5$1@nnrp1.deja.com>
I'm a newbie Perl programmer and I'm having a tough time with time
functions. Is there any way to create a time object with a date in this
format:
'yyyy-mm-dd'?
For instance. I'm working with mysql and one field in the table I'm
working on is date. The values are formatted, for example,
'2000-12-25'. I would like to be able to use this format to create a
string that says:
"The data for Monday, Dec. 25th is ..."
but generate the 'Monday' and the 'December' part of that string
dynamically based on the value of the field I mentioned above. How can
I do this?
Thanks.
Mike Nass(grillboy6000)
miken@backtothebible.org
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 28 Dec 2000 20:03:53 GMT
From: "Don" <mail4donpro@home.com>
Subject: Error installing Perl 5.6.0
Message-Id: <J0N26.170860$_5.37909145@news4.rdc1.on.home.com>
Hi,
I am running RedHat Linux 6.2
I did a complete install of everything as well as all the security and bug
fixes.
Attempting to install perl 5.6.0, when I run make, I get the following error
output. Note that when I checked the /usr/include/sys directory, none of
the subdirectories exist.
Maybe this is not a Perl problem but I'm not really sure.
=================
/usr/include/sys/param.h:24: linux/limits.h: No such file or directory
/usr/include/sys/param.h:25: linux/param.h: No such file or directory
In file included from /usr/include/netinet/in.h:27,
from perl.h:654,
from miniperlmain.c:12:
/usr/include/bits/socket.h:295: asm/socket.h: No such file or directory
In file included from /usr/include/errno.h:36,
from perl.h:711,
from miniperlmain.c:12:
/usr/include/bits/errno.h:25: linux/errno.h: No such file or directory
In file included from /usr/include/sys/ioctl.h:27,
from perl.h:772,
from miniperlmain.c:12:
/usr/include/bits/ioctls.h:24: asm/ioctls.h: No such file or directory
In file included from /usr/include/sys/ioctl.h:30,
from perl.h:772,
from miniperlmain.c:12:
/usr/include/bits/ioctl-types.h:25: asm/ioctls.h: No such file or directory
In file included from /usr/include/signal.h:300,
from unixish.h:93,
from perl.h:1568,
from miniperlmain.c:12:
/usr/include/bits/sigcontext.h:28: asm/sigcontext.h: No such file or
directory
make: *** [miniperlmain.o] Error 1
=================
------------------------------
Date: 28 Dec 2000 14:06:36 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Error installing Perl 5.6.0
Message-Id: <87u27owbsj.fsf@limey.hpcc.uh.edu>
>> On Thu, 28 Dec 2000 20:03:53 GMT,
>> "Don" <mail4donpro@home.com> said:
> Attempting to install perl 5.6.0, when I run make, I get the
> following error output. Note that when I checked the
> /usr/include/sys directory, none of the subdirectories exist.
These headers (in the snipped error message) are part of the kernel.
You need to install the linux kernel headers. The package
installation should fix up the symlinks from /usr/include.
hth
t
--
Eih bennek, eih blavek.
------------------------------
Date: Thu, 28 Dec 2000 16:25:33 -0500
From: "News" <dpmurphy@emc.com>
Subject: Extract the nth word from a line
Message-Id: <92gb3e$kbk2@emcnews1.lss.emc.com>
I would like to extract a word in a particular position in a line.
For example, if $_ is the line "This is a Perl script", I might want to
extract the word "Perl" and assign it to a variable.
I would like to do this for a word in any position in the line.
Thanks.
------------------------------
Date: 28 Dec 2000 16:38:08 -0500
From: Mike Wescott <Mike.Wescott@crosstor.com>
Subject: Re: Extract the nth word from a line
Message-Id: <ouu27omdkv.fsf@strange.cae.crosstor.com>
"News" <dpmurphy@emc.com> writes:
> I would like to extract a word in a particular position in a line.
> For example, if $_ is the line "This is a Perl script", I might want to
> extract the word "Perl" and assign it to a variable.
> I would like to do this for a word in any position in the line.
Sounds like a job for split.
$x = (split)[3];
Read perldoc -f split since it is likely you want to be a little
more clever that the above.
--
Mike Wescott
mike.wescott@crosstor.com
------------------------------
Date: Thu, 28 Dec 2000 21:51:08 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Extract the nth word from a line
Message-Id: <kcdn4ts8uab13fsgqeas837lhru3nqosnm@4ax.com>
News wrote:
>I would like to extract a word in a particular position in a line.
>For example, if $_ is the line "This is a Perl script", I might want to
>extract the word "Perl" and assign it to a variable.
>I would like to do this for a word in any position in the line.
It depends on your definition of "word". Assuming it's a string of
"word" characters (letter, digit of underscore), then this will do:
@words = /(\w+)/g;
print $words[3]; # fourth word -- first is at index 0
--
Bart.
------------------------------
Date: Thu, 28 Dec 2000 21:54:12 GMT
From: Roger Hinson <hinson@home.com>
Subject: Re: Extract the nth word from a line
Message-Id: <3A4BB5FB.3E82D9DD@home.com>
I grabbed this out of the Perl FAQ.. Please e-mail reply to me.. I
have a question for you..
How do I change the Nth occurrence of something?
You have to keep track of N yourself. For example, let's say you want to
change the fifth occurrence of "whoever" or "whomever" into "whosoever"
or "whomsoever", case insensitively.
$count = 0;
s{((whom?)ever)}{
++$count == 5 # is it the 5th?
? "${2}soever" # yes, swap
: $1 # renege and leave it there
}igex;
In the more general case, you can use the /g modifier in a while loop,
keeping count of matches.
$WANT = 3;
$count = 0;
while (/(\w+)\s+fish\b/gi) {
if (++$count == $WANT) {
print "The third fish is a $1 one.\n";
# Warning: don't `last' out of this loop
}
}
That prints out: "The third fish is a red one." You can also use a
repetition count and repeated pattern like this:
/(?:\w+\s+fish\s+){2}(\w+)\s+fish/i;
News wrote:
>
> I would like to extract a word in a particular position in a line.
> For example, if $_ is the line "This is a Perl script", I might want to
> extract the word "Perl" and assign it to a variable.
> I would like to do this for a word in any position in the line.
> Thanks.
------------------------------
Date: Thu, 28 Dec 2000 20:48:17 GMT
From: pontz@NO_SPAM.channel1.com (Brian Pontz)
Subject: Re: File test
Message-Id: <3a4ba6f3.20723809@news.e-dialog.com>
>No he isn't.
>
>He is using single quotes where he should be using no quotes at all!
>
>:-)
picky picky picky
Brian Pontz
------------------------------
Date: Thu, 28 Dec 2000 20:52:05 GMT
From: simplitia@yahoo.com
Subject: Re: flat file database question
Message-Id: <92g95h$u46$1@nnrp1.deja.com>
In article <3A4B8930.58897065@stargate.net>,
"Adam C. Mihlfried" <adamm@stargate.net> wrote:
> I was wondering if anyone has come across a good program that handles
> flatfile databases through perl. More specifically one that can
handle a
> directory-like structure with category->subcategory->record
information.
>
Wow what a coincidence! I was just in the process of writing a program
in PERL that mimicks the standard relational database queries. For
example filed->row search queries. It works by taking a flat text-
file, and in the background do queries just like a relatonal database.
And the cool thing about it, is that-since it was written entirely in
PERL, one can also do relational queries using PERL's awesome regular
expressions!
It is nearly complete! And so far I try to throw everything at it, and
it seem to work great. The only complaint that I have is the speed
though. It takes about 1 sec to do a multiple query of a thousand
records. This is actually one reason not released it yet, but I will
be working on it on my spare time!
Also, the reaon why I build it was because I was sick and tired of ISP
free/fee not having the proper database engines I can use. The intent
of my program is for people to have acceess to a proper database, and
not have to pay so much money for it. Can I ask why you asked this
question-or to whoever else is reading this, and is interested as
well? Is it because of the lack of access or just the lack of
knowledge on database? It would help me a lot if I know someone find
this project I am working on to be helpful. Comments are welcome.
thank you.
Alex :)
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 28 Dec 2000 21:10:51 -0000
From: gspath@freefall.homeip.net (Gregory Spath)
Subject: Re: flat file database question
Message-Id: <slrn94nb0p.sh4.gspath@freefall.homeip.net>
IIRC, there is a DBI module that allows use of flat files. Check out
CPAN.
In <3A4B8930.58897065@stargate.net>, Adam C. Mihlfried (adamm@stargate.net) wrote:
>I was wondering if anyone has come across a good program that handles
>flatfile databases through perl. More specifically one that can handle a
>directory-like structure with category->subcategory->record information.
>
>Sorry if this is the wrong newsgroup or anything.
>Thanks
>Adam
>adamm@stargate.net
>
--
Gregory Spath
gspath@freefall.homeip.net http://freefall.homeip.net/
SCHeckler on IRC ----------> http://freefall.homeip.net/javairc/
Team YBR ------------------> http://www.yellowbreechesracing.org/
------------------------------
Date: Thu, 28 Dec 2000 22:09:00 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Free win32 Perl IDE+easiest way to start learning Perl
Message-Id: <8mdn4t4oq4legg820itgsud0omgt4tcbau@4ax.com>
Samuel Rydén wrote:
>No need for a specific Perl IDE, a decent general
>> "programmer editor" will do.
>
>Do you perhaps have one to recommend?
There used to be a Perl oriented "editors" page for Win32, but it looks
like it's gone.
Anyway, I've tried quite a few editors, and they're either too
lightweight (like notepad), or too heavy-weight to me. These are the
ones I likes best:
PFE freeware, but no longer maintained
<http://www.lancs.ac.uk/people/cpaap/pfe/>
Textpad shareware <http://www.textpad.com/>
GWDedit shareware <http://www.gwdsoft.com/>
Others that quite didn't hit the mark for me (but maybe they work for
you):
Zeus <http://www.zeusedit.com/>
Multi-Edit (very heavy-weight, far too many features, changing
one option requires you to go 6 levels deep. Plus, once you download the
trial version, they keep spamming you with "helpful eimails")
<http://www.multiedit.com/>
UltraEdit <http://www.ultraedit.com/>
--
Bart.
------------------------------
Date: 28 Dec 2000 17:17:23 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Free win32 Perl IDE+easiest way to start learning Perl
Message-Id: <m3ito48a30.fsf@mumonkan.sunstarsys.com>
Bart Lateur <bart.lateur@skynet.be> writes:
> Samuel Rydén wrote:
>
> >No need for a specific Perl IDE, a decent general
> >> "programmer editor" will do.
> >
> >Do you perhaps have one to recommend?
>
> There used to be a Perl oriented "editors" page for Win32, but it looks
> like it's gone.
>
> Anyway, I've tried quite a few editors, and they're either too
> lightweight (like notepad), or too heavy-weight to me. These are the
> ones I likes best:
>
> PFE freeware, but no longer maintained
> <http://www.lancs.ac.uk/people/cpaap/pfe/>
> Textpad shareware <http://www.textpad.com/>
> GWDedit shareware <http://www.gwdsoft.com/>
>
> Others that quite didn't hit the mark for me (but maybe they work for
> you):
>
> Zeus <http://www.zeusedit.com/>
> Multi-Edit (very heavy-weight, far too many features, changing
> one option requires you to go 6 levels deep. Plus, once you download the
> trial version, they keep spamming you with "helpful eimails")
> <http://www.multiedit.com/>
> UltraEdit <http://www.ultraedit.com/>
Any reason a cross-platform editor like emacs didn't make your list?
http://www.emacs.org
--
Joe Schaefer
------------------------------
Date: Thu, 28 Dec 2000 17:24:19 -0500
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Free win32 Perl IDE+easiest way to start learning Perl
Message-Id: <a1fn4tk7paeca7cpb70964sojsqbourmck@4ax.com>
On Thu, 28 Dec 2000 02:40:43 GMT, nb-news@Xusa.netREMOVEX (Neerav)
wrote wonderful things about sparkplugs:
>hi
>
>I have looked extensively on the Net for a free IDE to use with the
>ActiveState Perl 5.6 i just downloaded and have been unable to find
>one. i tried CodeMagic but found it was a 30 day demo which is
>useless.
>
Ultraedit is nice, it costs 30 bucks. It's probably worth it.
Xemacs for WIN32 is free and if you use a *nix that's nice if you use
Xemacs or emacs now b/c you won't have to learn anything new. I don't
know if there is a vi version for Windows, but ewww anyway.
>I Also, I would appreciate it if someone could tell me a good way to
>learn Perl, and how Perl works is it eg: compiled like C++ or
>interpreted on the fly by a web browser or what?
>
Read the Docs you can find them in
Start-->Programs--->Active State
>
>
>Cya L8er
^^^^^^^^
when\why did license plate English become so popular?
>
>Neerav :-]
>
>Webmaster of the Adextinguisher homepage.
>Adextinguisher is a freeware banner ad blocking program
>located at http://adext.magenet.com
lmoran@wtsgSPAM.com
print "\x{263a}"
------------------------------
Date: Thu, 28 Dec 2000 22:24:49 GMT
From: rzilavec@tcn.net (Richard Zilavec)
Subject: Re: Free win32 Perl IDE+easiest way to start learning Perl
Message-Id: <3a55bc96.15682102@news.tcn.net>
On Thu, 28 Dec 2000 12:24:01 +0100, "Samuel Rydén" <samuel@knm-e.se>
wrote:
>> As for learning perl: I'd get a decent text editor, one that can run
>> "external tools", and capture their outputs (STDOUT and STDERR) in
>> another window. In that case, you can edit a perl script, click on the
>> "run" menu item or button, and you almost immediately see the result in
>> a new editor window. No need for a specific Perl IDE, a decent general
>> "programmer editor" will do.
>
>Do you perhaps have one to recommend?
http://www.reedkotler.com/RKTOOLS/rktools.html
This is a Unix like toolset for Win NT/95/98.. very cool and it comes
with vi/vim which you can run is tcsh. ( also comes with the kit )
Along with others like awk, tail, rm, grep, 100+ programs. Lots of
fun.
--
Richard Zilavec
rzilavec@tcn.net
------------------------------
Date: Thu, 28 Dec 2000 19:26:21 GMT
From: rzilavec@tcn.net (Richard Zilavec)
Subject: Re: help with no strict 'refs'
Message-Id: <3a4c92e4.5007256@news.tcn.net>
On Thu, 28 Dec 2000 16:13:26 GMT, rzilavec@tcn.net (Richard Zilavec)
wrote:
I think I have it.....
my $state = new StateInfo;
$state->writestate('rzilavec',
{
'ENV' => \%ENV,
'cgi' => \%cgi,
'sys' => \%sys,
} );
and now the in writestate
foreach $hashref (keys %$hashes) {
print OUT "[$hashref]\n";
foreach $key (keys %{$hashes->{$hashref}}) {
print OUT $key . $self->{'DELIMITER'} .
%{$hashes->{$hashref}}->{$key} . "\n";
}
}
It's just not pretty to work with and when I look at this
tomorrow..... hmmm.
Thanks for all the help!
--
Richard Zilavec
rzilavec@tcn.net
------------------------------
Date: Thu, 28 Dec 2000 13:16:35 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: help with no strict 'refs'
Message-Id: <slrn94n0s3.gjr.tadmc@magna.metronet.com>
Richard Zilavec <rzilavec@tcn.net> wrote:
>On Thu, 28 Dec 2000 16:13:26 GMT, rzilavec@tcn.net (Richard Zilavec)
>wrote:
>
>I think I have it.....
>
>my $state = new StateInfo;
>$state->writestate('rzilavec',
> {
> 'ENV' => \%ENV,
> 'cgi' => \%cgi,
> 'sys' => \%sys,
> } );
>
>foreach $hashref (keys %$hashes) {
^^^^^^^
Gak! What an awful name. The values of that variable are NOT
hash references. Use a meaningful, rather than misleading,
variable name:
foreach $hashname (keys %$hashes) {
'hashref' would be an appropriate name if you were calling
values() instead of keys() though.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 28 Dec 2000 20:32:53 GMT
From: rzilavec@tcn.net (Richard Zilavec)
Subject: Re: help with no strict 'refs'
Message-Id: <3a4ea1cc.8823232@news.tcn.net>
On Thu, 28 Dec 2000 13:16:35 -0500, tadmc@metronet.com (Tad McClellan)
wrote:
>Gak! What an awful name. The values of that variable are NOT
>hash references. Use a meaningful, rather than misleading,
>variable name:
>
> foreach $hashname (keys %$hashes) {
>
>'hashref' would be an appropriate name if you were calling
>values() instead of keys() though.
Good point, it should help me later when I attempt to modify the
current code.
--
Richard Zilavec
rzilavec@tcn.net
------------------------------
Date: 28 Dec 2000 22:53:54 GMT
From: newsgroup@nathigh.com (Scott Zsori)
Subject: HTTPS using LWP but no OpenSSL
Message-Id: <3a4bc482$0$57179$272ea4a1@news.execpc.com>
How do you perform a HTTPS GET? I know the standard response of LWP with
OpenSSL and Net::SSLeay, but I don't have access to OpenSSL or Net:SSLeay
on the server. Any help would be appreciated.
Scott Zsori
http://www.nathigh.com
------------------------------
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 5214
**************************************
