[12948] in Perl-Users-Digest
Perl-Users Digest, Issue: 358 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 4 00:07:20 1999
Date: Tue, 3 Aug 1999 21:05:08 -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 Tue, 3 Aug 1999 Volume: 9 Number: 358
Today's topics:
Re: [offtopic]RE:Quot St and the Jeop Gm (Eric Bohlman)
Re: Adding time (Larry Rosler)
Re: Adding time (elephant)
Re: Autovivification? <tchrist@mox.perl.com>
Re: Autovivification? <mpersico@erols.com>
Re: Autovivification? <tchrist@mox.perl.com>
Re: Autovivification? <neal@nsdev.org>
Re: DBM: delete hash but the file size doesn't decrease (Eric Bohlman)
Re: DBM: delete hash but the file size doesn't decrease <bwalton@rochester.rr.com>
Re: editing pdf files via perl (Larry Rosler)
Re: editing pdf files via perl (Abigail)
Re: How to get across Proxy? (Abigail)
Re: how to remove cr/lf ??? (elephant)
Re: looking for XML comments (Abigail)
Re: Need Help Understanding a perl script (Abigail)
Re: Need Help Understanding a perl script (Abigail)
Re: Need Help Understanding a perl script <uri@sysarch.com>
Re: perl 5 and IRIX 6.3 (Abigail)
Re: Perl CGI vs VB ASP (Abigail)
Re: Perl seems to be LAME! (Abigail)
Re: Printing Form output to another frame (Abigail)
Re: server-side databases (Abigail)
Re: server-side databases (Abigail)
Re: Strange STDOUT on script, any ideas? <bwalton@rochester.rr.com>
Re: tar (I R A Darth Aggie)
Re: tar (Iain Chalmers)
Using CGI.pm to Retrieve Image <splinter@monmouth.com>
Re: Web Startup Seeks Help, Programmer (brian d foy)
Re: Web Startup Seeks Help, Programmer <uri@sysarch.com>
Re: Why no Perl books at Fry's? (I R A Darth Aggie)
Re: Why no Perl books at Fry's? (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 4 Aug 1999 02:24:58 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: [offtopic]RE:Quot St and the Jeop Gm
Message-Id: <7o889q$cjs@dfw-ixnews8.ix.netcom.com>
llornkcor@my-deja.com wrote:
: I was pointing out that many "reply's" on this ng are very
: condescending to the poster, especially if it's a newbie asking, whats
: been deemed by the *perl-GODS*, as "something thats addressed in the
: FAQ's". While he might be trying to make the net a better place in his
: own way, so am I.
Whether or not something is in the FAQ is not a matter of opinion, and so
cannot be "deemed." It can be determined by an extremely simple computer
program.
If you're trying to write Perl code but you don't know how to search the
FAQs, you are trying to run before you've finished learning how to crawl.
Just like physical development, professional development requires certain
stages that simply can't be skipped over, no matter how much you might
want to. You have to finish laying the foundation before you can start
building the penthouse. If you are not yet comfortable with using a
command line and with searching text files, you are *not* going to be able
to write useful Perl (or any other language) code until *after* you gain
comfortability with them. Doing so will take a short time if you're
willing to admit that you don't already know certain things and actively
seek out knowledge to fill the gaps; it will take a long time if you
resent and resist it.
------------------------------
Date: Tue, 3 Aug 1999 19:53:21 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Adding time
Message-Id: <MPG.12114af95a02cd1c989dae@nntp.hpl.hp.com>
In article <slrn7qf70i.s67.abigail@alexandra.delanet.com> on 3 Aug 1999
20:49:42 -0500, Abigail <abigail@delanet.com> says...
> Murali V (diffs@vsnl.com) wrote on MMCLXIII September MCMXCIII in
> <URL:news:7o806u$rfr$1@news.vsnl.net.in>:
> ``
> `` How do I add 2 hours to the epoch time with perl.
>
> I am not sure I understand your question.
>
> If you want to change the time of the epoch, that's impossible. Perl
> doesn't allow for timetravelling, and even if it does, and you would
> travel back to Dec 31, 1969, how are you going to postpone the new year
> by 2 hours?
>
> Now, it could be that you want the time of 2 hours after epoch. But that's
> so easy:
> $time_two_hours_after_epoch = 2 * 60 * 60;
> that I hardly believe that this is your question.
>
> But what is your question?
As I pointed out in another response in this thread, 'Epoch' ne 'epoch',
though that seems to be the source of some confusion. An Epoch is an
event; an epoch is a time scale. '[Unix] epoch time' is time measured
since the [Unix] Epoch. Other operating systems have different Epochs
and different epoch times.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 4 Aug 1999 13:16:59 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Adding time
Message-Id: <MPG.12125bb2b9965baa989bda@news-server>
Larry Rosler writes ..
>Well, you have chosen to be pedantic, so you might as well be correct.
a noble pursuit indeed
>The term '[Unix] epoch time' means time relative to the [Unix] Epoch.
hmm .. 'epoch seconds' I've heard .. 'epoch time' I aint never heard ..
see time isn't really relative to the epoch .. so 'epoch time' doesn't
really make sense .. but the number of seconds since the epoch does -
hence 'epoch seconds'
>Got it?
nup .. still think my interpretation of 'epoch time' is more accurate ..
certainly it's more popular *8^)
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: 3 Aug 1999 20:06:35 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Autovivification?
Message-Id: <37a7a02b@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Neal Sanche <neal@nsdev.org> writes:
:Well, the effect of the following line:
:
: if (defined $WOW{here}{not}) {
: }
:
:Is that, $WOW{here} becomes defined automatically, even if it was
:previously undefined. Sometimes I wish that it wouldn't do that.
So too does it with:
if ($WOW{here}{not}) {
}
Apparently you're thinking that defined() is something it isn't.
What it is not is some kind of privileged compiler effect. It's
not. It's a real function. It's going to get called with the scalar
value that is at the rightmost hash element. That means you as the
first part of the program, use
fn( $wow{here}{not} );
print $wow{here}{not};
sub fn { $_[0] = "BINGO" }
And get "BINGO" to come out.
--tom
--
/* dbmrefcnt--; */ /* doesn't work, rats */
--Larry Wall in hash.c from the v4.0 perl source code
------------------------------
Date: Tue, 03 Aug 1999 23:01:12 -0400
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Re: Autovivification?
Message-Id: <37A7ACF8.8594554C@erols.com>
Tom Christiansen wrote:
>
> [courtesy cc of this posting mailed to cited author]
>
> In comp.lang.perl.misc,
> Neal Sanche <neal@nsdev.org> writes:
> :Well, the effect of the following line:
> :
> : if (defined $WOW{here}{not}) {
> : }
> :
> :Is that, $WOW{here} becomes defined automatically, even if it was
> :previously undefined. Sometimes I wish that it wouldn't do that.
>
> So too does it with:
>
> if ($WOW{here}{not}) {
> }
>
> Apparently you're thinking that defined() is something it isn't.
Me thinks he wants exists. I always code this test as
if (exists $WOW{here}{not} && defined $WOW{here}{not}) {
...
}
--
Matthew O. Persico
http://homestead.dejanews.com/user.mpersico
You'll have to pry my Emacs from my cold dead oversized
control-pressing left pinky finger. -- Randal L. Schwartz
------------------------------
Date: 3 Aug 1999 21:06:51 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Autovivification?
Message-Id: <37a7ae4b@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
"Matthew O. Persico" <mpersico@erols.com> writes:
:Me thinks he wants exists. I always code this test as
:if (exists $WOW{here}{not} && defined $WOW{here}{not}) {
: ...
:}
Don't think so. The }{ autovivifies.
--tom
--
"If you substitute other kinds of intellectual property into the GNU
manifesto, it quickly becomes absurd." --Cal Keegan
------------------------------
Date: Wed, 04 Aug 1999 03:32:37 +0000
From: Neal Sanche <neal@nsdev.org>
Subject: Re: Autovivification?
Message-Id: <37A7B455.787C3D9A@nsdev.org>
Tom Christiansen wrote:
> I don't necessarily expect you to like it, just understand it.
> And consider what you'd lose without it.
Okay, I'll accept it, since all hell would break loose if it weren't there.
Well, actually, very little would happen in a Perl program if it didn't work
that way. Thank you very much for the explanation.
-Neal
--
+-------- Neal Sanche +----+ [ neal@nsdev.org ] +------ ICQ 5516171 ------+
It has long been known that one horse can run faster than another --
but which one? Differences are crucial.
-- Lazarus Long
------------------------------
Date: 4 Aug 1999 03:15:41 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: DBM: delete hash but the file size doesn't decrease
Message-Id: <7o8b8t$cjs@dfw-ixnews8.ix.netcom.com>
Bin Zeng (zeng@stat.Berkeley.EDU) wrote:
: Now is the surprising part. When I use the 'ls -l', I found the size of
: the file.dir and file.pag is still the same as before I do any 'delete'.
When you delete entries from a DBM file, the space that they used is
simply marked as free for use by new entries. The code doesn't condense
the file for you. If you truly need to condense a DBM file (e.g. if you
filled it up with far more test entries than you'd ever use in real
life), then you need to create a new file and go through the old one
extracting each entry (use a while loop using each() rather than a for
loop using keys() if there are lots of entries) and storiing it in the
new one.
------------------------------
Date: Tue, 03 Aug 1999 23:25:14 -0400
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: DBM: delete hash but the file size doesn't decrease
Message-Id: <37A7B299.2198241B@rochester.rr.com>
> Create a DBM file,
which one are you using? DBM, NDBM, SDBM, GDBM, what? (the one used by
"dbmopen" is compiled in; if you are using "tie", you specify which one.)
Which OS? Version? If you are actually using DBM (a real oldie), you might
consider upgrading to one of the others.
> so I got file.dir and file.pag with a nonzero size. In
> a second program, I call up this DBM, use the function 'delete' to delete
> every pair from the hash. I suppose the DBM should be empty by now. Two
> methods have been used to verify this. In a third program, I call up the
> DBM, no key or value is found. I also use a command in UNIX, called
> 'makedbm -u file > newfile', the newfile is empty.
>
> Now is the surprising part. When I use the 'ls -l', I found the size of
> the file.dir and file.pag is still the same as before I do any 'delete'.
...
Typical DBM-like implementations don't necessarily (that means hardly ever)
release space from their files upon deletion of a record. The space may be
used for another record if such is added later, and, in such event, it is
much more efficient to just hang on to the space. They may release space if
enough records are deleted, or not. Some implementations also create files
with "holes", which, if the file is copied using ordinary means like cp, will
create *huge* files. Be sure to carefully read the docs for your particular
DBM-like implementation for these sorts of details. Don't think of DBM-like
files as "ordinary files" -- in some cases, their behavior is quite
different. Use beware.
------------------------------
Date: Tue, 3 Aug 1999 19:55:30 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: editing pdf files via perl
Message-Id: <MPG.12114b7ebb508df989daf@nntp.hpl.hp.com>
In article <slrn7qf7a0.s67.abigail@alexandra.delanet.com> on 3 Aug 1999
20:54:44 -0500, Abigail <abigail@delanet.com> says...
> soumitra557@my-deja.com (soumitra557@my-deja.com) wrote on MMCLXIII
> September MCMXCIII in <URL:news:7o6glf$85b$1@nnrp1.deja.com>:
> !! Hello.
> !! I have a pdf file .
> !! I want to change some string within the file.
> !! i.e. say the text in the pdf file has "abc woke up at 09 a.m."
> !! I want to make it
> !! "abc woke up at 11 a.m."
> !! Is there a perl program which can do this for me.
>
> perl -pi -we 's/abc woke up at 09 a\.m\./abc woke up at 11 a.m./' file.pdf
Would it were so! Any text in .pdf files is encoded in some arcane
binary format, and not retrieval by the 'strings' command, for example.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 3 Aug 1999 22:42:52 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: editing pdf files via perl
Message-Id: <slrn7qfdko.s67.abigail@alexandra.delanet.com>
Larry Rosler (lr@hpl.hp.com) wrote on MMCLXIV September MCMXCIII in
<URL:news:MPG.12114b7ebb508df989daf@nntp.hpl.hp.com>:
:: In article <slrn7qf7a0.s67.abigail@alexandra.delanet.com> on 3 Aug 1999
:: 20:54:44 -0500, Abigail <abigail@delanet.com> says...
:: > soumitra557@my-deja.com (soumitra557@my-deja.com) wrote on MMCLXIII
:: > September MCMXCIII in <URL:news:7o6glf$85b$1@nnrp1.deja.com>:
:: > !! Hello.
:: > !! I have a pdf file .
:: > !! I want to change some string within the file.
:: > !! i.e. say the text in the pdf file has "abc woke up at 09 a.m."
:: > !! I want to make it
:: > !! "abc woke up at 11 a.m."
:: > !! Is there a perl program which can do this for me.
:: >
:: > perl -pi -we 's/abc woke up at 09 a\.m\./abc woke up at 11 a.m./' file.pdf
::
:: Would it were so! Any text in .pdf files is encoded in some arcane
:: binary format, and not retrieval by the 'strings' command, for example.
But he said he wanted to change some string within the file!
He didn't say he wanted to change the file such that when viewed
"abc woke up at 11 a.m." whould appear - although I grant you it's
likely that he wants that.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: 3 Aug 1999 21:05:01 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to get across Proxy?
Message-Id: <slrn7qf7t9.s67.abigail@alexandra.delanet.com>
Srinivas Gorty (srinivas.gorty@sabre.com) wrote on MMCLXIII September
MCMXCIII in <URL:news:37A72105.585D0DDA@sabre.com>:
:: Hi,
:: I am using libwww-perl module to connect to a site and retrieve a page.
::
:: I cannot get past our proxy server. Can someone tell me how to send
:: authentication information to the proxy? I am using the
:: libwww::UserAgent to set up the proxy information. But, it does not have
::
:: an entry for the user name and password.
Perhaps you are not allowed to.
Contact your system administrator. She will know what to do.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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, 4 Aug 1999 12:51:08 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: how to remove cr/lf ???
Message-Id: <MPG.121255aa48fb55bd989bd9@news-server>
Larry Rosler writes ..
>The internal representation of "\n" *is* the LF character itself (on
>Unix and Windows/DOS; in MacPerl it's the CR character; I won't speak
>for any other OSes). But you seldom need to know more than that it is a
>single /\s/ character.
yes I see .. so there are actually two things at work here - and they're
actually quite separate
one is that \n (and I presume \r as well) is potentially a different
ASCII character on different OSs
and the second is that during a textual filehandle read/write there is a
translation of the "\n" character (whatever that may be) to/from a full
line ending for that OS
>There is a very weird documentation bug in the ActiveState distribution,
>at least through Build 517. I haven't downloaded Build 518 yet to see
>if it is fixed. I sent them a bug report recently, but haven't heard a
>response.
their web based online documentation still shows this bug - so I'd expect
it to be in 518
>The bug is that their version of perltoc.html has no entry for perlport
>(of all things to omit!).
I've never known this existed - thank you
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: 3 Aug 1999 21:08:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: looking for XML comments
Message-Id: <slrn7qf849.s67.abigail@alexandra.delanet.com>
Chris Denman (chris@inta.net.uk) wrote on MMCLXIII September MCMXCIII in
<URL:news:7o6e43$22dj$1@news2.vas-net.net>:
||
|| [XML stuff]
||
|| Comments would be greatly appreciated.
As you might know, this is comp.lang.PERL.misc. Perl. The programming
language Perl. We do not discuss marbles here. We do not discuss the
Roman empire here. Nor do we discuss moose mousse.
Please take your question and go elsewhere.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== 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: 3 Aug 1999 21:10:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Need Help Understanding a perl script
Message-Id: <slrn7qf88d.s67.abigail@alexandra.delanet.com>
Diane (tech1@magicnet.net) wrote on MMCLXIII September MCMXCIII in
<URL:news:rqdmtpoonnicq6@corp.supernews.com>:
** Hi All.
**
** I need some help from one of you experts out there. I teach a web
** development course which is mostly HTML that I know in my sleep. But, part
** of the course discusses perl and cgi. I have a brief perl script that
** basically just echoes back some form data. I have a basic understanding of
** it but could use a more line by line explanation to offer to my class.
You _teach_, yet you fail to understand a basic program that echoes data?
Perhaps you shouldn't teach things you don't grasp yourself. Have you
considered sticking to HTML, and hiring a Perl expert to do the Perl
part of your classes?
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== 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: 3 Aug 1999 21:14:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Need Help Understanding a perl script
Message-Id: <slrn7qf8fh.s67.abigail@alexandra.delanet.com>
Diane (tech1@magicnet.net) wrote on MMCLXIII September MCMXCIII in
<URL:news:rqegvaoar4fcq6@corp.supernews.com>:
""
"" Excellent! Here is the script. I understand the Print commands, and all the
"" HTML outputs, what Id like some explanation on are the loops and variables
"" and all the other lines that are not obvious...including how it sets up and
"" loads the array of values..
""
"" Thanks so much
Really bad code deleted.
Could you please tell us where you teach? I'd like to do any possible
students a favour and warn them not to take your classes.
People who teach utter crap should be sued by their students.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== 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: 03 Aug 1999 22:34:25 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Need Help Understanding a perl script
Message-Id: <x7vhawjmtq.fsf@home.sysarch.com>
>>>>> "MV" == Martien Verbruggen <mgjv@comdyn.com.au> writes:
MV> In article <rqegvaoar4fcq6@corp.supernews.com>,
MV> "Diane" <tech1@magicnet.net> writes:
MV> # Don't skip the first argument, like your code does:
MV> foreach my $i ( 0 .. $#ARGV ) { print "arg$i: $ARGV[$i]<BR>\n" }
actually her code doesn't skip any @ARGV values. it just starts counting
from 1 while yours is zero based. neither one used the number for
indexing so it doesn't matter.
>>>>> "D" == Diane <tech1@magicnet.net> writes:
D> $j=1;
D> foreach $a (@ARGV) {
D> print "arg$j: $a<BR>\n";
D> $j=$j+1;
D> }
$a will be each value of @ARGV.
MV> foreach my $env (keys %ENV) { print "$env = $ENV{$env}<BR>\n" }
a trifle faster way would be to use the each function (very underused
from what i see):
print "$key = $val<BR>\n" while ( $key, $val ) = each %ENV ;
this saves the hash lookup.
one trick i have used is to push those lines onto an array and then sort
and print them. just a minor speedup (or my brain likes to think so). i
just like avoiding the hash lookups that the keys style needs.
push( @env_lines, "$key = $val<BR>\n" )
while ( $key, $val ) = each %ENV ;
print sort @env_lines ;
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 3 Aug 1999 21:45:18 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl 5 and IRIX 6.3
Message-Id: <slrn7qfa8q.s67.abigail@alexandra.delanet.com>
Mike Bristow (mike@fat.dotat.at) wrote on MMCLXIII September MCMXCIII in
<URL:news:slrn7qeffa.l42.mike@lindt.fat.dotat.at>:
{} On 03 Aug 1999 18:11:04 GMT, CVanor1018 <cvanor1018@aol.com> wrote:
{} > Does anyone know how to install the compiled version of Perl 5 onto
{} > the IRIX 6.3 system without a C Compiler? We have the binaray files
{} > but are stuff. Any help is much appreciated. Our Tech support guy
{} > is failing us.
{}
{} This boils down to getting a C compiler for IRIX (or a precompiled
{} perl binary, but I think you'll probably want a C compiler for other
{} reasons too).
Well, he has the binaries.... How to install it depends on how Perl was
build. It also depends in which format the files are. If you don't have
instructions, forget the binary file approach - as there are too many
ways Perl can be configured. If you do have instructions, follow them...
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
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}for(;
!$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: 3 Aug 1999 21:49:19 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl CGI vs VB ASP
Message-Id: <slrn7qfagb.s67.abigail@alexandra.delanet.com>
David Cassell (cassell@mail.cor.epa.gov) wrote on MMCLXIII September
MCMXCIII in <URL:news:37A765BA.B2EABA3@mail.cor.epa.gov>:
-- DMSbclar wrote:
-- >
-- > I am about to embark on a project where I need to read input from a flat fi
-- > on a unix box.
--
-- Now what was your Perl question? :-)
No, no, no. The subject started with 'Re:'. So, he was posting an answer.
The question is "what was the Perl question, whose question was it, and
what happened to the References: line?".
Abigail
--
perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
${qq$\x5F$} = q 97265646f9 and s g..g;
qq e\x63\x68\x72\x20\x30\x78$&eggee;
{eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
-----------== 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: 3 Aug 1999 21:52:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl seems to be LAME!
Message-Id: <slrn7qfami.s67.abigail@alexandra.delanet.com>
Moritz Mertinkat (bluebit@gmx.net) wrote on MMCLXIII September MCMXCIII
in <URL:news:37A75CFD.ADAC451E@gmx.net>:
==
== I'm using a text file (~1.11 MB) with about 10000 entries
== for searching. Now, when I just run through all the lines
== - without even doing *anything* - it takes up to 7 seconds!
You slurp in 1.11 Mb of data, and let Perl store that. Buy faster
memory simms. Or fix your program. Of course, since Perl is LAME,
Perlers are LAME too, and we won't tell you what's wrong with your
program.
== And with the search algorithm about 11 seconds!
Maybe you are LAME then!
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== 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: 3 Aug 1999 21:54:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Printing Form output to another frame
Message-Id: <slrn7qfapc.s67.abigail@alexandra.delanet.com>
hads6307@my-deja.com (hads6307@my-deja.com) wrote on MMCLXIII September
MCMXCIII in <URL:news:7o7gke$k0$1@nnrp1.deja.com>:
==
== I have a question and would appreciate some help
== on the use of a CGI script written in perl to
== take a simple input from a left frame form submit
== and have that input print out to the right frame.
Someone else asked the same question today! Perhaps you should
ask him if he has gotten an answer?
Abigail
--
perldoc -q frames
-----------== 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: 3 Aug 1999 22:30:46 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: server-side databases
Message-Id: <slrn7qfcu2.s67.abigail@alexandra.delanet.com>
Peter (pjw7@ukc.ac.uk) wrote on MMCLXIII September MCMXCIII in
<URL:news:37A75535.3F47@ukc.ac.uk>:
__ If I want to build a server-side database for interaction with web pages
__ what would be the best option?
That's a vague and pointless question. It's badly phrased as well.
Do you really want _webpages_ to interact? Or perhaps, you have
users who should interact?
But it would look odd to me if the interaction with the database
is the ultimate goal. You probably have a reason you want to use
a database.
What your best option is depends on many factors you don't mention
here. It could very well be that a study to determine what your
best option is is going to take 6 months and requires 27 people.
All your posting is good for is creating an (off-topic) advocacy
flame fest.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== 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: 3 Aug 1999 22:33:25 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: server-side databases
Message-Id: <slrn7qfd30.s67.abigail@alexandra.delanet.com>
David Cassell (cassell@mail.cor.epa.gov) wrote on MMCLXIII September
MCMXCIII in <URL:news:37A76804.C090AF48@mail.cor.epa.gov>:
::
:: Well, Perl will make a good front end for database queries. But
:: it is not your only option. Still, you ought to consider some native
:: RDBMS [anything from DB_File up to Sybase] with a decent language
:: for the connection.
Uhm, if we're going to call 'DB_File' a RDBM, don't we hollow out
both the R and the M?
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== 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, 04 Aug 1999 00:00:26 -0400
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Strange STDOUT on script, any ideas?
Message-Id: <37A7BADA.D3028C75@rochester.rr.com>
> ...
> The files do reach their correct destination, and dirs are made (the
> script is functional), but STDOUT returns messages of "No such file or
> directory. It looks like it is looking for files that have been already
> moved.
>
> foreach $input (<*.txt>)
> {
> $north = $1 and $east = $2 if $input =~ /(N\d{2})d\d{2}m(W\d{3}).*/;
> if ( -d "/user/home/img/$east/$north")
> {
> system("mv $north*$east* /user/home/$east/$north/");
> }
> else
> {
> mkpath(["/user/home/$east/$north"], 1, 0775);
> system("mv $north*$east* /user/home/$east/$north/");
> }
> }
>
> Does anyone have any ideas as to why this is hapenning? Any advice
> would be appreciated.
...
Tom, my guess is that the files you are moving underneath the "foreach" loop
are causing the trouble -- that is, the list of files generated by <*.txt>
is being changed as the loop iterator goes through its processing. That's
usually not a nice thing to do to an iterator. Maybe something like:
foreach(<*.txt){push @array,$_}
foreach $input (@array){
...rest of your program
would work without the messages?
------------------------------
Date: 4 Aug 1999 02:18:47 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: tar
Message-Id: <slrn7qf8sd.fd.fl_aggie@thepentagon.com>
On Tue, 3 Aug 1999 15:45:12 -0700, Larry Rosler <lr@hpl.hp.com>, in
<MPG.121110d6aee93562989da9@nntp.hpl.hp.com> wrote:
+ The tapes are long gone, of course.
Sez you. Never underestimate the bandwidth of a truckload of tapes
hurtling down the highway...
+ And a '.tar' file has come to be called a 'tarball' for some reason or
+ other.
Probably after those nasty tarballs that wash up on the beach, then you step
in them, and track tar into your car/house/etc.
+ Though 'tarbaby' might be better (per Uncle Remus).
Throw me into the briar patch!
James
------------------------------
Date: Wed, 04 Aug 1999 12:55:14 +1000
From: bigiain@mightymedia.com.au (Iain Chalmers)
Subject: Re: tar
Message-Id: <bigiain-0408991255140001@bigman.mighty.aust.com>
fl_aggie@thepentagon.com wrote:
> + And a '.tar' file has come to be called a 'tarball' for some reason or
> + other.
>
> Probably after those nasty tarballs that wash up on the beach, then you step
> in them, and track tar into your car/house/etc.
ITYM
/etc/house/car
HTH HAND :-)
big
------------------------------
Date: Tue, 3 Aug 1999 23:30:28 -0400
From: "Matt" <splinter@monmouth.com>
Subject: Using CGI.pm to Retrieve Image
Message-Id: <7o8c1o$a48$1@news.monmouth.com>
Hi,
I have a few questions about using CGI.pm to have a user upload an image to
a site.
The form allows the user to pick a file off of his hard drive.
The user presses submit.
The image gets stored in an associative array ( say $FORM{'image'} )
Now what?
I suppose I do...
use CGI;
but now what? How do I save it to a specific directory as an image file?
Any help appreciated ...thanks!
-Matt
------------------------------
Date: Tue, 03 Aug 1999 22:10:57 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Web Startup Seeks Help, Programmer
Message-Id: <brian-0308992210570001@1cust94.tnt5.durham.nc.da.uu.net>
In article <37A79A6A.548FA0C6@optonline.net>, Dave
<bisonman@optonline.net> wrote:
>> We're looking for an adventurous (and NYC-area based) soul who
>would be willing to provide expertise in exchange for equity.
that is, a programmer willing to play russian roulette.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 03 Aug 1999 22:37:19 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Web Startup Seeks Help, Programmer
Message-Id: <x7so60jmow.fsf@home.sysarch.com>
>>>>> "bdf" == brian d foy <brian@pm.org> writes:
bdf> In article <37A79A6A.548FA0C6@optonline.net>, Dave
bdf> <bisonman@optonline.net> wrote:
>>> We're looking for an adventurous (and NYC-area based) soul who
>> would be willing to provide expertise in exchange for equity.
bdf> that is, a programmer willing to play russian roulette.
with 5 bullets in the revolver.
have you heard about the guys who played russian roulette with an
automatic?
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 4 Aug 1999 02:24:42 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Why no Perl books at Fry's?
Message-Id: <slrn7qf97g.fd.fl_aggie@thepentagon.com>
On 3 Aug 1999 19:08:53 -0500, Abigail <abigail@delanet.com>, in
<slrn7qf13h.s67.abigail@alexandra.delanet.com> wrote:
+ Lecture Notes in Computer Science, a high quality Springer-Verlag series.
I've seen only a handful of those in bookstores associated with US
universities, and most of them where in engineering or physical science,
mostly fluid dynamics. And all of them very expensive.
It's going to be a verrrrrrrrry cold day in hell when you'll
see those appear in Fry's...
James
------------------------------
Date: 3 Aug 1999 22:52:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Why no Perl books at Fry's?
Message-Id: <slrn7qfe7d.s67.abigail@alexandra.delanet.com>
I R A Darth Aggie (fl_aggie@thepentagon.com) wrote on MMCLXIV September
MCMXCIII in <URL:news:slrn7qf97g.fd.fl_aggie@thepentagon.com>:
[] On 3 Aug 1999 19:08:53 -0500, Abigail <abigail@delanet.com>, in
[] <slrn7qf13h.s67.abigail@alexandra.delanet.com> wrote:
[]
[] + Lecture Notes in Computer Science, a high quality Springer-Verlag series.
[]
[] I've seen only a handful of those in bookstores associated with US
[] universities, and most of them where in engineering or physical science,
[] mostly fluid dynamics. And all of them very expensive.
Unfortunally they are :( Part of the reason is that they aren't printed
in high volumes, because most of it is too difficult for most people.
My own tiny, tiny grey wall [1] consists in majority of books I didn't have
to pay for; proceedings, contributed articles, etc. But there also a few
that were used in university as text books, a time when expensive books
are even more painful.
[1] They all have to do with Datastructures, Algorithms and Computational
Geometry. Coincidence? I don't think so...
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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: 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 358
*************************************
