[12658] in Perl-Users-Digest
Perl-Users Digest, Issue: 67 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 7 18:17:16 1999
Date: Wed, 7 Jul 1999 15:06:33 -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 Wed, 7 Jul 1999 Volume: 9 Number: 67
Today's topics:
Re: hiring perl programmers <cassell@mail.cor.epa.gov>
Re: how to compare a "string" with /etc/shadow password <spike_YYwhiteYY@YYdellYY.com>
How to read HUGE text file in PERL? jteens@my-deja.com
Re: How to read HUGE text file in PERL? (Rich Morin)
Re: How to read HUGE text file in PERL? <tchrist@mox.perl.com>
how to return an array from PerlCtrl to vc++ <mike234_26@hotmail.com>
HTTP Proxy programming <bakins@mediaone.net>
Re: I need to hide the source <hiller@email.com>
Re: I need to hide the source (Greg Bacon)
Re: I need to hide the source rdosser@my-deja.com
Re: I need to hide the source rdosser@my-deja.com
Re: I need to hide the source (Bart Lateur)
Re: I need to hide the source <arnej@fc.hp.com>
Re: I need to hide the source (I R A Aggie)
Re: I need to hide the source (Jerome O'Neil)
Re: I need to hide the source <emschwar@rmi.net>
Re: I need to hide the source <tchrist@mox.perl.com>
Re: I need to hide the source <tchrist@mox.perl.com>
Re: Interpreting MS-ASCII - anyone have a filter? (Philip 'Yes, that's my address' Newton)
is anybody here? <sline@rdss.com>
Re: is anybody here? (Brian Pontz)
Re: is anybody here? <sline@rdss.com>
Re: libwww How do I set it up? <gellyfish@gellyfish.com>
Re: META Tag Extraction Script <gellyfish@gellyfish.com>
Re: Modifying a variable inside a sub (Andrew Johnson)
Re: My last hope <hiller@email.com>
Re: My last hope (J. J. Goodrich)
Re: My last hope (Larry Rosler)
need module to parse html file lmoloch@my-deja.com
Need subroutine to create combinations <bpatton@asic.sc.ti.com>
Re: Need to install perls DBI for NT <gellyfish@gellyfish.com>
Net:Telnet.pm question <andreib@bellatlantic.net>
Re: NewBie question <gellyfish@gellyfish.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 07 Jul 1999 11:40:03 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: hiring perl programmers
Message-Id: <37839F03.AA03CC3C@mail.cor.epa.gov>
Greg Bartels wrote:
> [snip of old joke]
> just before dawn, the pyrso struck again. A mathematician
> woke in his room to find his wastebasket on fire. He ran to
> the bathroom, thought a moment, and then took out a match
> and lit it. holding it under the faucet, he turned on the
> water which put out the flame.
>
> "Ah," he said, "it can be done"
>
> and went back to bed.
No no no!
The mathematician finds the burning match. He then throws it
into the trashcan, reducing the problem to an already-solved
case. Q.E.D.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 7 Jul 1999 13:22:28 -0500
From: "Spike White" <spike_YYwhiteYY@YYdellYY.com>
Subject: Re: how to compare a "string" with /etc/shadow password
Message-Id: <7m05oo$k1e$1@galaxy.us.dell.com>
Specifically, the first two chars of the password in /etc/shadow is
the salt you need to pass to the crypt() program. Do a
perldoc -f crypt
for more details.
Spike
Abigail wrote in message ...
>Mike Lin (milin@cisco.com) wrote on MMCXXXV September MCMXCIII in
><URL:news:378280DA.A3F2920E@cisco.com>:
>~~ I am just curious if there is a way to compare a user input string
>~~ against
>~~ the encrypted password in /etc/shadow under Solaris.
>
>
>Yes. Just open /etc/shadow/, write it line by line till you get
>the the right user, filter out the password, encrypt the given
>input string and compare.
>
>Of course, you'll have to run that as root, but you knew that, didn't you?
>
>
>Abigail
>--
>perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>C
D=>(
>0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>
0=>0
>=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}f
or(;
>!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
>
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News
==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
>------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers
==-----
------------------------------
Date: Wed, 07 Jul 1999 19:26:36 GMT
From: jteens@my-deja.com
Subject: How to read HUGE text file in PERL?
Message-Id: <7m09ks$lv8$1@nnrp1.deja.com>
Hello there,
I want to read text file (1 line at a time) from huge file. Please look
at simple code below.
#==========================
open(FH, "textfile.txt");
while ($text = <FH>) {
chop($text);
print "$text\n";
}
close(FH);
#==========================
This code work fine on small file but my text file's very big. It around
500MB, so simple code above didn't work. How can I read huge text file 1
line at a time? Any help would be mostly appreciated.
Thanks.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 07 Jul 1999 13:47:54 PDT
From: rdm@cfcl.com (Rich Morin)
Subject: Re: How to read HUGE text file in PERL?
Message-Id: <rdm-0707991347580001@205.158.144.205>
In article <7m09ks$lv8$1@nnrp1.deja.com>, jteens@my-deja.com wrote:
> Hello there,
> I want to read text file (1 line at a time) from huge file. Please look
> at simple code below.
>
> #==========================
> open(FH, "textfile.txt");
>
> while ($text = <FH>) {
> chop($text);
> print "$text\n";
> }
>
> close(FH);
> #==========================
>
> This code work fine on small file but my text file's very big. It around
> 500MB, so simple code above didn't work. How can I read huge text file 1
> line at a time? Any help would be mostly appreciated.
Please give a few more details. How does the program fail? What OS and
version of Perl are you using? Meanwhile:
* Your "while" test is not robust; use:
while (defined($text = <FH>)) {
* Could the file have a extraordinarily long sequence of bytes
without newlines and thus be running you out of memory? You
can write a test program for this using a getc loop; tally
the line lengths and pring out out the length of the longest
line found...
-r
--
Canta Forda Computer Laboratory | Prime Time Freeware - quality
UNIX consulting, training, & writing | freeware at affordable prices
+1 650-873-7841 | +1 408-433-9662 -0727 (Fax)
Rich Morin, rdm@cfcl.com | www.ptf.com, info@ptf.com
------------------------------
Date: 7 Jul 1999 15:42:28 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to read HUGE text file in PERL?
Message-Id: <3783c9c4@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, rdm@cfcl.com (Rich Morin) writes:
:> while ($text = <FH>) {
: * Your "while" test is not robust; use:
: while (defined($text = <FH>)) {
Um, yes, it is "robust":
[ 949] By: TimBunce on 1998/05/14 15:11:30
Log:
Title: "while($x=<>) no longer warns (implicit defined added)"
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Msg-ID: <199805051035.LAA27365@pluto.tiuk.ti.com>
Files: MANIFEST op.c t/op/defins.t
Branch: maint-5.004/perl
+ t/op/defins.t
! MANIFEST op.c
And even if it were not, the situation is so surpassingly rare that
I cannot imagine that this was the user's problem.
--tom
--
Besides, it's good to force C programmers to use the toolbox occasionally. :-)
--Larry Wall in <1991May31.181659.28817@jpl-devvax.jpl.nasa.gov>
------------------------------
Date: Wed, 07 Jul 1999 20:08:57 +0200
From: Mike <mike234_26@hotmail.com>
Subject: how to return an array from PerlCtrl to vc++
Message-Id: <378397B9.BF145CDE@hotmail.com>
Hi!
I'm grateful if anyone can show me how to return an array from PerlCtrl
to vc++. I'm using 'VT_BSTR | VT_ARRAY' as return type. I'm just trying
to modify HelloCtrl to return an array of strings. So how can I access
the array from vc++? Should I use varResult.parray in some way or what?
thank you!
/mike
------------------------------
Date: Wed, 07 Jul 1999 07:57:59 -0400
From: "M. Brian Akins" <bakins@mediaone.net>
Subject: HTTP Proxy programming
Message-Id: <378340C7.E8C8A58A@mediaone.net>
I have written a simple program based on the fwdport example in "The
Perl Cookbook" which acts as a simple proxy server. It justs moves
packets around.
I have a problem though. When connecting to apche servers which use
name based virtual hosting, since I am only connecting via IP, I get the
default "host" on that server. What I need is a way to determin from
the HTTP request from a browser what server they are attempting to
connect to by name and then forward this to the apache server. Right
now all I can see is the generice HTTP request: "GET / HTTP 1.0".
Any help out here??
Please e-mail me directly.
Thanks,
Brian
------------------------------
Date: Wed, 07 Jul 1999 18:37:40 GMT
From: Jordan Hiller <hiller@email.com>
Subject: Re: I need to hide the source
Message-Id: <37839E75.8E7E4435@email.com>
I can't quite figure this out...mind explaining how to use it?
Thanks,
Jordan
Greg Bacon wrote:
>
> In article <7lvsff$fuo$1@nnrp1.deja.com>,
> rdosser@my-deja.com writes:
> : Odd request here - I need to write a script in perl, but somehow encrypt
> : or encapsulate the source in a binary so that other users on the host -
> : including root - cannot read it.
>
> #! /usr/bin/perl -w
>
> # Copyright (c) 1998 Greg Bacon. All Rights Reserved.
> # This program is free software. You may distribute it or modify
> # it (perhaps both) under the terms of the Artistic License that
> # comes with the Perl Kit.
>
> use strict;
> use integer;
>
> foreach my $file (@ARGV) {
> unless (open FILE, $file) {
> warn "$0: failed open $file: $!\n";
> next;
> }
>
> my $key = int rand 256;
>
> my $out = <<EOTop;
> #! /usr/bin/perl
>
> my \$prog = '';
>
> {
> my \$key = $key;
> local \$/;
>
> \$prog = pack "c*",
> map { \$_ ^= \$key }
> unpack "c*", <DATA>;
> }
>
> eval \$prog;
> __END__
> EOTop
>
> while (<FILE>) {
> $out .= pack "c*",
> map { $_ ^= $key }
> unpack "c*", $_;
> }
> close FILE;
>
> unless (open FILE, ">$file") {
> warn "$0: failed open >$file: $!\n";
> next;
> }
>
> print FILE $out;
> close FILE;
> }
>
> Enjoy,
> Greg
> --
> A great many people think they are thinking when they are merely rearranging
> their prejudices.
> -- William James
--
Jordan Hiller (hiller@email.com)
JavaScript and Perl programs for
making online tests and quizzes:
http://web-shack.hypermart.net/quiz.html
------------------------------
Date: 7 Jul 1999 18:53:08 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: I need to hide the source
Message-Id: <7m07mk$8p2$1@info2.uah.edu>
In article <37839E75.8E7E4435@email.com>,
Jordan Hiller <hiller@email.com> writes:
: I can't quite figure this out...mind explaining how to use it?
% encrypt prog
Greg
--
Only two things are infinite, the universe and human stupidity, and I'm not
sure about the former.
-- Albert Einstein
------------------------------
Date: Wed, 07 Jul 1999 19:26:57 GMT
From: rdosser@my-deja.com
Subject: Re: I need to hide the source
Message-Id: <7m09lg$lvh$1@nnrp1.deja.com>
In article <m3g1308n5g.fsf@moiraine.dimensional.com>,
Daniel Grisinger <dgris@perrin.dimensional.com> wrote:
>
> Yup. You can't do that, and you don't actually want to
> anyway. To discover why you can't, learn unix. To
> discover why you don't want to, consult the faq.
>
> HTH.
> HAND.
Thanks for your prompt response.
I know about perl and UNIX permissions, thanks. That's why I asked about
binary encapsulation.
I need to hide a decryption algorithm for confidential data. That's
probably not in the FAQ.
HAND.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 07 Jul 1999 19:31:56 GMT
From: rdosser@my-deja.com
Subject: Re: I need to hide the source
Message-Id: <7m09vd$m44$1@nnrp1.deja.com>
That's neat stuff, thanks.
It doesn't quite solve my problem - you can grab a copy of the resulting
script and alter it print $prog instead of "eval"ing it to determine the
content of the code.
I should have explained more: I'm trying to conceal a decryption
algorithm for confidential data.
Thanks,
Ralph Dosser
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 07 Jul 1999 20:11:38 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: I need to hide the source
Message-Id: <3785b3db.1840536@news.skynet.be>
rdosser@my-deja.com wrote:
>Odd request here - I need to write a script in perl, but somehow encrypt
>or encapsulate the source in a binary so that other users on the host -
>including root - cannot read it.
>
>Any thoughts?
rm -f script.pl
The only bug is that the script no longer runs.
Bart.
------------------------------
Date: Wed, 07 Jul 1999 14:48:44 -0600
From: Arne Jamtgaard <arnej@fc.hp.com>
Subject: Re: I need to hide the source
Message-Id: <3783BD2C.483D@fc.hp.com>
rdosser@my-deja.com wrote:
> Odd request here - I need to write a script in perl, but somehow
> encrypt or encapsulate the source in a binary so that other users
> on the host - including root - cannot read it.
> Any thoughts?
My first thought is "Why perl? It's not the best choice for
'secret scripts.'"
Have you considered compiling your decrypter in C and calling it
from within your perl script?
> Thanks,
> Ralph Dosser
HTH,
Arne
------------------------------
Date: 7 Jul 1999 20:45:57 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: I need to hide the source
Message-Id: <slrn7o7f8f.cff.fl_aggie@thepentagon.com>
On Wed, 07 Jul 1999 19:31:56 GMT, rdosser@my-deja.com <rdosser@my-deja.com>, in
<7m09vd$m44$1@nnrp1.deja.com> wrote:
+ I should have explained more: I'm trying to conceal a decryption
+ algorithm for confidential data.
Security by obscurity isn't.
James
------------------------------
Date: 7 Jul 1999 20:54:52 GMT
From: jeromeo@atrieva.com (Jerome O'Neil)
Subject: Re: I need to hide the source
Message-Id: <7m0eqs$7cq$1@brokaw.wa.com>
In article <7m09lg$lvh$1@nnrp1.deja.com>,
rdosser@my-deja.com writes:
> In article <m3g1308n5g.fsf@moiraine.dimensional.com>,
> Daniel Grisinger <dgris@perrin.dimensional.com> wrote:
> I need to hide a decryption algorithm for confidential data. That's
> probably not in the FAQ.
Not in a Perl FAQ, but if you check *any* encryption paper, they will
all tell you if you need to hide your algorithm, you don't
have security.
Security by obscurity is not security.
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.i-filezone.com
------------------------------
Date: 07 Jul 1999 15:10:20 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: I need to hide the source
Message-Id: <xkfu2rgf9oj.fsf@valdemar.col.hp.com>
rdosser@my-deja.com writes:
> I need to hide a decryption algorithm for confidential data.
No you don't. That's security by obsfucation, and it's generally a poor
strategy. If your encryption algorithm is sound, then merely being able
to read the source will not compromise it. If it's a poor algorithm,
then hiding the source won't protect your files. Ever hear of
decompilers?
-=Eric
------------------------------
Date: 7 Jul 1999 15:34:57 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: I need to hide the source
Message-Id: <3783c801@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, rdosser@my-deja.com writes:
:I should have explained more: I'm trying to conceal a decryption
:algorithm for confidential data.
The only crypto algorithms that are even worth contemplating are those
whose exact behaviour and source code are fully revealed. Otherwise
they can be neither interesting nor provably secure.
--tom
--
"There are two major products that come out of Berkeley: LSD and Unix. We
don't believe this to be a coincidence." || - Jeremy S. Anderson
------------------------------
Date: 7 Jul 1999 15:37:28 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: I need to hide the source
Message-Id: <3783c898@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Arne Jamtgaard <arnej@fc.hp.com> writes:
:Have you considered compiling your decrypter in C and calling it
:from within your perl script?
That's going to do nothing to stop someone who isn't a complete idiot --
and the bad guys aren't.
--tom
--
"You're flame-proof in the same sense that certain plastics are fluorine-proof."
--Larry Wall
------------------------------
Date: Wed, 07 Jul 1999 17:32:40 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Interpreting MS-ASCII - anyone have a filter?
Message-Id: <37838bfe.302188419@news.nikoma.de>
On Wed, 07 Jul 1999 07:32:08 GMT, bart.lateur@skynet.be (Bart Lateur)
wrote:
>This one ough to work right. It not only processes the 3 "standard" ways
>correctly, but also the illegal but oh so frequently encountered
>CR+CR+LF sequence, which you can get by uploading HTML files from a PC
>in binary, and then downloading them through the web.
>
> s/\015\015?\012|\012|\015/\n/g;
Anyone heard of the `ha' archiver? I had version 0.98 and used it for
a while for my private use, as it compressed really well. However, I
never saw anyone else use it.
The builtin help had \012\015 line endings, which caused double
spacing when I viewed it with 4DOS's LIST /S command, which was ugly.
Only time I've come across that strange combination, though.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Wed, 07 Jul 1999 15:41:32 -0400
From: Steven Line <sline@rdss.com>
Subject: is anybody here?
Message-Id: <3783AD6C.AB981FC9@rdss.com>
Hi,
This group is empty. Perhaps my newsreader is screwed.
Let's see if I get this.
Steve
--
Steven Line Comtech Mobile Datacom, Corp.
Ph: +1 301-428-2107 19540 Amaranth Drive
Fx: +1 301-428-1004 Germantown, MD 20875
------------------------------
Date: Wed, 07 Jul 1999 20:18:23 GMT
From: pontz@channel1.com (Brian Pontz)
Subject: Re: is anybody here?
Message-Id: <3783b5b9.21011382@news2.channel1.com>
On Wed, 07 Jul 1999 15:41:32 -0400, Steven Line <sline@rdss.com>
wrote:
>This group is empty.
No one here but us chickens
Brian Pontz
------------------------------
Date: Wed, 07 Jul 1999 15:47:58 -0400
From: Steven Line <sline@rdss.com>
Subject: Re: is anybody here?
Message-Id: <3783AEEE.A061F1AE@rdss.com>
The newsreader was hosed. Sorry for the wasted bandwidth.
Steven Line wrote:
>
> Hi,
>
> This group is empty. Perhaps my newsreader is screwed.
>
> Let's see if I get this.
>
> Steve
>
> --
> Steven Line Comtech Mobile Datacom, Corp.
> Ph: +1 301-428-2107 19540 Amaranth Drive
> Fx: +1 301-428-1004 Germantown, MD 20875
--
Steven Line Comtech Mobile Datacom, Corp.
Ph: +1 301-428-2107 19540 Amaranth Drive
Fx: +1 301-428-1004 Germantown, MD 20875
------------------------------
Date: 7 Jul 1999 21:20:01 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: libwww How do I set it up?
Message-Id: <7m0ga1$up$1@gellyfish.btinternet.com>
On Tue, 06 Jul 1999 20:30:57 GMT B wrote:
> I have downloaded libwww-perl-5.43 (in tar archive). When I looked at it
> all I just got confused! Where exactly do I upload these files to? My
> cgi-bin? And do I need them all, if for example all I want to do is use, as
> has been suggested in this ng, LWP:SIMPLE to retrieve a web page.
>
You should unpack the file and follow the instructions in the README file
therein.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Jul 1999 20:39:44 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: META Tag Extraction Script
Message-Id: <7m0dug$u6$1@gellyfish.btinternet.com>
On Tue, 06 Jul 1999 20:59:16 GMT wired2000@my-deja.com wrote:
> Hi,
>
> I'm trying to figure out the best way to grab data inside a META tag.
> For example:
> <META name="description" content="Hello world">
> <META HTTP-EQUIV="Refresh" content="5;http://www.myworld.com">
>
> Would report back data in terms of an array or any basic way of extract
> data from META Tags. Ideally such that I can get something like this:
>
I would use the module HTML::HeadParser for convenience - though you will
need to get the page into a scalar rather than an array.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 07 Jul 1999 17:03:19 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: Modifying a variable inside a sub
Message-Id: <rLLg3.4707$SH6.119506@news1.rdc2.on.home.com>
In article <MPG.11edcba2c4e48787989b11@news-server>,
elephant <e-lephant@b-igpond.com> wrote:
[snip]
! sub emptyIt() { # second of the three correct lines
! $h = shift; # third
I would hardly call defining a sub with an empty prototype
correct when the subroutine obviously expects an argument.
regards
andrew
------------------------------
Date: Wed, 07 Jul 1999 18:16:22 GMT
From: Jordan Hiller <hiller@email.com>
Subject: Re: My last hope
Message-Id: <37839977.BB01CE59@email.com>
How do you decipher this?
Is it:
"-1" = GMT -1 hours
"DST" = uses Daylight Savings Time
And what is MET?
Thanks,
Jordan
Andreas Fehr wrote:
>
> On Wed, 7 Jul 1999 09:38:55 -0400 (EDT), JJ353@webtv.net (J. J.
> Goodrich) wrote:
>
> >Ok I once saw a script that would automatically retrieve your time zone
> >some how...It would some how figure out your time zone and display the
> >time for that time zone on the page does anyone have this script?
> >
>
> On some systems there is a environment variable (as we call them on
> DOS) TZ=MET-1DST
>
> Andreas
--
Jordan Hiller (hiller@email.com)
JavaScript and Perl programs for
making online tests and quizzes:
http://web-shack.hypermart.net/quiz.html
------------------------------
Date: Wed, 7 Jul 1999 15:10:38 -0400 (EDT)
From: JJ353@webtv.net (J. J. Goodrich)
Subject: Re: My last hope
Message-Id: <3863-3783A62E-13@newsd-198.iap.bryant.webtv.net>
Its not javascript its perl...What it does is somehow the PERL script
reads something about the user and when that user visits the page it
says the time for that user according to his time zone....
Ive been trying to fiogure this one out for a week and i havent come up
with anything....
------------------------------
Date: Wed, 7 Jul 1999 13:22:05 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: My last hope
Message-Id: <MPG.11ed56c2b9ea1558989c6f@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed. Reordered to be readable top to
bottom.]
In article <37839977.BB01CE59@email.com> on Wed, 07 Jul 1999 18:16:22
GMT, Jordan Hiller <hiller@email.com> says...
> Andreas Fehr wrote:
...
> > On some systems there is a environment variable (as we call them on
> > DOS) TZ=MET-1DST
>
> How do you decipher this?
>
> Is it:
> "-1" = GMT -1 hours
> "DST" = uses Daylight Savings Time
>
> And what is MET?
'-1' means one hour ahead of UTC, which is opposite to the usual time
convention UTC+0100. Thus it designates Central European time.
'DST' is incorrect. It should be the name of the particular timezone
for Summer Time (always assumed to be one hour ahead of the designated
offset from UTC).
'MET' is an error also. The proper timezone designations I know of for
the UTC+0100 timezone are:
CET-1CEST Central Europe
MEZ-1MESZ Germany
WAT-1WAST Western Africa
<URL:http://www.hpl.hp.com/counters/tzone.txt> has what I believe is a
reasonably correct and perhaps useful list of all of these things.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 07 Jul 1999 20:52:58 GMT
From: lmoloch@my-deja.com
Subject: need module to parse html file
Message-Id: <7m0en4$oa3$1@nnrp1.deja.com>
does anyone know of a module/function which parses an html file and
stores the results as an array of ordinary words and html tags?
does anyone know if there anything similar to what i have described?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 7 Jul 1999 13:35:49 -0500
From: "Billy Patton" <bpatton@asic.sc.ti.com>
Subject: Need subroutine to create combinations
Message-Id: <7m06m5$qod$1@sarek.dal.asp.ti.com>
Does anyone have a subroutine or know of a module that will
look at a list/keys and create all possible combinations.
Ex: if list has 3 elements. combinations need to be created that
have from one to 3 elements, all unique.
list = a,b,c
combinations :
a
b
c
ab
ac
abc
bc
I also need a subroutine that given a list of N elements
it will rearrange the list in all possible combinations.
Ex:
list = a b c
combinations :
a b c
b c a
c a b
a c b
c b a
b a c
This would be similar to the gray code where only one bit at a time changes.
------------------------------
Date: 7 Jul 1999 20:57:41 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Need to install perls DBI for NT
Message-Id: <7m0f05$uc$1@gellyfish.btinternet.com>
On Wed, 07 Jul 1999 13:55:56 GMT gene158@my-deja.com wrote:
> In article <7lj7rh$7p62@news.cyber.net.pk>,
> "Faisal Nasim" <swiftkid@bigfoot.com> wrote:
>> <gene158@my-deja.com> wrote in message news:7lgfh9
> $mis$1@nnrp1.deja.com...
>> > I am trying to install a DBI for perl. I tried to do what the readme
>> > file said perl Makefile.PL but only makefile.pl works, then make
> did
>>
>> <snip>
>>
>> If you are using ActivePerl, then use PPM to download DBI.
>>
>> c:\winnt>ppm
>> ppm>install DBI
>> do you want to install DBI (y/n)? y
>
> I am using Active perl and I tried it but nothing happened.
> Do I have to set my path to set HTTP_proxy=http://proxy:8080
> like it said in perl faq for ppm to work?
Yes but it is all in upper case.
>
> When I try I still get "fatal error U1073"
>
That is an error from one of the Microsoft tools which you dont need
to run if you are installing a PPM module for Activeperl. I guess
there is something you arent telling us here.
All you need to do is set the proxy as described in the documentation
and then run ppm as has already been explained. If you still are
having difficulties then you might read about how you can download the
zipped file and use PPM on it locally - but it is all described in the
documentation so I wont bore everyone else.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 07 Jul 1999 17:02:28 GMT
From: Andrei Bergners <andreib@bellatlantic.net>
Subject: Net:Telnet.pm question
Message-Id: <19990707.17022800@earth.cities.lehman.com>
--------------=_4D4800B773AC00612F60
Content-Description: filename="text1.txt"
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Hi,=20
I have been successful, in logging into remote hosts, and sourcing=20
various environments. There is one problem, when I run a specific=20
command (querying a daemon), on the remote host, I don't get a=20
response, and afterward, none of my commands work anymore. =20
How can I dig deeper into the problem and investigate what is=20
happening? =20
Truss doesn't give me enough info.
Thanks,
Andrei
--------------=_4D4800B773AC00612F60
Content-Description: filename="text1.html"
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Net:Telnet.pm question</TITLE>
<META NAME=3D"GENERATOR" CONTENT=3D"StarOffice/5.1 (Solaris Sparc)">
<META NAME=3D"CREATED" CONTENT=3D"19990707;11592300">
<META NAME=3D"CHANGEDBY" CONTENT=3D"Andrei Bergners">
<META NAME=3D"CHANGED" CONTENT=3D"19990707;12022700">
</HEAD>
<BODY>
<P>Hi,=20
</P>
<P> I have been successful, in logging into remote hosts, and sourcing
various environments. There is one problem, when I run a specific
command (querying a daemon), on the remote host, I don't get a
response, and afterward, none of my commands work anymore. =20
</P>
<P> How can I dig deeper into the problem and investigate what is
happening? =20
</P>
<P> Truss doesn't give me enough info.</P>
<P><BR><BR>
</P>
<P>Thanks,</P>
<P>Andrei</P>
<P><BR><BR>
</P>
</BODY>
</HTML>
--------------=_4D4800B773AC00612F60--
------------------------------
Date: 7 Jul 1999 21:55:42 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: NewBie question
Message-Id: <7m0icu$vv$1@gellyfish.btinternet.com>
On Wed, 07 Jul 1999 16:41:00 +0800 Nick wrote:
> Hi,
>
> I am attempting to write a html file using the CGI module.
> Its suppose to say "hello". saved in file hello.pl
> However i'd like to know what i'd have to do to view this in a web
> browser.
> It seems to format out fine in dos mode. ie perl hello.pl shows the
> html syntax and all.
> Just can't open the darn file in a web browser..
>
Hasnt this been done to death in another thread this week ?
You need to install a web-server - ask in the group that best matches
your platform in comp.infosystems.www.servers.*
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 67
************************************
