[12777] in Perl-Users-Digest
Perl-Users Digest, Issue: 187 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 19 07:07:58 1999
Date: Mon, 19 Jul 1999 04: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 Mon, 19 Jul 1999 Volume: 9 Number: 187
Today's topics:
Re: --Help Wanted (Abigail)
Re: ActiveState's PerlScript <matt@sergeant.org>
Re: Anybody know how to to this? (Abigail)
Binary Data after __END__ (Jeffrey Horn)
Re: Binary Data after __END__ (Ilya Zakharevich)
capture output from do file; (Andreas Fehr)
Re: capture output from do file; (Sam Holden)
CGI.pm cookies <alcazar@netcomp.net>
Re: DBI - alternate row colors <matt@sergeant.org>
Re: Full path to file (Bart Lateur)
Re: newbie question (Abigail)
Re: Password Entry <RyanM019@invalid.domain>
Re: Perl before Swine? (Andreas Fehr)
Re: PERL Q'S ANSWERED! (Tim Herzog)
Perl-based Win32 hardware audit anyone? (Jason Haar)
Re: Problem with forking <lwp@mail.msen.com>
Re: Ranking Script (Abigail)
Re: Remove leading zeros from a string (Andreas Fehr)
TPJ/Earthweb junk mail? (brian d foy)
Re: TPJ/Earthweb junk mail? (Abigail)
Re: Trouble with Virtual Avenue (Tim Herzog)
Re: Variable limitations (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Jul 1999 00:44:31 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: --Help Wanted
Message-Id: <slrn7p5eou.c9j.abigail@alexandra.delanet.com>
bob@tokensystems.com (bob@tokensystems.com) wrote on MMCXLVIII September
MCMXCIII in <URL:news:37927C5B.9A38C8E1@tokensystems.com>:
?? PERL PROGRAMMER WANTED
?? Must be able to create anything we need in Perl,
I'm sorry, but I can't create hot nude babes in Perl.
Abigail
--
perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== 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: Mon, 19 Jul 1999 09:55:13 +0100
From: Matt Sergeant <matt@sergeant.org>
Subject: Re: ActiveState's PerlScript
Message-Id: <3792E7F1.31B322BE@sergeant.org>
"John M. Dlugosz" wrote:
>
> What I have seen on PerlScript is centered around ASP. I've found one site
> that gives some basic advise on client-side Perl scripting, but it doesn't
> cover the caveats and implementation details.
That's probably because the implementation sucks. I still don't know why
it doesn't just "use Safe;" when given that security requirement.
Instead client-side perlscript is just disabled. Were it different I
might document that as I did ASP PerlScript.
And those asking ORA to do documentation - I very much doubt there's a
market there. If you need docs, see http://sergeant.org/ and buy the
book linked there.
Matt.
------------------------------
Date: 19 Jul 1999 00:40:32 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Anybody know how to to this?
Message-Id: <slrn7p5ehe.c9j.abigail@alexandra.delanet.com>
Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote on MMCXLVIII
September MCMXCIII in <URL:news:1dv5wdd.1mlyfsz1wpxw3kN@p226.tc19a.metro.ma.tiac.com>:
**
** I don't know about you, Abigail, but most people don't read their posts
** out loud while they're composing them. ;)
People don't have secretaries?
** Seriously, though, 'CGI' as a shortening of 'CGI program' is
** understandable, even though misguided. If I say "I need someone to
** write a CGI" you can tell what I mean. 'program' as a shortening of
** 'CGI program' does not make sense, because there's no way to distinguish
** from any other sort of program. If I say "I need someone to write a
** program" you have no way of knowing what kind of program I need written.
That's true. If you tell me "I need a CGI program written", it's instantly
clear what the program must do. No need for further specification.
Abigail
--
This week, I'm only going to write blue programs.
-----------== 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: 19 Jul 1999 07:07:49 GMT
From: horn@wheel.cs.wisc.edu (Jeffrey Horn)
Subject: Binary Data after __END__
Message-Id: <7muis5$5hm@spool.cs.wisc.edu>
Is binary data after __END__ supported in perl?
I am writing perl on WinTel (using ActiveState Perl) that needs to do
some basic queries/updates on the Windows registry and then run a standard
setup executable. I'd prefer to distribute this as a single executable
(via perl2exe).
I have uuencoded the setup executable and placed it after the __END__. I
can then uudecode <DATA> without any problem. Problem is that the uuencode
increases size, which I'd like to avoid.
If binary data can go after __END__, is there a newline arter __END__ or
does the binary data start right after __END__?
I've done some experimentation as to this, but want to know what's supported.
Thanks,
Jeff Horn
--
Jeffrey Horn (horn@cs.wisc.edu) |BELZER,BERNHARDT,BOETTCHER,DRAVIS,FETTER
PHONE:(608) 846-1932 |GAPINSKI,GAUGER,HARMS,HIRSCHINGER,HORNE
FAX: (608) 846-1934 |JUECH,KLAJBOR,KROIS,KRONING,LEMKE,RUNGE
http://www.cs.wisc.edu/~horn/horn.html |STOCK,TAUBERT,TRESKE,WILLMERT,ZILLMER
------------------------------
Date: 19 Jul 1999 08:07:00 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Binary Data after __END__
Message-Id: <7mumb4$646$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Jeffrey Horn
<horn@wheel.cs.wisc.edu>],
who wrote in article <7muis5$5hm@spool.cs.wisc.edu>:
> Is binary data after __END__ supported in perl?
If your "binary" as teh same root as in C<binmode>, then yes: seek
(sysseek?) \*DATA, and binmode it.
> If binary data can go after __END__, is there a newline arter __END__
> or does the binary data start right after __END__?
No idea. The lexer reads it line-by-line, but it could seek() back to
needed position - probably not, due to possible TTY input. If you
want some guaranty, document the current behaviour, and send the doc
patch to p5p.
Ilya
perl -l
@a = <DATA>; print join '|', '', @a, ''; __END__ junk foo bar
baz tar
zip
^Z
|baz tar
|zip
|
------------------------------
Date: Mon, 19 Jul 1999 07:25:44 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: capture output from do file;
Message-Id: <3792cffe.6761202@news.uniplus.ch>
I'd like to capture the output from a perl script I run with do.
do "file.pl";
file.pl contains only:
print "blah\n";
For now I use
open(SCRIPT, "perl file.pl |") or die("open failed: $!");
my @script = <SCRIPT>;
close(SCRIPT) or die("close failed: $!");
This works, but I wonder if there is a solution with do...
Andreas
------------------------------
Date: 19 Jul 1999 07:29:03 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: capture output from do file;
Message-Id: <slrn7p5ku4.k1n.sholden@pgrad.cs.usyd.edu.au>
On Mon, 19 Jul 1999 07:25:44 GMT, Andreas Fehr <backwards.saerdna@srm.hc> wrote:
>I'd like to capture the output from a perl script I run with do.
>
>do "file.pl";
>
>file.pl contains only:
>print "blah\n";
>
>For now I use
>
>open(SCRIPT, "perl file.pl |") or die("open failed: $!");
>my @script = <SCRIPT>;
>close(SCRIPT) or die("close failed: $!");
$script = `perl file.pl`;
As mentioned in the documentation...
--
Sam
I don't want Perl to be beautiful--I want you to write beautiful
programs in Perl.
--Larry Wall
------------------------------
Date: Mon, 19 Jul 1999 02:42:21 -0500
From: "R. Alcazar" <alcazar@netcomp.net>
Subject: CGI.pm cookies
Message-Id: <u#d5#ob0#GA.120@cpmsnbbsa03>
Hello all,
I trying to retrieve the values for cookies set in an HTML document using
the CGI module in a PERL/CGI script.
At one point a had a working script that retrieved the values from an
existing cookie when initiated by an HTML document.
I used this statement in PERL:
$cookie_value = $query->cookie('cookieName');
print "Cookie value: $cookie_value";
I rewrote the HTML & CGI and now the statement returns nothing. I verified
that the cookie has been set (using js: alert(document.cookie);) and the
cookies ARE set, CGI.pm returns nothing.
I assume the cookie gets sent in a header (??) along with the any form
variables to the CGI script. How can I be sure? And why isn't CGI.pm able
to recieve the cookie values?
NEED HELP!
R. Alcazar
------------------------------
Date: Mon, 19 Jul 1999 10:16:23 +0100
From: Matt Sergeant <matt@sergeant.org>
Subject: Re: DBI - alternate row colors
Message-Id: <3792ECE7.8CF9EFE3@sergeant.org>
brian d foy wrote:
>
> In article <x71ze8lcew.fsf@home.sysarch.com>, Uri Guttman <uri@sysarch.com> posted:
>
> > >>>>> "bdf" == brian d foy <brian@pm.org> writes:
> >
> > bdf> notice a logic error in my original code though. we'll never get to
> > bdf> access the last color in the list!
> >
> > bdf> $index = $index % ($#colors + 1)
> >
> >
> > aw, come on brian, you did it again. try this:
> >
> > $index %= @colors ;
> >
> > fairly obvious what it does and means.
>
> it's the same fucking thing. don't you think i already know it's
> the same fucking thing?
Actually, your original code is more accurate, Brian.
Still doesn't answer my question as to why you can't:
++$index %= ($#colors + 1);
Matt.
------------------------------
Date: Mon, 19 Jul 1999 09:47:02 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Full path to file
Message-Id: <3792f248.9657297@news.skynet.be>
justinchaffey@my-deja.com wrote:
>Its the path to the file that I need - not the current working
>directory! I.e. Is there a way to find out the absolute path to a
>file - from the file name, file handle, etc?
You may have missed my point.
What I proposed was, if you have a file
"./somedir/../somedir2/somefile", that you strip off the "/somefile", do
chdir "./somedir/../somedir2", and THEN ask what directory you're in. It
should giove you the full path of the directory where the file
"somefile" is in. All you have to do now, is combine path and filename.
As I said, it's probably best to save the CWD before you start, and
restore it afterwards. Otherwise, it may throw of any of the next tests
you might do.
use Cwd;
my $origcwd = cwd;
$_ = "./somedir/../somedir2/somefile";
if(my($dir,$file) = m[(.*)/(.*)]) {
chdir $dir;
$fullpath = cwd . "/$file";
}
chdir $origcwd;
Bart.
------------------------------
Date: 19 Jul 1999 00:51:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: newbie question
Message-Id: <slrn7p5f5b.c9j.abigail@alexandra.delanet.com>
Patrick (cs_ccyab@ug.cs.ust.hk) wrote on MMCXLVIII September MCMXCIII in
<URL:news:7mu82m$3no@ustsu10.ust.hk>:
[] i am a newbie in perl
[] in my perl program
[] there is a line:
[] use LWP::Socket;
[]
[] when i execute it, it showed me:
[] Can't locate LWP/Socket.pm in @INC (@INC contains:
[] /usr/local/lib/perl5/5.00502/sun4-solaris-thread
[] /usr/local/lib/perl5/5.00502
[] /usr/local/lib/perl5/site_perl/5.005/sun4-solaris-thread
[] /usr/local/lib/perl5/site_perl/5.005 .) at adduser.pl line 3.
[] BEGIN failed--compilation aborted at adduser.pl line 3.
Brilliant!
Abigail
--
What's your Perl question?
-----------== 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: Mon, 19 Jul 1999 04:33:06 -0400
From: "Ryan Michaels" <RyanM019@invalid.domain>
Subject: Re: Password Entry
Message-Id: <932354771.300045@axilla.wwnet.net>
This is a multi-part message in MIME format.
------=_NextPart_000_0115_01BED19F.CC153620
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
system 'stty', '-echo';
chomp($password=3D<>);
system 'stty', 'echo';
That should do it.
-Ryan
Vipul M. Shah wrote in message =
<000001becd62$c013ba40$9701040a@healtheon.com>...
I suppose this is a FAQ, but how does one prevent the password text =
from being echoed on the screen in Perl?
-------------------------------------------------------------------------=
--- =20
Vipul M. Shah=20
If a parsley farmer is sued, can they garnish his wages?=20
------=_NextPart_000_0115_01BED19F.CC153620
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 =
Transitional//EN">
<META content=3D'"MSHTML 4.72.3616.1301"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>system 'stty', '-echo';</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT><FONT=20
size=3D2>chomp($password=3D<>);</FONT></DIV>
<DIV><FONT size=3D2>system 'stty', 'echo';</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>That should do it.</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>-Ryan</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; PADDING-LEFT: =
5px">
<DIV>Vipul M. Shah<VIPUL@HEALTHEON.COM> wrote in message <<A=20
=
href=3D"mailto:000001becd62$c013ba40$9701040a@healtheon.com">000001becd62=
$c013ba40$9701040a@healtheon.com</A>>...</DIV>
<DIV><SPAN class=3D696450419-13071999>I suppose this is a FAQ, but =
how does=20
one prevent the password text from being echoed on the screen in=20
Perl?</SPAN></DIV>
<HR>
Vipul M. Shah <BR>If a parsley farmer is sued, can they garnish his =
wages?=20
<DIV> </DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_0115_01BED19F.CC153620--
------------------------------
Date: Mon, 19 Jul 1999 06:15:20 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Perl before Swine?
Message-Id: <3792c264.3279565@news.uniplus.ch>
On Thu, 15 Jul 1999 15:51:58 -0400, Burton Kent <burton@lucent.com>
wrote:
>How do I make Perl grab/conserve all the memory it can?
>My program needs a lot more memory for recursion...
>
>Burton
do $0;
Andreas
------------------------------
Date: Mon, 19 Jul 1999 01:42:00 -0500
From: therzog@knotech.com (Tim Herzog)
Subject: Re: PERL Q'S ANSWERED!
Message-Id: <therzog-1907990142000001@therzog-host105.dsl.visi.com>
In article <37924696.7B37@removethisitem.allexperts.com>, Steve
<director@removethisitem.allexperts.com> wrote:
>Have a CGI/Perl question you'd like answered? Here's a site that will
>answer them for free!
Oh good: I've been paying way too much for the support in this forum.
--
Tim Herzog
------------------------------
Date: 19 Jul 1999 10:06:50 GMT
From: jhaar@trimble.co.nz (Jason Haar)
Subject: Perl-based Win32 hardware audit anyone?
Message-Id: <slrn7p5u5q.2gh.jhaar@crom.trimble.co.nz>
Has anyone written a perl script to run from a login script that does a
hardware audit - like packages like SaberLan do?
With Win32API registry support, I suppose it should be pretty easy to write
something to return RAM, CPU, Disk, Network Configuration, etc?
--
Cheers
Jason Haar
Unix/Network Specialist, Trimble NZ
Phone: +64 3 3391 377 Fax: +64 3 3391 417
------------------------------
Date: 19 Jul 1999 10:58:27 GMT
From: Lou Poppler <lwp@mail.msen.com>
Subject: Re: Problem with forking
Message-Id: <7mv0cj$h8l$1@server1.powernet.net>
It seems to me you have an infinite loop in your &REAPER
: while ($child = waitpid(-1, WNOHANG)) {
What condition do you think would ever terminate this while() ?
On Sat, 17 Jul 1999 08:19:36 GMT, smnayeem7346@my-deja.com wrote:
: I am having some difficulties doing forking, when I try to connect to my
: server program for the 2nd time it hangs up.
: here is my server /listener program --
: #!/usr/bin/perl
: use IO::Socket;
: use Net::hostent;
: use POSIX "sys_wait_h";
: my %kidstatus = undef;
: sub REAPER {
: $SIG{CHLD} = \&REAPER;
: my $child;
: while ($child = waitpid(-1, WNOHANG)) {
: $kidstatus{$child} = $?;
: }
: }
: $SIG{CHLD} = \&REAPER;
: my $PORT = 9000;
: my $nextport = 9001;
: my $server = IO::Socket::INET->new(
: Proto => 'tcp',
: LocalPort => $PORT,
: Listen => SOMAXCONN,
: Reuse => 1) or die "cannot setup server";
: my ($pid, $clientport) = undef;
: while (my $client = $server->accept()) {
: print "in";
: $client->autoflush(1);
: #find ports for client
: $clientport = $nextport;
: $clientport++ while (getservbyport($clientport, "tcp"));
: $nextport = $clientport + 1;
: print $client ("$clientport\n");
: close $client;
: #fork a process for listening to the client port
: $pid = fork();
: die "cannot fork" unless defined $pid;
: print "entering child";
: print "pid is $pid \n";
: unless ($pid) { #child
: my $newserver = IO::Socket::INET->new(
: Proto => 'tcp',
: LocalPort => $clientport,
: Listen => 1,
: Reuse => 1) or die "cannot setup server for
: client";
: my $newclient = $newserver->accept();
: print "inside child\n";
: print "pid is $pid \n";
: $newclient->autoflush(1);
: &talk_to_client($newclient);
: $newclient->close;
: close $newserver;
: exit(0);
: }
: "out";
: }
: print "ended";
: sub talk_to_client {
: my ($remote) = @_;
: print while ($_ = <$remote>);
: }
: and here is the client program :
: #!/usr/bin/perl
: use IO::Socket;
: my $host = '210.176.135.212'; # please change this to the address of the
: server.
: #my $host = '210.176.135.15';
: my $PORT = 9000;
: my $remote = IO::Socket::INET->new(
: Proto => 'tcp',
: PeerAddr => $host,
: PeerPort => $PORT) or die "cannot connect to server";
: $remote->autoflush(1);
: chop(my $newport = <$remote>);
: print $newport;
: close $remote;
: $remote = IO::Socket::INET->new(
: Proto => 'tcp',
: PeerAddr => $host,
: PeerPort => $newport) or die "cannot connect to special server";
: &talk_to_server($remote);
: close $remote;
: exit(0);
: sub talk_to_server {
: my ($remote) = @_;
: print $remote "This is the client\n";
: }
: Now first I start the server program, and then I run the client, and at
: first pass it goes all right and the server gets the msg from the
: client. However when I make start the client for a 2nd time the server
: and the client sits there doing nothing. I tried to debug this but
: debugging multiple processes are very difficult to me (if anyone can
: show me some good sources of infos on this i'd be grateful)
: Please let me know where I went wrong.
: And also does anyone know any script/example archives where I can find
: lots of multiple process/and forking/client-server examples?
: THanks
: SMNayeem
: smnayeem@agni.com # please send me a copy of the reply to my email
: thanks :)
: Programmer , Agni Systems Ltd.
: Sent via Deja.com http://www.deja.com/
: Share what you know. Learn what you don't.
--
Lou Poppler lwp@mail.msen.com http://www.msen.com/~lwp/
NT makes the easy stuff easy, and the rest impossible.
Unix makes everything possible, but nothing too easy.
------------------------------
Date: 19 Jul 1999 00:53:07 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Ranking Script
Message-Id: <slrn7p5f92.c9j.abigail@alexandra.delanet.com>
Bart Crider (bart@criders.com) wrote on MMCXLVIII September MCMXCIII in
<URL:news:37928075.76B9C43F@criders.com>:
() Anyone know of a good script that will handle ranking various attributes
() of say a product. I'm looking for something similar to what deja.com
() uses for their product rankings.
Well, I would use 'sort'.
But that's just me.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^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: Mon, 19 Jul 1999 06:25:30 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Remove leading zeros from a string
Message-Id: <3792c4b6.3873269@news.uniplus.ch>
On Fri, 16 Jul 1999 18:51:31 +0500, "Faisal Nasim"
<swiftkid@bigfoot.com> wrote:
>: $n = '000001234';
>: print $n + 0;
>
>print int $n;
>?
OK, one more. What if $n is no integer?
Andreas
------------------------------
Date: Mon, 19 Jul 1999 02:04:24 -0400
From: brian@pm.org (brian d foy)
Subject: TPJ/Earthweb junk mail?
Message-Id: <brian-ya02408000R1907990204240001@news.panix.com>
i've started to get junk snail mail from Earthweb (the new publisher
of TPJ) at home which is strange because the only technology-related
mailing list that has that address is TPJ. i've checked with a few
other TPJ subscribers, and they have received similar junk mail.
furthermore, i've all of a sudden starting receiving various computer
catalogs at home. coincidence?
i'm starting to suspect that Earthweb wasn't as interested in TPJ
as much as the TPJ subscriber list. they certainly haven't cared to
make a useful online version of the magazine which looks more like
a billboard for the other projects they have assimilated and then
neglected.
i tried email to Mike Green <mgreen@earthweb.com> (the publisher),
and after much noise making through other channels, he left a cursory
message on my voice mail, but has yet to answer other email. although
i can't confirm it (since the publisher doesn't answer email), i
suspect that TPJ subscriber data is not only being used for Earthweb
junk mail, but is being sold.
i invite Mike Green <mgreen@earthweb.com> to publically clarify TPJ's
privacy policy and allow subscribers to choose not to have their
information resold.
--
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: 19 Jul 1999 01:36:40 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <slrn7p5hqm.c9j.abigail@alexandra.delanet.com>
brian d foy (brian@pm.org) wrote on MMCXLVIII September MCMXCIII in
<URL:news:brian-ya02408000R1907990204240001@news.panix.com>:
==
== i've started to get junk snail mail from Earthweb (the new publisher
== of TPJ) at home which is strange because the only technology-related
== mailing list that has that address is TPJ. i've checked with a few
== other TPJ subscribers, and they have received similar junk mail.
== furthermore, i've all of a sudden starting receiving various computer
== catalogs at home. coincidence?
No, but it's a little more than just TPJ subscribers. I'm getting junk
smail from Earthweb as well - everything in duplicate. I've never been
a TPJ subscriber. But I did give Jon Orwant my address twice, in two
variations; and on those variations I'm getting junk snail mail from
Earthweb.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== 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: Mon, 19 Jul 1999 01:35:53 -0500
From: therzog@knotech.com (Tim Herzog)
Subject: Re: Trouble with Virtual Avenue
Message-Id: <therzog-1907990135530001@therzog-host105.dsl.visi.com>
In article <37928762.104724633@news.giganews.com>, Natalie@ix.netcom.com
(Natalie Portman) wrote:
>I'm just starting at this. For my first CGI program, I made a
>guestbook signing form and a perl program to print the information
>received from the form. It tells me there's some kind of
>misconfiguration. Anybody know what I'm doing wrong?
Most likely, your script doesn't have execute ('x') permission set. Use
chmod to give it executable permission:
chmod uo+x script_name
Or you might have to do this from your FTP client if you don't have shell
access.
--
Tim Herzog
------------------------------
Date: 19 Jul 1999 00:56:11 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Variable limitations
Message-Id: <slrn7p5fep.c9j.abigail@alexandra.delanet.com>
dan@tuatha.sidhe.org (dan@tuatha.sidhe.org) wrote on MMCXLVIII September
MCMXCIII in <URL:news:7Juk3.15683$y92.9051@news.rdc1.ct.home.com>:
@@
@@ Well, that's not *entirely* true. No matter how much memory I've got, perl
@@ won't allocate a scalar larger than 4G. Whether that's a sane thing to do
@@ is another question entirely... :-)
But, but, but, what if I want to interface Perl with Sybase 11.9.3, which
can use up to 4 Tb of RAM?
4 Gb is just peanuts....
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 187
*************************************
