[6929] in Perl-Users-Digest
Perl-Users Digest, Issue: 554 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 1 20:07:42 1997
Date: Sun, 1 Jun 97 17:00:21 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 1 Jun 1997 Volume: 8 Number: 554
Today's topics:
(byte,C) compiling perl scripts that 'use CGI' ? <alf@orion.it>
Re: (Help!)Formating output to sendmail <jbokma@caiw.nl>
Re: any editor for perl?--any editor written in Perl? <jhi@alpha.hut.fi>
Re: binary conversions ?? (Kerry Schwab)
Re: Bored? Want to evaluate my first (usefull) perl sc (Hope this helps!)
Re: Forking in Perl on NT ?? <billc@tibinc.com>
forward-looking UNIX 5.004 install? (Chris Schleicher)
HELP for PERL 5.003 under AIX <walter.boev@nrc.ca>
help!!! <yzhou@mtu.edu>
Re: help!!! (A. Deckers)
Re: help!!! (Tung-chiang Yang)
Help, embeding perl in C++ <ldanna@ix.netcom.com>
Re: Hide my code? <alf@orion.it>
Re: How do I pass HTTP_REFERER parameter in LWP:UserAge <aas@bergen.sn.no>
How to administer Windows NT Server via Perl (Spiro Angeli)
MacPerl and filetypes <matt@geenite.demon.co.uk>
Re: Newbie Perl CGI Help <jbokma@caiw.nl>
Re: Password verification/File Access Priveleges <jbokma@caiw.nl>
Re: Printing Arrays to a file <rootbeer@teleport.com>
Re: Printing Arrays to a file <jbokma@caiw.nl>
Protecting perl code *Important* <noasat@acm.vt.edu>
Re: RESELLER PROGRAM THAT WORKS (Hope this helps!)
Re: Second perl book <merlyn@stonehenge.com>
Re: Server side includes to run Perl scripts from web p <beske@worldnet.att.net>
Re: Statistics for comp.lang.perl.misc (Greg Bacon)
Re: Statistics for comp.lang.perl.misc (Greg Bacon)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 31 May 1997 15:07:42 +0200
From: Alessandro Forghieri <alf@orion.it>
Subject: (byte,C) compiling perl scripts that 'use CGI' ?
Message-Id: <54yb8vlrhd.fsf@alpha.orion.it>
Hello, everybody.
I have been trying to use Malcolm Beatty's a3 compiler on a couple
of programs I have - they both do a :
use CGI; # Cgi.pm
use Pg; # Postgres v6 module
According to the documentation of the compiler, and looking at the
code of Cgi.pm, this should be a 'bleeding edge' task for the compiler
(runtime autoloaded methods, etc.)
In fact I did not have much success.
Using -MO=Bytecode produces a script that complains of an undefined
read_from_cmdline.
Using -MO=C, without any additional options, yields an executable who
knows nothing about "new CGI"
Using -MO=C,-uCGI requires much tinkering ( a lot of undefs pop up in the
postgres part), and goes a little farther, but does eventually fail
with:
"Can't call method "param" without a package or methode reference at .."
I did not try -MO=CC - nor do I expect better luck from trying it ...
though maybe I am wrong.
i) Is what I am trying to do just not possible with the a3 compiler?
ii) Will it be possible in future releases of the compiler?
iii) Should I bother (meaning - will I reap significant advantages in terms
of speed, load on the machine, etc.) ?
I know these questions are quite generic...
Advanced thanks to all who will answer.
Cheers,
Alessandro
---
Alessandro Forghieri Site administrator Nouvelle srl
Email: alf@orion.it Voice: +39 59 345767
Via Giardini 460 Fax: +39 59 343822
------------------------------
Date: 1 Jun 1997 23:05:01 GMT
From: "John Bokma" <jbokma@caiw.nl>
Subject: Re: (Help!)Formating output to sendmail
Message-Id: <01bc6edf$f3424460$920ab2c2@tschai>
Angelo Kello <kello@technicom.net> wrote in article
<33910AAE.17CE@technicom.net>...
> (URGENT HELP!) Formating to SendMail
>
> Hi there,
>
> I'm new to PERL ,can someone please help me with this one:
> I'm trying to send a sort of a columnar report EMail through
> sendmail,but the results are anything but columnar!. I tried FORMAT
but
> that doesn't even output any thing and with 'printf()' it doesn't
> display as its counterpart in C , the manual of Perl5 says that
'printf'
> is an exact match for C's printf. (please Help)
>
> I'm trying to send something like this:
>
> Column1 Column2
> ----------------------------------------------
> $dummy1 $dummy2
>
>
> I used : printf (MAIL,"%-40s %10s\n"$dummy1,$dummy2) ;
You can try a trick like this:
print $dummy1, " " x (40 - length($dummy1)), "$dummy2\n"
And for the neath line:
print "-" x 80, "\n";
The string x n gives a string which consists of n times string
concatenated.
John
--
----------------------------------------------------------------------
Need a Freelance Software Developer (MSc)? (CGI, Perl, Java, C, C++)
http://www.caiw.nl/~jbokma [Java demo's, Curriculum Vitae and
more...]
email: jbokma@caiw.nl phone: +31 10 4291827
------------------------------
Date: 31 May 1997 17:37:00 +0300
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: any editor for perl?--any editor written in Perl?
Message-Id: <oee3er3k8s3.fsf@alpha.hut.fi>
: I've got one comment regarding CPAN, though: reading the ROADMAP.html
: file doesn't really make it obvious that you're gonna find real tools like
: vi there. The link for the src subdirectory says "source code and patches
: for Perl itself (and for some auxiliary utilities)". I've always thought
: that this meant: source for Perl, patches, and sources for other things
: having to do with "Perl itself". So, vi doesn't intuitively fit in there
: for me. Maybe a rewording of the link would be useful. Nonetheless, it's
: no excuse -- I could have found what I was looking for in DejaNews.
I did some rewording now but I am not certain was it for worse or for better:
and for some auxiliary utilities having to do with Perl
or using Perl in some way or another
Regards,
The Self-Appointed Master Librarian of CPAN
--
$jhi++; # http://www.iki.fi/~jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: 1 Jun 1997 15:30:08 -0600
From: kschwab@nyx10.cs.du.edu (Kerry Schwab)
Subject: Re: binary conversions ??
Message-Id: <5mspl0$amm@nyx10.cs.du.edu>
Since most folks are looking for MSB when doing this, and don't care
for the leading zeros, I'd suggest the following variation..
( $bits=unpack 'B*', pack 'N', hex($number) ) =~ s/^0+//g;
--
Kerry
In article <EAyoCr.5D0@world.std.com>,
Andrew M. Langmead <aml@world.std.com> wrote:
>Sefi Kraemer <skraemer@iil.intel.com> writes:
>
>>I need to convert a hex integer into a binary integer.
>>The former is proccesed and printed.
>>Does perl support such a feature? Do I have to right my own convertion
>>function?
>
>You can do it with a combination of pack(), unpack(), and hex()
>
>$bitstring = unpack 'B*', pack 'I', hex('2f87');
>
>hex takes a string and returns a numeric scalar based on string
>interpreted as hexadecimal digits. pack() with the 'I' format take a
>number returns a sequence of bytes that is the processors
>repesentation of that number. (which is slightly different than a perl
>scalar that contains that number.) The unpack with the 'B' format
>takes a packed integer and returns a string that represents that
>integer.
>
>--
>Andrew Langmead
------------------------------
Date: 1 Jun 1997 12:21:42 -0500
From: scribble@shoga.wwa.com (Hope this helps!)
Subject: Re: Bored? Want to evaluate my first (usefull) perl script?
Message-Id: <5msb36$err@shoga.wwa.com>
Russ Allbery <rra@stanford.edu> wrote:
>I think it's a bad idea to use -w on released production code. The next
>time a new version of Perl comes out, you're almost guaranteed to get a
>bunch of warnings from the script, and for widely deployed scripts this
>confuses users.
Not just users; there is also the case where some old cron job tries to
mail to root repeatedly, but doesn't exactly know how, and the dam breaks
somewhere, and nobody has a clue what happened, and the horror... Don't
ask me the details, it happened to a friend of mine. I mean to say, to
a cousin of mine. Or actually, to a brother. My twin brother.
Definitely no "-w"s in production code...
------------------------------
Date: Sun, 01 Jun 1997 19:53:28 -0400
From: Bill Cowan <billc@tibinc.com>
To: Bhuvanesh Jani <bhuvan@qimage.com>
Subject: Re: Forking in Perl on NT ??
Message-Id: <33920B78.408D@tibinc.com>
Bhuvanesh Jani wrote:
>
> Hi,
>
> I have a perl script which uses fork. I am trying execute it on NT.
> Seems like NT doesn't support fork. Does any one out there know the way
> around it ?!
>
> Please reply directly to bhuvan@qimage.com.
>
> Thanks
> --
> Bhuvan Jani
You may want to check into Win32::* modules included with the ActiveWare
port. One example from Win32::* HTML files:
Win32::Spawn COMMAND, ARGS, PID
Spawns a new process using the supplied COMMAND, passing in
arguments
in the string ARGS. The pid of the new process is stored in PID.
-- Bill
-----------------------------------------------------------------------
Bill Cowan <billc@tibinc.com> Voice:919-490-0034 Fax:919-490-0143
Tiburon, Inc./3333 Durham-Chapel Hill Blvd Suite E-100/Durham, NC 27707
------------------------------
Date: 1 Jun 1997 11:18:12 -0700
From: chrissch@cs.uoregon.edu (Chris Schleicher)
Subject: forward-looking UNIX 5.004 install?
Message-Id: <5msed4$mfo@psychotix.cs.uoregon.edu>
Keywords: 5.004 install
I'm installing 5.004 on Solaris 2.5 if it matters, but I don't think
this question is specific to any particular flavor of UNIX.
I've been in the habit of installing each version of Perl in its own
directory. This facilitates wiping out old versions. However, I think
this advandate is outweighed by the necessity of copying/recompiling
stuff in site_lib. Hence I'd like to avoid the site_lib mess when 5.005
and friends arrive.
I understand from reading INSTALL that 5.004 places lib files in
version-specific directories. I'm less clear about what to do with man
pages and binaries. If I want to have a complete set of man pages for
each future version--and perhaps binaries, if there's any reason to hang
onto more than perl5.004--what's the best way to proceed?
Thanks,
--Chris
--
Chris Schleicher Office: 541/346-3998
Univ of Oregon CIS GTF email: chrissch@cs.uoregon.edu
URL: http://www.cs.uoregon.edu/~chrissch/
------------------------------
Date: 1 Jun 1997 16:39:07 GMT
From: "Walter Boev" <walter.boev@nrc.ca>
Subject: HELP for PERL 5.003 under AIX
Message-Id: <01bc6ea9$babe66e0$5d50f684@pc93.cisti.nrc.ca>
Hi all,
I am trying to compile PERL 5.003 under AIX on two IBM Risc 6000
computers
I am running AIX 4.14. I have successfuly compiled on one machine by using
all the stantard defaults. However on the other machine I keep getting the
following
error when I run make.
The Unsupported function umask function is unimplemented at
./../lib/ExtUtils/Install.pm line 242
make: 1254-004 The error code from the last command is 2
Why would it work on one machine and not the other? On the machine that it
worked OK the
executable is in /usr/bin while in the one which does't work it is in
/usr/local/bin.
Could this be the reason? I doubt it.
Should I run make from a particualar directory?
Please help!!!!!!
Thanks,
Walter Boev
National Reserch Council of Canada
------------------------------
Date: Sun, 01 Jun 1997 16:25:13 -0400
From: Yan Zhou <yzhou@mtu.edu>
Subject: help!!!
Message-Id: <3391DAA8.41C67EA6@mtu.edu>
I am tired.
There's a perl program,
#!/usr/local/perl/bin/perl
print "Content-type: text/html\n\n";
print <<END1;
<HTML>
<BODY>
<H1>WHY!!!!!!!!!! </H1>
</BODY>
</HTML>
END1
exit (0);
It's so simple, but the complier refused to accept it,
with error message:"
Can't find string terminator "END1" anywhere before EOF."
but, I also have another program with much more output
than it, working well.
I totally have no idea how can it be.
Any hint will be greatly appreicated.
Yan Zhou
yzhou@mtu.edu
------------------------------
Date: 1 Jun 1997 20:59:38 GMT
From: I-hate-cyber-promo@man.ac.uk (A. Deckers)
Subject: Re: help!!!
Message-Id: <slrn5p3olq.st7.I-hate-cyber-promo@news.rediris.es>
In comp.lang.perl.misc,
yzhou@mtu.edu wrote:
>I am tired.
>
> There's a perl program,
>
>#!/usr/local/perl/bin/perl
>
>print "Content-type: text/html\n\n";
>
> print <<END1;
>
> <HTML>
> <BODY>
> <H1>WHY!!!!!!!!!! </H1>
> </BODY>
> </HTML>
>
> END1
^
|--------- This must start on column 0. Remove the space in front of it.
>exit (0);
>
> It's so simple, but the complier refused to accept it,
>with error message:"
>Can't find string terminator "END1" anywhere before EOF."
Because there is a space in front of END1.
Alain
--
Perl information: <URL:http://www.perl.com/perl/>
Perl archive: <URL:http://www.perl.com/CPAN/>
Perl FAQ: <URL:http://www.perl.com/CPAN/doc/FAQs/FAQ/>
>>>>>>>>>>>>> NB: comp.lang.perl.misc is NOT a CGI group <<<<<<<<<<<<<<
------------------------------
Date: Sun, 1 Jun 1997 23:04:41 GMT
From: tcyang@netcom.com (Tung-chiang Yang)
Subject: Re: help!!!
Message-Id: <199706012304.QAA17203@netcom10.netcom.com>
I believe this is in the Perl FAQ. Your "END1" string should be at the
beginning of a line, and there should be no white space after it.
==============================
Yan Zhou (yzhou@mtu.edu) wrote:
: I am tired.
: There's a perl program,
: #!/usr/local/perl/bin/perl
: print "Content-type: text/html\n\n";
: print <<END1;
: <HTML>
: <BODY>
: <H1>WHY!!!!!!!!!! </H1>
: </BODY>
: </HTML>
: END1
: exit (0);
--
Tung-chiang Yang tcyang@netcom.com
soc.culture.taiwan, soc.culture.china (by SCC FAQ Team) FAQ's:
http://www.iglou.com/tcyang/Taiwan_faq.shtml, China_faq.shtml
------------------------------
Date: Sun, 01 Jun 1997 16:55:23 -0400
From: Larry D'Anna <ldanna@ix.netcom.com>
Subject: Help, embeding perl in C++
Message-Id: <3391E1BB.2C76@ix.netcom.com>
Does anyone know how to embed perl functions in C/C++? Thanks a lot.
------------------------------
Date: 31 May 1997 15:34:52 +0200
From: Alessandro Forghieri <alf@orion.it>
Subject: Re: Hide my code?
Message-Id: <54u3jjlq83.fsf@alpha.orion.it>
ATLANTIDE <"atlantide@wanadoo.fr"@wanadoo.fr> wrote:
: Hello,
: How can I hide my code for a Perl program. I'd like to write Perl
: programs but i don't someone to change them. Like in C, an Exe program
: is not "uptatable" directly. Has Perl this utility ?
: Thanks for your answer
: Regards
Suggestion: the perl backend compiler (found on CPAN) will give you some
of what you ask. Not terribly easy to work with at this stage.
The FAQ has a section on code shrouding, along with opinions on why it
could not be a good idea, after all.
Undump is (as of perlv5) no longer workable - and, to my knowledge,
it has never been something that could be actually easily used even in the
past.
HTH.
Cheers,
Alessandro.
---
Alessandro Forghieri Site administrator Nouvelle srl
Email: alf@orion.it Voice: +39 59 345767
Via Giardini 460 Fax: +39 59 343822
------------------------------
Date: 01 Jun 1997 20:14:06 +0200
From: Gisle Aas <aas@bergen.sn.no>
Subject: Re: How do I pass HTTP_REFERER parameter in LWP:UserAgent ?
Message-Id: <h7mgenqc1.fsf@bergen.sn.no>
abigail@fnx.com (Abigail) writes:
> On 31 May 1997 13:46:16 GMT, Walter Klomp (walter@swiftech.com.sg) wrote in
> comp.lang.perl.misc
> <URL: news:01bc6dc9$42a69a00$7bec2aca@walter.swiftech.com.sg>:
> ++ Hi,
> ++
> ++ I am trying to auto-submit (POST) some information to a form on a server
> ++ which actually checks on the HTTP_REFERER parameter (which browsers usually
> ++ send). Is there any way I can submit this information in my request as well
> ++ ?
> ++
> ++ Any answers are very welcome. Also please e-mail it directly to me as
> ++ sometimes my news-program doesn't work that well...
>
> I would say so! Your news program is seriously broken, it is posting
> CGI questions in a Perl group. You really have to get a newsreader
> that posts CGI questions to a CGI group.
I don't think this question had anything to do with CGI (even if he
use CGI terminology to talk about the 'Referer' HTTP header)
$req = HTTP::Request->new(POST => 'http://.../script');
$req->header(Referer => 'http://.../somewhere');
$ua->request($req);
--
Gisle Aas <aas@sn.no>
------------------------------
Date: Sun, 01 Jun 1997 16:00:58 GMT
From: Spiro@uh.edu (Spiro Angeli)
Subject: How to administer Windows NT Server via Perl
Message-Id: <33919bd2.2171332@news.uh.edu>
Hello,
I am looking for some literate material and/or software that can teach
me how to administer the NT Server such as add users, create
directory, share, security, modify/add/delete registry entry, and
several other features.
If any has some info or knows a book that talks about this topic could
please let me know. It has been a nightmare for me to look for these
info.
Thank you for your time.
Spiro
------------------------------
Date: Sun, 01 Jun 1997 22:03:11 +0000
From: Matthew Knight <matt@geenite.demon.co.uk>
Subject: MacPerl and filetypes
Message-Id: <3391F19F.4AEF@geenite.demon.co.uk>
going out to any MacPerl users
i want to create a droplet application in perl which will set the
filetype and creator when i drop a file on the application.
obviously using the @ARGV command... how do you change the filetype and
creator of a mac file with perl.. i know it's possible, cause i've seen
an example, but cant find it :(
email me at home
thanks
matthew knight
matt@geenite.demon.co.uk
------------------------------
Date: 1 Jun 1997 23:14:32 GMT
From: "John Bokma" <jbokma@caiw.nl>
Subject: Re: Newbie Perl CGI Help
Message-Id: <01bc6ee1$47f70800$920ab2c2@tschai>
Mike Gehl <gehlm@execpc.com> wrote in article
<338F2853.4301@execpc.com>...
> I'm looking for a sample perl script which when executed will cause
a
> browser to jump to a new URL. It should work like the banners we
see on
> all the search engines.
>
> sample html looks like this...
>
> <a
>
href="http://www.homesite.com/cgi-bin/linker.cgi?http://www.linksite.c
om">Click
> to jump</a>
>
> Thanks
>
---------------------------------------------------------------
#!/usr/local/bin/perl
$url = ENV{"QUERY_STRING"};
print "Location: $url\n\n";
--------------------------------------------------------------
Regards,
John
--
----------------------------------------------------------------------
Need a Freelance Software Developer (MSc)? (CGI, Perl, Java, C, C++)
http://www.caiw.nl/~jbokma [Java demo's, Curriculum Vitae and
more...]
email: jbokma@caiw.nl phone: +31 10 4291827
------------------------------
Date: 1 Jun 1997 23:17:27 GMT
From: "John Bokma" <jbokma@caiw.nl>
Subject: Re: Password verification/File Access Priveleges
Message-Id: <01bc6ee1$aff07680$920ab2c2@tschai>
Tai Luxon <tluxon@phoenix.calpoly.edu> wrote in article
<tluxon-ya02408000R3105970122230001@news.calpoly.edu>...
> I am trying to set up a script that will allow a web surfer to
enter a name
> and a password into a form and if it is a valid identity the form
will kick
> out information to them from a file. How can I store info on the
server
> (both the info I want to kick out and the password file) so that my
script
> can access it, but web surfers cannot? Thanks. - Tai
Put it *not* inside the HTML directory! In most cases, put it in the
parent of
your HTML directory if the parent contains the cgi-bin. Try to go to
this
directory with your browser. If it works, it is *not* safe.
John
--
----------------------------------------------------------------------
Need a Freelance Software Developer (MSc)? (CGI, Perl, Java, C, C++)
http://www.caiw.nl/~jbokma [Java demo's, Curriculum Vitae and
more...]
email: jbokma@caiw.nl phone: +31 10 4291827
------------------------------
Date: Sun, 1 Jun 1997 14:15:27 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Bugsy <rlall1@mugca.cc.monash.edu.au>
Subject: Re: Printing Arrays to a file
Message-Id: <Pine.GSO.3.96.970601141333.28111A-100000@kelly.teleport.com>
On 1 Jun 1997, Bugsy wrote:
> when I print my array to a file, it's printing it all on one line, (and
> then wrapping the text), rather than one entry per line.
> print AG "@altsorted \n";
Well, it looks as if Perl is doing what you've asked of it. Isn't that
what you want? :-)
print AG map("$_\n", @altsorted), "\n";
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 1 Jun 1997 23:21:45 GMT
From: "John Bokma" <jbokma@caiw.nl>
Subject: Re: Printing Arrays to a file
Message-Id: <01bc6ee1$f5828580$920ab2c2@tschai>
Bugsy <rlall1@mugca.cc.monash.edu.au> wrote in article
<5mreub$tiu$1@towncrier.cc.monash.edu.au>...
> I'll apologise now to all of you who have been asked this type of
question
> before, but I'm new to perl, (and to programing to for that
matter), and I'm
> having trouble printing the contents of an array to a file. I've
read the
> camel book, and the perl manpages and faq, but have been unable to
solve this
> problem.
>
> Erm I guess I'd better tell you what it is...okie when I print my
array to a
> file, it's printing it all on one line, (and then wrapping the
text), rather
> than one entry per line.
print join("\n", @array"), "\n";
join glues the array-elements together with "\n".
John
--
----------------------------------------------------------------------
Need a Freelance Software Developer (MSc)? (CGI, Perl, Java, C, C++)
http://www.caiw.nl/~jbokma [Java demo's, Curriculum Vitae and
more...]
email: jbokma@caiw.nl phone: +31 10 4291827
------------------------------
Date: Sun, 01 Jun 1997 15:16:10 -0400
From: Carl Eklof <noasat@acm.vt.edu>
Subject: Protecting perl code *Important*
Message-Id: <3391CA7A.6E64@acm.vt.edu>
How does one protect perl code.
I have a very serious issue; I am selling some code that I wrote and
would like to protect it against copying, etc. I have heard that there
are ways to convert perl into its binary form. Is that true? That would
certainly solve my problem.
The code will be on their machine, so they could pretty much do what
ever they want.
Please help,
Thanks it advance,
-Carl
--
/ The world of the future will be an ever more demanding /
/ struggle against the limitations of our intelligence, /
/ not a comfortable hammock in which we can lie down to be /
/ waited upon by our robot slaves. -Norbert Wierner, 1964 /
------------------------------
Date: 1 Jun 1997 14:05:58 -0500
From: scribble@shoga.wwa.com (Hope this helps!)
Subject: Re: RESELLER PROGRAM THAT WORKS
Message-Id: <5msh6m$369@shoga.wwa.com>
Tony Ellison[ny][shoplet.com] <ellison@ingress1.murdoch.edu.au> wrote:
>INTERNET MARKETING RESELLER PROGRAM
Stop words detected in the first 8 lines:
promoter
solution
clients
marketing
results
enhances
product_line
income_stream
win-win
FREE
(Expecting a "thank you for your interest" letter any time now...)
------------------------------
Date: 01 Jun 1997 09:06:14 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: brian@brie.com (Brian Lavender)
Subject: Re: Second perl book
Message-Id: <8c910utiix.fsf@gadget.cscaper.com>
>>>>> "Brian" == Brian Lavender <brian@brie.com> writes:
[snippage]
Thank you for the wonderful compliments about my web site, but please
note that:
Brian> Home Page
Brian> http://www.stonehenge.com/merlyn
should be written as:
http://www.stonehenge.com/merlyn/
so that the server doesn't take two hits to first locate the page.
Yes. That trailing slash *does* make a difference.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 456 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 01 Jun 1997 19:28:56 -0400
From: Bryan Beske <beske@worldnet.att.net>
Subject: Re: Server side includes to run Perl scripts from web pages
Message-Id: <339205B8.1CBD@worldnet.att.net>
Scott Crumpton wrote:
>
> Matthew Burnham wrote:
>
> > >I am trying to execute a Perl script to generate a counter on my web page
> > >using the following comment tag in the webpage itself.
> > >
> > ><!--#exec cgi="http://cep.lse.ac.uk/fm-cgi-bin/counter.pl"-->
> > This should be a server path not a url, but I'm not sure whether it
> > should be a full path or a virtual path (from the webserver root).
>
> On our system it looks like this.
>
> <!--#exec cgi="/cgi-bin/my_counter.cgi" -->The #exec directive takes either depending on the parameter you
pass it. Check out the SSI documentation on the NCSA site for
futher details.
b^2
------------------------------
Date: 1 Jun 1997 19:24:46 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <5msi9u$8t0$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 24 May 1997 09:14:19 GMT and ending at
31 May 1997 05:43:26 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 401
Total number of articles: 834
Total number of threads: 345
Total volume generated: 1310.5 kb
- headers: 547.5 kb
- bodies: 724.0 kb (503.7 kb original)
- signatures: 37.4 kb
Averages
========
Number of posts per poster: 2.1
Number of posts per thread: 2.4
Message size: 1609.0 bytes
- header: 672.2 bytes
- body: 888.9 bytes (618.4 bytes original)
- signatures: 45.9 bytes
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
65 106.2 ( 53.8/ 52.3/ 37.9) Tom Phoenix <rootbeer@teleport.com>
34 54.5 ( 22.6/ 31.9/ 13.7) Chipmunk <Ronald.J.Kimball@dartmouth.edu>
23 33.6 ( 12.6/ 20.9/ 13.4) Tung-chiang Yang <tcyang@netcom.com>
18 36.2 ( 17.1/ 15.0/ 7.6) abigail@fnx.com
17 26.7 ( 10.1/ 16.6/ 9.4) Tad McClellan <tadmc@flash.net>
13 21.2 ( 7.9/ 13.3/ 11.4) Nathan V. Patwardhan <nvp@shore.net>
13 17.7 ( 7.4/ 10.3/ 5.2) Hope this helps! <scribble@shoga.wwa.com>
13 18.0 ( 7.5/ 10.5/ 4.3) Hope this helps! <scribble@wwa.com>
12 17.5 ( 8.1/ 9.4/ 4.2) Magnus Bodin <Magnus.Bodin@tychonides.se>
11 14.0 ( 5.4/ 8.4/ 5.1) Andrew M. Langmead <aml@world.std.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
106.2 ( 53.8/ 52.3/ 37.9) 65 Tom Phoenix <rootbeer@teleport.com>
54.5 ( 22.6/ 31.9/ 13.7) 34 Chipmunk <Ronald.J.Kimball@dartmouth.edu>
36.2 ( 17.1/ 15.0/ 7.6) 18 abigail@fnx.com
33.6 ( 12.6/ 20.9/ 13.4) 23 Tung-chiang Yang <tcyang@netcom.com>
26.7 ( 10.1/ 16.6/ 9.4) 17 Tad McClellan <tadmc@flash.net>
24.3 ( 8.1/ 12.2/ 7.3) 11 Randal Schwartz <merlyn@stonehenge.com>
21.2 ( 7.9/ 13.3/ 11.4) 13 Nathan V. Patwardhan <nvp@shore.net>
18.0 ( 7.5/ 10.5/ 4.3) 13 Hope this helps! <scribble@wwa.com>
17.7 ( 7.4/ 10.3/ 5.2) 13 Hope this helps! <scribble@shoga.wwa.com>
17.5 ( 8.1/ 9.4/ 4.2) 12 Magnus Bodin <Magnus.Bodin@tychonides.se>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
12 PURE PERL .gif creating library needed; not in @#$ C language or external modules. PERL!
11 Who will win? Borland or Microsoft or Programmers?
11 Help with (
10 any editor for perl?
10 Magical Auto-increment operator
10 Why is ("a" == 0) true?
10 types
9 Idiom for list summation?
9 Need vacation program in Perl!
8 questions about chop
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
30.6 ( 14.2/ 15.8/ 6.2) 11 Who will win? Borland or Microsoft or Programmers?
25.4 ( 7.8/ 17.6/ 12.2) 10 Magical Auto-increment operator
21.0 ( 10.0/ 10.1/ 6.5) 12 PURE PERL .gif creating library needed; not in @#$ C language or external modules. PERL!
16.6 ( 6.8/ 9.5/ 5.3) 10 any editor for perl?
15.1 ( 6.9/ 7.7/ 4.8) 10 types
14.7 ( 6.4/ 8.1/ 4.2) 11 Help with (
13.7 ( 3.1/ 10.5/ 9.1) 5 LEXICAL Scoping Hell! (explain?)
13.4 ( 5.7/ 7.3/ 4.2) 9 Idiom for list summation?
13.4 ( 5.5/ 7.3/ 3.7) 8 questions about chop
13.1 ( 7.1/ 5.7/ 4.0) 10 Why is ("a" == 0) true?
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
39 comp.lang.perl.modules
17 comp.lang.perl
12 comp.databases
12 comp.lang.c++
12 comp.object
11 comp.sys.amiga.advocacy
11 comp.lang.javascript
11 comp.unix.advocacy
11 comp.lang.basic.visual
11 comp.lang.tcl
Top 10 Crossposters
===================
Articles Address
-------- -------
48 rmycroft@cyberatl.net
15 Jackson Dodd <jackson@usenix.org>
12 Ben Hanson <benh@cristie.co.uk>
12 Ah feel your pain <no@junks.com>
12 Tim Smith <tzs@halcyon.com>
12 Ulrich Lauther <lauther@fubini.zfe.siemens.de>
12 CyBorch <baldur@image.dk>
12 "Fotis S. Fotopoulos" <cv94018@SPAMcentral.ntua.gr>
12 Stephan Schaem <t21@ix.netcom.com>
11 "Frank Z. Gligic" <zdravko@netcom.ca>
------------------------------
Date: 1 Jun 1997 19:26:00 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <5msic8$8t0$2@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 18 May 1997 15:11:12 GMT and ending at
23 May 1997 06:00:44 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 375
Total number of articles: 791
Total number of threads: 317
Total volume generated: 1298.4 kb
- headers: 528.0 kb
- bodies: 725.4 kb (521.8 kb original)
- signatures: 43.4 kb
Averages
========
Number of posts per poster: 2.1
Number of posts per thread: 2.5
Message size: 1680.9 bytes
- header: 683.5 bytes
- body: 939.1 bytes (675.5 bytes original)
- signatures: 56.2 bytes
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
49 75.5 ( 39.2/ 36.2/ 26.2) Tom Phoenix <rootbeer@teleport.com>
34 62.1 ( 20.0/ 31.4/ 21.4) mike@stok.co.uk
29 57.0 ( 17.2/ 39.8/ 22.6) Tad McClellan <tadmc@flash.net>
29 54.7 ( 27.4/ 27.2/ 14.5) abigail@fnx.com
21 43.2 ( 14.4/ 28.8/ 10.1) Chipmunk <Ronald.J.Kimball@dartmouth.edu>
18 18.9 ( 10.7/ 8.2/ 5.3) Nathan V. Patwardhan <nvp@shore.net>
17 24.3 ( 10.2/ 14.1/ 8.9) Tung-chiang Yang <tcyang@netcom.com>
14 29.8 ( 15.8/ 14.1/ 8.3) Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
10 19.2 ( 7.6/ 7.9/ 5.3) Randal Schwartz <merlyn@stonehenge.com>
10 20.9 ( 5.0/ 15.7/ 9.3) Andrew M. Langmead <aml@world.std.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
75.5 ( 39.2/ 36.2/ 26.2) 49 Tom Phoenix <rootbeer@teleport.com>
62.1 ( 20.0/ 31.4/ 21.4) 34 mike@stok.co.uk
57.0 ( 17.2/ 39.8/ 22.6) 29 Tad McClellan <tadmc@flash.net>
54.7 ( 27.4/ 27.2/ 14.5) 29 abigail@fnx.com
43.2 ( 14.4/ 28.8/ 10.1) 21 Chipmunk <Ronald.J.Kimball@dartmouth.edu>
31.6 ( 2.5/ 29.1/ 27.3) 4 Jay Rogers <jay@rgrs.com>
29.8 ( 15.8/ 14.1/ 8.3) 14 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
24.3 ( 10.2/ 14.1/ 8.9) 17 Tung-chiang Yang <tcyang@netcom.com>
20.9 ( 5.0/ 15.7/ 9.3) 10 Andrew M. Langmead <aml@world.std.com>
19.2 ( 7.6/ 7.9/ 5.3) 10 Randal Schwartz <merlyn@stonehenge.com>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
14 Reading the last line of a file
11 yyyymmdd from localtime?
11 print variable $abc which consist of '$' in it
10 Help: How to Split a file at a Null Line???
9 Year 2000 compliance
9 Time stamping with perl
8 Split function
7 Address parsing one-liner
7 getting next line in while
7 Help in Removing lines with duplicate Field Ones
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
27.9 ( 1.2/ 26.7/ 26.0) 2 GnuEmacs, ActiveWare Perl and debugging
27.9 ( 1.9/ 25.9/ 13.2) 3 How would you optimize this ugly script?
19.0 ( 9.8/ 8.6/ 5.0) 14 Reading the last line of a file
19.0 ( 11.3/ 7.0/ 3.9) 6 RISC vs CISC or SunOS
17.0 ( 3.6/ 12.8/ 5.9) 6 AWKer needs Perl help
14.9 ( 7.3/ 7.3/ 4.2) 9 Year 2000 compliance
14.2 ( 7.1/ 6.7/ 3.8) 11 yyyymmdd from localtime?
13.9 ( 6.4/ 7.5/ 4.3) 10 Help: How to Split a file at a Null Line???
13.8 ( 4.9/ 8.9/ 6.3) 7 Pattern matching question
12.8 ( 4.7/ 8.0/ 5.4) 7 Help in Removing lines with duplicate Field Ones
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
22 comp.lang.perl.modules
20 alt.fan.e-t-b
15 comp.lang.perl
10 comp.lang.tcl
9 comp.lang.c++
8 comp.databases
8 comp.lang.javascript
7 comp.object
7 comp.unix.advocacy
7 comp.lang.basic.visual
Top 10 Crossposters
===================
Articles Address
-------- -------
23 Michael Gambale <michael_gambale@merck.com>
23 Ray Fischer <ray@netcom.com>
22 Darin Johnson <darin@usa.net.delete_me>
22 rseeger@baynetworks.com
22 Jake Nale <NOSPAMj@NOSPAMnetcom.com>
21 sinclair@ix.netcom.com
13 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
12 "Osvaldo Pinali Doederlein" <pinali@netpar.com.br>
6 cimarron@dis.org
6 joachim.durchholz@munich.netsurf.de
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 554
*************************************
