[9936] in Perl-Users-Digest
Perl-Users Digest, Issue: 3529 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 24 20:02:36 1998
Date: Mon, 24 Aug 98 17:00:24 -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 Mon, 24 Aug 1998 Volume: 8 Number: 3529
Today's topics:
Re: "protocol not supported" with socket() <gregor@novoironlight.com>
Re: Are $a and $b some special variables? (Ilya Zakharevich)
Re: Are $a and $b some special variables? (I R A Aggie)
Re: Are $a and $b some special variables? <joreb@algonet.se>
Re: CGI scripts executing other Perl scripts without ha chezmoi@my-dejanews.com
Re: CGI scripts executing other Perl scripts without ha chezmoi@my-dejanews.com
Re: COBOL Historical Stuff <stephen.d.burns2@boeing.com>
Counting files in a directory in WinNT npolonsk@hotmail.com
eval() and Subroutines <mooneer@earthlink.net>
Re: eval() and Subroutines (Mike Stok)
file upload under nt <emoritz@newfangledideas.com>
Re: Help!..re: secure sendmail question (Martien Verbruggen)
Ignoring lines in a data file <arm@home.net>
Re: Ignoring lines in a data file (Craig Berry)
Re: Is there a size limit on $ vars? <zenin@bawdycaste.org>
Re: Looking for Programmer/Job Opp. (brian d foy)
Re: Manipulating JPEG files? (Mike Stok)
Re: Maximum dbm database record size <zenin@bawdycaste.org>
Re: Multi-proc/multi-thread support in Perl/Unix <sugalskd@netserve.ous.edu>
Re: No index script (Jonathan Stowe)
Re: Perl 5 and HP-UX 11 <jack_zhu@hp.com>
Perl compiler <lily@tigr.org>
Re: Perl compiler <tchrist@mox.perl.com>
Re: Perl documentation (Martien Verbruggen)
Perl for Win32 Documentation <ldarcey@corp.inprise.com>
Re: Perl for Win32 Documentation (Brian Jepson)
Re: Problem with <STDIN> in a script with a DCL wrapper <sugalskd@netserve.ous.edu>
Re: Question using pack <ludlow@us.ibm.com>
Re: Recommend a good editor (Gary L. Burnore)
subsorting a report <arm@home.net>
Re: Threading/forking simple(?) programs <zenin@bawdycaste.org>
Re: Turn Perl program into binary <r28629@email.sps.mot.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 24 Aug 1998 15:25:39 -0700
From: Gregor Mosheh <gregor@novoironlight.com>
Subject: Re: "protocol not supported" with socket()
Message-Id: <35E1E863.A6AD38F8@novoironlight.com>
Thanks Byron. My fault, I left out some specifics:
The exact error string:
Protocol not supported at client line 30.
Output of "perl -v":
This is perl, version 5.004_04 built for sun4-solaris
Copyright 1987-1997, Larry Wall
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5.0 source
kit.
And here's the script (named "client"), copied from "Programming PERL"
by ORA:
#!/usr/local/bin/perl
$them = 'janice';
$port = 25 ;
$AF_INET = 2 ;
$SOCK_STREAM = 1 ;
$SIG{'INT'} = 'dokill';
sub dokill {
kill 9, $child if $child ;
}
$sockaddr = 'S n a4 x8';
chop($hostname = `hostname`);
($name,$aliases,$proto) = getprotobyname('tcp');
($name,$aliases,$port) = getservbyname($port,'tcp') unless $port =~
/^\d+$/;
($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
($name,$aliases,$type,$len,$thataddr) = gethostbyname($them);
$this = pack($sockaddr,$AF_INET,0,$thisaddr);
$that = pack($sockaddr,$AF_INET,$port,$thataddr);
if (socket(S, $AF_INET, $SOCK_STREAM, $proto)) {
print "Socket OK.\n";
}
else {
die $! ;
}
if (bind(S, $this)) {
print "Bind OK.\n";
}
else {
die $! ;
}
if (connect(S, $that)) {
print "Connect OK.\n";
}
else {
die $! ;
}
select(S) ; $| = 1 ; select(STDOUT);
if ($child = fork) {
while (<STDIN>) {
print S ;
}
sleep 3 ;
do dokill();
}
else {
while (<S>) {
print ;
}
}
------------------------------
Date: 24 Aug 1998 22:23:07 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Are $a and $b some special variables?
Message-Id: <6rsp4b$8v4$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Karlon West
<karlon@bnr.ca>],
who wrote in article <6rsluc$6aa@crchh14.us.nortel.com>:
> Ekenberg (joreb@algonet.se) wrote:
> Camel 2nd ed., page 219, 1st paragraph.
>
> To paraphrase: $a and $b are package globals exempt from
> "use strict" restrictions.
... which is a long-standing bug in the warn()er. I wonder why
nobody would fix it...
Ilya
------------------------------
Date: Mon, 24 Aug 1998 18:40:01 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Are $a and $b some special variables?
Message-Id: <fl_aggie-2408981840020001@aggie.coaps.fsu.edu>
In article <6rskou$385$1@cubacola.tninet.se>, "Ekenberg"
<joreb@algonet.se> wrote:
+ _But_ if we let $a and $b be without my-declaration instead:
+
+ ------------------------- ex 2 ---------------------
+ use strict;
+
+ $a = "ab";
+ $b = "cd";
+ my $c = "ef";
+ print $a,$b,$c;
+ ------------------------------------------------------
+ ..it compiles without a word of complaint and produces "abcdef".
+ Why??
Because of sort(), I think. 'perldoc -f sort' sez (among other things)
If you're using strict, you *MUST NOT* declare $a and $b as
lexicals. They are package globals. That means if you're in the
`main' package, it's
@articles = sort {$main::b <=> $main::a} @files;
or just
@articles = sort {$::b <=> $::a} @files;
but if you're in the `FooPack' package, it's
@articles = sort {$FooPack::b <=> $FooPack::a} @files;
The comparison function is required to behave. If it returns
inconsistent results (sometimes saying $x[1] is less than $x[2]
and sometimes saying the opposite, for example) the Perl
interpreter will probably crash and dump core. This is entirely
due to and dependent upon your system's qsort(3) library
routine; this routine often avoids sanity checks in the interest
of speed.
James
------------------------------
Date: Tue, 25 Aug 1998 00:55:05 +0200
From: "Ekenberg" <joreb@algonet.se>
Subject: Re: Are $a and $b some special variables?
Message-Id: <6rsr1e$6qp$1@cubacola.tninet.se>
>Camel 2nd ed., page 219, 1st paragraph.
>
>To paraphrase: $a and $b are package globals exempt from
>"use strict" restrictions.
>
Sorry. I looked through pages 127-140 on "Special Variables" in the the same
edition. Searching the index for $a or $b gave no results either.
Thank you!
:)
/Johan Ekenberg
------------------------------
Date: Mon, 24 Aug 1998 21:52:22 GMT
From: chezmoi@my-dejanews.com
Subject: Re: CGI scripts executing other Perl scripts without hanging?
Message-Id: <6rsnam$s4h$1@nnrp1.dejanews.com>
I just tried the following (portion of a Perl script)....
print "<FORM>";
$from_stdout = `/usr/local/test.tsh > /dev/null &`;
print "</FORM>";
...which immediately returns control (the t-shell script test.tsh prints 1
through 20000 to stdout).
The 2 key things: the redirect to dev/null and the assignment to $from_stdout.
W/o the assignment (@from_stdout works as well), otherwise it didn't return
immediately.
I hope this is helpful.
-John
In article <6q7gel$2nb$1@nnrp1.dejanews.com>,
salvador@my-dejanews.com wrote:
> In article <35c65e01.283130625@news.keyway.net>,
> tom@netoutfit.com (Tom O'Neil) wrote:
>
> > The code prints out the display page, but the HTTP connection remains
> > open until make_dbm.pl finishes execution. Any ideas as to how to
> > eliminate this problem?
>
> try redirecting the script stdin and stdout (maybe stderr):
>
> ...
> system ("./make_dbm.pl >/dev/null </dev/null &");
> ...
>
> bye!
>
> - Salva.
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 24 Aug 1998 22:12:17 GMT
From: chezmoi@my-dejanews.com
Subject: Re: CGI scripts executing other Perl scripts without hanging?
Message-Id: <6rsog1$tgc$1@nnrp1.dejanews.com>
--------------------------------------------------------------------------------
I tried to send a reply earlier today, but since I just joined dejanews, I think
the message got directed to /dev/null!!! Anyway, I tried the following (portion
of a Perl script)....
close STDIN;
close STDERR;
$from_stdout = `/usr/local/test.tsh > /dev/null &`;
...which immediately returns control (the t-shell script test.tsh prints 1
through 20000 to stdout). I hope this is helpful.
-John
-----------------------------------------------------------------------------
---
In article <35c65e01.283130625@news.keyway.net>,
tom@netoutfit.com (Tom O'Neil) wrote:
> I have a CGI script that calls another Perl script to run. My problem
> is that this second script takes a little while to run, and as it
> stands right now, the webserver keeps the HTTP connection to the
> client open until the second script finishes execution. What I'd like
> to do is run the second script and then close the HTTP connection
> without waiting for it to finish execution. The relevant section of
> code is:
>
> $pid = fork ();
> if ($pid == 0) {
> #this is the second script
> system ("./make_dbm.pl&");
> } else {
> #print out a web page that lets the user know that the make_dbm script
> #is running
>
> The code prints out the display page, but the HTTP connection remains
> open until make_dbm.pl finishes execution. Any ideas as to how to
> eliminate this problem?
>
> Tom O'Neil
> tom@netoutfit.com
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 24 Aug 1998 17:08:44 GMT
From: "Stephen D. Burns" <stephen.d.burns2@boeing.com>
Subject: Re: COBOL Historical Stuff
Message-Id: <35E19E1C.62DE@boeing.com>
Charles F Hankel wrote:
>
> Matt Heusser wrote:
> >
> > >>Admiral Grace Hopper.
> > >Indeed she was
> > >(BTW, she retired as rear admiral).
> >
> > Yes, and in informal communication the "rear"
> > designator of "rear admiral" may be dropped.
>
> Informally, she was probably "Grace".
>
> --
> Charles F Hankel Wirral UK
> ------------------------------
> Ready, Willing and (avail)Able
There is a nice article about Admiral Hopper in the current issue of
American Heritage if Invention and Technology. It's a quarterly about
the history of invention and technology...
--
Steve Burns
PO Box 3707 Mail Stop 35-62
Seattle, WA 98124 Think globally,
(206) 662-5937 Act ridiculously......
------------------------------
Date: Mon, 24 Aug 1998 22:04:53 GMT
From: npolonsk@hotmail.com
Subject: Counting files in a directory in WinNT
Message-Id: <6rso25$sq7$1@nnrp1.dejanews.com>
I know that there is probably some simple way to do this, but I can't seem to
find it for some reason:
I want to count the number of files there are in a directory. I know that if
I were under UNIX I could simply ready the results of "ls | wc -l". However,
even with the NT ports of LS and WC I'm having problems.
I'm using a foreach loop to go through an array of directory names.
Can anyone help? There's probably some function that does it, but for some
reason I can't find it in the FAQ's.
--Nathan
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 24 Aug 1998 14:46:59 -0700
From: Mooneer Salem <mooneer@earthlink.net>
To: systalk@ml.org
Subject: eval() and Subroutines
Message-Id: <35E1DF52.E38E6B26@earthlink.net>
In perl, if i use an eval() block and I call subroutines defined outside
the block, will it result in any errors?
For example:
sub div {
my ($n1, $n2) = @_;
if ($n2 == 0) {
die "Division by zero\n";
} else {
return $n1 / $n2;
}
}
eval{
÷
}
--
Mooneer Salem
Webmaster and Administrator for HyperNetMsg
(http://hypernetmsg.hypermart.net)
------------------------------
Date: 24 Aug 1998 23:30:45 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: eval() and Subroutines
Message-Id: <6rst35$qpu@news-central.tiac.net>
The eval will catch the die from the subroutine as you seem to expect, so
you can use $@ to see if anything untoward happened e.g.
eval{
&div (1, 0);
};
print "caught $@" if $@;
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Mon, 24 Aug 1998 19:38:50 -0700
From: Enrico Moritz <emoritz@newfangledideas.com>
Subject: file upload under nt
Message-Id: <35E223BA.C0F23F67@newfangledideas.com>
Hi, I am currently trying to upload a file on a NT maschine.
It works under Linux excellent but not under NT.
Here is the code I'm using:
#--------------------------------------------------------------------------------
#!/usr/bin/perl
use CGI;
$query = new CGI;
print $query->header;
&do_prompt($query);
&do_work($query);
&print_tail;
sub do_prompt {
my($query) = @_;
print qq|
<H1>File Upload</H1>
Select the <VAR>browse</VAR> button to choose a text file
to upload. When you press the submit button, this script
will show the content of the file.
|;
# Start a multipart form.
print
# $query->start_multipart_form, ###<- this work under Linux
without any problem
$query->start_form, ###<- this works under NT, but the browser
didn't
### show me the content of the file
"Enter the file to process:",
$query->filefield(-name=>'filename',
-size=>30),"<BR>",
$query->reset,$query->submit(-label=>'Process File'),
$query->end_form;
}
sub do_work {
my($query) = @_;
if ($file = $query->param('filename')){
print "<HR>\n";
print "<H2>$file</H2>\n";
while (<$file>) {
print ">$_";
}
}
}
sub print_tail {
print $query->end_html;
}
#--------------------------------------------------------------------------------
I tried already some other scripts, but under NT the browser uploaded
only 40 KB
of each file.
Is there anybody who had already the same problem???
Thanks in advance for any help.
Enrico
------------------------------
Date: Mon, 24 Aug 1998 22:44:05 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Help!..re: secure sendmail question
Message-Id: <V0mE1.1967$4F5.1510935@nswpull>
In article <6rnem2$1au$67@elle.eunet.no>,
"Mr. mister" <leegala@nospam.ican.net> writes:
> Hi folks,
> I have done this but it doesn't work, I get a returned message after
> posting the data: "the server must be down or there is an internal
> error, contact your administrator".
Posting this four times does not make it a perl issue. Try asking thsi
question (once) on one of the comp.infosystems.www.* groups.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 24 Aug 1998 22:48:17 GMT
From: Alan Melton <arm@home.net>
Subject: Ignoring lines in a data file
Message-Id: <35E1ECA6.64745E1F@home.net>
I am opening a file to read lines into a printout:
example of file:
18,August,1998,1002,1,28.25,28.25,Accounting:Conc.+Appl.-Std.Gde.1-14
5th 96 New
18,August,1998,1004,1,84.45,84.45,Accounting:Concepts & Application
1st New
18,August,1998,1005,1,63.35,63.35,Accounting:Concepts & Application
1st Used
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
18,August,1998,,,,,
19,August,1998,1002,1,28.25,28.25,Accounting:5th 96 New
19,August,1998,3139,1,51.15,51.15,Business
19,August,1998,,,,,
19,August,1998,,,,,
I only want to use the files where the fourth or fifth field.etc has a
value,
otherwise I want the program to continue reading down to the next line
to see if
it fulfills the criteria and so on. If it finds another record with
data,
that line should be included.
Alan Melton
------------------------------
Date: 24 Aug 1998 23:30:33 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Ignoring lines in a data file
Message-Id: <6rst2q$2no$1@marina.cinenet.net>
Alan Melton (arm@home.net) wrote:
: I am opening a file to read lines into a printout:
: example of file:
[all but two representative lines snipped]
: 18,August,1998,1005,1,63.35,63.35,Accounting:Concepts & Application 1st Used
: 18,August,1998,,,,,
: I only want to use the files where the fourth or fifth field.etc has a
^ I presume you mean 'lines' here.
: value, otherwise I want the program to continue reading down to the next
: line to see if it fulfills the criteria and so on. If it finds another
: record with data, that line should be included.
Presuming data on stdin:
while (<>) {
my @field = split /,/;
next unless $field[3] || $field[4];
# Do your processing on accepted lines here.
}
Note that you can't use this simple an approach if your data is more
complicated than you've shown, and comma ever appears *other* than as a
separator (e.g., if there are quoted fields with internal commas or the
like). Note also that the further-processing bit can reuse the
conveniently pre-split line contents in @field. Note further that you
should read the Llama book. That'll be 3 karma points, please. :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "Ripple in still water, when there is no pebble tossed,
nor wind to blow..."
------------------------------
Date: 24 Aug 1998 21:55:43 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Is there a size limit on $ vars?
Message-Id: <903995661.285461@thrush.omix.com>
YabbaDoo <send.spam.only@this.address> wrote:
: Is there a limit as to the size of the $ls variable?
Sure. How much RAM you got?
: I have found 2 sets of online doco but no indication of *size limits* on any
: vars of any type. If you know of better doco please point me at it.
From man perl:
"Unlike most Unix utilities, Perl does not arbitrarily limit the size
of your data--if you've got the memory, Perl can slurp in your whole
file as a single string."
Strings in Perl are normally stored in scalars, eg "$" variables.
If you do run out of memory (or hit your user level soft limit
on system memory, which is more commmon), you will get a fatal
error something like: "Out Of Memory!", and a core file (normally).
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Mon, 24 Aug 1998 18:32:27 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Looking for Programmer/Job Opp.
Message-Id: <comdog-ya02408000R2408981832270001@news.panix.com>
Keywords: from just another new york perl hacker
In article <35E1D562.ECD65498@dead.end.com>, no.uce@dead.mailbox.com posted:
>> Please send your estimates, by e-mail to FixingHole@aol.com
>> Maxium amount I will pay over estimate is $40, so please be accurate
>
>you do know the going rate for custom perl stuff is $50 dollars an hour don't
>you ?
i have yet to hire someone for that little or charge that much myself.
perhaps you got this figure by sampling a random cross section of Perl
consultants?
let the client and the bidder work out the contracts,
especially since discussing rates can be regarded as price fixing -
a definite no-no in any consulting business.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers needs volunteers! <URL:http://www.pm.org/to-do.html>
------------------------------
Date: 24 Aug 1998 23:00:46 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Manipulating JPEG files?
Message-Id: <6rsrau$p3f@news-central.tiac.net>
In article <6rsghe$j6n$1@nnrp1.dejanews.com>, <bryl@my-dejanews.com> wrote:
>Howdy - Is there a module like GD.pm for creating/altering JPEG or
>PICT files? I have searched CPAN and found only a sizing function,
>and a tk-library. I'd like something that doesn't require tk, and
>behaves like GD.
Could you use GD to create images and the Image::Magick module (built on
top of the ImageMagick library which you might need to install too) The
readme's at
http://www.perl.com/CPAN-local//modules/by-module/Image/PerlMagick-1.42.readme
amongst other places.
I've heard that it can use a load of memory, you might want to go and
visit http://www.modperl.com to see a few CGI scripts which use it to
mangle images in the guise of Apache::Magick see
http://www.modperl.com/examples/chapter4/Apache::Magick.html .
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: 24 Aug 1998 22:08:29 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Maximum dbm database record size
Message-Id: <903996427.628744@thrush.omix.com>
Tomas <hnm501r@tninet.NOSPAM.se> wrote:
: Is this true in general, or only on my platform, and
: is the maximum dbm record size documented somewhere, and=20
: is there a list of the maximum size on different platforms (if there
: are differences) ???
This is library dependent. The Berkeley and GNU DBM libraries have
no limits, but pretty much everything else does. See the
man page for DB_File for a list of the differences between the
different libraries available. For most uses, DB_File (Berkeley
DB) is the best option. There is a binary for Win32 available at
CPAN as well, so you don't need a compiler. I think it only works
with the standard perl distribution however.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 24 Aug 1998 22:23:24 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: Multi-proc/multi-thread support in Perl/Unix
Message-Id: <6rsp4s$ca8$2@news.NERO.NET>
James Schmidt <james@js.prysm.net> wrote:
: I've got an app that I am developing using Perl 5 on a Sun Ultra
: Enterprise 5500 with 6 300MHz Ultra-SPARC II processors in it. Since this
: application is going to be chewing vast amounts of data and multiple large
: files at any given time, I would like to know is if there is a way
: to bind certain commands, or functions to idle CPU's?
Well, you could build 5.005 with threads and spawn off a bunch of threads
to process the files for you. It's fairly simple--just write your program
such that all the processing of a file is done in a sub, and spawn off one
thread per file you want to process. If you take a list of files from the
command line, it might work like this:
use Thread;
sub eat_file {
my $filename = shift;
# open and process file here
}
my @thread_list;
@thread_list = map {new Thread \&eat_file, $_} @ARGV;
foreach (@thread_list) {
$_->join;
}
(This is off the cuff and untested, so I'm probably making some glaring
error, but...)
This'll only buy you something if the version of Solaris you're using will
schedule different threads of a single process simultaneously on different
processors.
Dan
------------------------------
Date: Mon, 24 Aug 1998 22:47:11 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: No index script
Message-Id: <35e1dde5.205700551@news.btinternet.com>
On Sat, 22 Aug 1998 00:26:38 +0200, Brian Nielsen wrote :
>Hi there,
>
>I am looking for a cgi-script that can take all my files in a dir without an
>index.html
>and create a nice site on the fly.
>Do you know where I can find sutch a script?
I have a modest little hack at
http://www.btinternet.com/~gellyfish/resources/dir2html.htm
which does half of what you need. You will need to alter it to
perform as a CGI properly with correct headers and so forth - Now I
think of it I might hack it up myself when I have some time
/J\
Jonathan Stowe
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
------------------------------
Date: Mon, 24 Aug 1998 15:44:51 -0700
From: Jack Zhu <jack_zhu@hp.com>
To: Bob Hannaford <bob.hannaford@adc.metrica.co.uk>
Subject: Re: Perl 5 and HP-UX 11
Message-Id: <35E1ECE3.F70FC448@hp.com>
Well, I just downloaded PERL 5.004_04 from www.perl.com/CPAN
and some module on my HP-UX 11.0 and compiled it. The basic
package and module MIME work very well.
Jack
Bob Hannaford wrote:
> Can anybody tell me if the current version of Perl works on HP-UX 11?
>
> If not is there any plans to port Perl to HP-UX 11?
>
> Thanks in advance for your answers.
>
> Bob
>
> PS: Would you copy all replies to my personal email bobh@adc.mertica.co.uk
> and to the news group.
------------------------------
Date: Mon, 24 Aug 1998 18:28:27 -0400
From: "Lily Y. Fu" <lily@tigr.org>
Subject: Perl compiler
Message-Id: <35E1E90B.2170@tigr.org>
Hi,
Have you used Malcolm Beattie's Perl Compiler (a3 version)?
I have a perl program, I want to compiler it into binary
so that users of the program will not be able to
read it as clean text.
How can I do it?
Thanks
--
Lily Fu
The Institute for Genomic Research
Voice Mail: (301) 838-3557
Email: lily@tigr.org
------------------------------
Date: 24 Aug 1998 23:22:08 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl compiler
Message-Id: <6rssj0$lda$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "Lily Y. Fu" <lily@tigr.org> writes:
:I have a perl program, I want to compiler it into binary
:so that users of the program will not be able to
:read it as clean text.
:
:How can I do it?
You simply don't give them the program. Then they can't read it.
I just don't understand this culture of hoarding and obfuscation.
Your program is almost certainly worth nothing anyway -- is it now?
What's so great about it anyway? So just give it away. Or put an
explicit copyright on it and a restriction that says it can't be used
for profit or some such.
But why are you trying to stop others from learning? That's *evil*.
Let's just burn books instead. Or take away Perl unless you pay for it.
Or restrict access to its documentation. Is that what you'd like
to see the world come to? What you're talking about is anti-science,
anti-usenet, and anti-perl. That is the spirit that gives us fleeceware
in all its wicknessless, not the spirit that gave us the open freeware
that runs the net.
You lose karma points by withholding. You gain prestige not by what
you sell nor by what you buy, but rather by what you freely give away
to others, and how beautiful and useful that thing is. While you are
certainly under no obligation to do so, neither are we under any sort of
obligation to help you in your embarrassing pursuit of shameful hoarding.
I do not wish you luck, because I am morally opposed to the choice you
are attempting to make.
Just give it away, Lily, and become famous if it's a wonderful program.
--tom
--
As far as the laws of mathematics refer to reality, they are not
certain; and as far as they are certain, they do not refer to reality.
--Albert Einstein
------------------------------
Date: Mon, 24 Aug 1998 22:46:43 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl documentation
Message-Id: <n3mE1.1968$4F5.1510935@nswpull>
In article <35e131a9.11271918@news.cableol.net>,
dhawker@removethis.bigfoot.com (David Hawker) writes:
> I CAN, but I won't. The US court recently ruled spamming as legal.
And since when does the US court have anything to say about Usenet? In
case you didn't know, there _are_ people out here who are not US
citizens.
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 24 Aug 1998 16:03:02 -0700
From: Laurie Darcey <ldarcey@corp.inprise.com>
Subject: Perl for Win32 Documentation
Message-Id: <35E1F126.D0A40830@corp.inprise.com>
I have been doing some perl for win32 stuff lately, and I have been
having some troubles with low level differences between UNIX perl and
windows perl. I have found numerous FAQs, all basically the same,
resembling:
1. Windows Perl for Win32 FAQ -- CPAN//doc/FAQs/nt/PerlFaq.html
2. Perl for win32 FAQ -- CPAN//doc/FAQs/win32/Perl_for_Win32_FAQ*
3. Docs that came with perl - including status.txt, etc.
... which are (un)?official lists of functions/modules/etc which don't
work (or don't work as expected) under win32. Is there an official list
of such things? Perhaps workarounds, different programming styles, etc?
For example: When I run a perl script with rmtree() in windoze, with the
flags on, it claims to be using "unlink". It is not really unlinking
anything, as linking does not exist.
More to the point, I am considering purchase of the O'Reilly Lizard book
on Learning Perl for Win32. I have read the llama book, the camel book,
the panther book, and the owl (regex) book. I am wondering, the lizard
book was different enough to warrant a new printing, but has anyone
actually read it yet and found it useful in the transition from
Unix-Windoze? Does the lizard book discuss the more subtle differences
btw perl on the differing platforms (which is what i wish) or is it more
for newbie use for perl in general (setting up perl for windoze, etc.)?
Thanks in advance for any help,
Laurie
--
---------------------------------------------------------------
All thoughts here are formulated by the free-thinking mind of
Laurie Darcey. In no way, shape or form have they been tampered
with by her employer. Please direct any flames, miscreants,
or praise in general to the poster, as Inprise is not to be
held responsible for her state of mind.
---------------------------------------------------------------
------------------------------
Date: 24 Aug 1998 23:39:34 GMT
From: bjepson@ids.net (Brian Jepson)
Subject: Re: Perl for Win32 Documentation
Message-Id: <slrn6u3ufe.67i.bjepson@gelvis.ids.net>
On Mon, 24 Aug 1998 16:03:02 -0700, Laurie Darcey
<ldarcey@corp.inprise.com> wrote:
>I have been doing some perl for win32 stuff lately, and I have been
>having some troubles with low level differences between UNIX perl and
>windows perl. I have found numerous FAQs, all basically the same,
>resembling:
>
>1. Windows Perl for Win32 FAQ -- CPAN//doc/FAQs/nt/PerlFaq.html
>2. Perl for win32 FAQ -- CPAN//doc/FAQs/win32/Perl_for_Win32_FAQ*
>3. Docs that came with perl - including status.txt, etc.
>
There is a revised version of the Perl for Win32 FAQ at:
http://www.activestate.com/support/faqs/win32/
>... which are (un)?official lists of functions/modules/etc which don't
>work (or don't work as expected) under win32. Is there an official list
>of such things?
>
The list of unsupported functions was updated for the new version of the
FAQ. Most of the new FAQ is applicable to 5.005, though, which is
available in source form from CPAN, and in binary form from
www.ActiveState.com and in the O'Reilly Perl Resource Kit.
The list of unsupported functions can be found in:
http://www.activestate.com/support/faqs/win32/perlwin32faq5.html
>For example: When I run a perl script with rmtree() in windoze, with the
>flags on, it claims to be using "unlink". It is not really unlinking
>anything, as linking does not exist.
>
[...]
unlink() is supported - I don't know why the script you mention doesn't
work, though. The following works under NT with ActivePerl build 502:
echo > foo && dir foo && perl -e "unlink 'foo'" && dir foo
Cheers,
--
Brian Jepson * (bjepson@ids.net) * http://users.ids.net/~bjepson
Choosy mothers choose to chew Chew-Z
------------------------------
Date: 24 Aug 1998 22:13:14 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: Problem with <STDIN> in a script with a DCL wrapper (VMS)
Message-Id: <6rsohq$ca8$1@news.NERO.NET>
R. Hewson <rh10012@cus.cam.ac.uk> wrote:
: I am having problems with the script below, it is written
: for use on a VMS system i.e it has a DCL wrapper around it.
: Can someone explain what is happening (and how to fix it) to STDIN
: when I run this script without any command line parameters
: Just incase this script works for you the problem I am having is that
: the script should stop and wait for input from <STDIN> but it dosn't!
: $ perl - DUMMY 'p1
: $ deck/dollars="__END__"
: #! perl -w
: # The following SHIFT is needed because of the problem with hyphon and P1
: # being null, the hyphon is interpreted as a continuation line in DCL
: shift;
: if ($ARGV[0]) {
: print "The command line: $ARGV[0]\n";
: } else {
: print "Please enter something? ";
: $_ = <STDIN>;
: print "What you entered: $_\n";
: }
: __END__
: $ write sys$output "Back in DCL!"
: $ exit
This isn't going to work the way you want. SYS$INPUT is the command
procedure, so any attempt to read from it will return EOF. If you want to
embed a single perl program in your DCL, try this form instead:
$ define/user sys$input sys$command
$ perl "-x" 'f$env("procedure")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !
$ goto skipit
#! perl -w
# The following SHIFT is needed because of the problem with hyphon and P1
# being null, the hyphon is interpreted as a continuation line in DCL
if ($ARGV[0]) {
print "The command line: $ARGV[0]\n";
} else {
print "Please enter something? ";
$_ = <STDIN>;
print "What you entered: $_\n";
}
__END__
$ skipit:
$ write sys$output "Back in DCL!"
$ exit
I tossed the shift, as it's not really necessary. This trick will only
work to embed a single perl script in your DCL script. (That's not
scrictly true--you can have multiple ones in there, but only the first can
query STDIN. The second and subsequent scripts have to be invoked the way
you had it)
If you need multiple perl scripts that access STDIN, consider either
making them permanent files and invoking them (with the redefinition of
SYS$INPUT as I showed) via "perl foo.pl", or, if you must have them
embedded in your DCL, then write them out to temporary files and invoke
the temporaries.
Dan
------------------------------
Date: Mon, 24 Aug 1998 17:54:18 -0500
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Question using pack
Message-Id: <35E1EF1A.96324061@us.ibm.com>
Cliff R. Warren wrote:
>
> I'm pulling my hair out trying to convert simple decimal numbers
> into hexadecimal and binary...
>
> Assuming that I use pack for this, I'm can't seem to get the template
> correct for the input decimal number. From the Camel book, I assume
> it to be "I", as in:
>
> $packed = pack ("I", 4095);
> $unpacked = unpack ("H4", $packed);
> print "$unpacked\n";
>
> This, nor anything else I place in the place of "I" seems to work. What
> am I doing wrong?
>
> I can get pack working when the original data is hex or binary, but not
> when it is regular decimal format.
>
> TIA, Cliff Warren
I went through this same process about 3 months ago. Binary to hex and
hex to binary were no problem at all, but for some reason I simply
couldn't do a proper decimal to binary or hex conversion with
pack/unpack. I found that if I could get from binary to decimal, and
from decimal to binary, the rest was easy. Here's a version of the
decimal to binary conversion I came up with. Keep in mind that speed
was of no concern to me, because I was only going to be doing one
conversion per execution of this script. It's probably inefficient.
This is identical to doing the conversion by hand, the long way. (i.e..
Divide by 2, check the remainder, add it to the list, repeat).
For instance, let's do decimal 30 (BTW: I'm not trying to insult
anyone's intelligence here, but I thought that possibly some people may
not know how to convert from binary to decimal manually. There are also
certainly other ways to do this.)
$dec $mod @bin
30 0 0
15 1 1,0
7 1 1,1,0
3 1 1,1,1,0
1 1 1,1,1,1,0
sub dec_to_bin {
my $dec = shift;
my $mod = 0;
my @bin = ();
while ($dec > 0) {
$mod = $n % 2;
unshift @bin, $mod;
$dec = int ($dec / 2);
}
$bin = join '', @bin;
$bin = &pad($bin,8);
return $bin;
}
Now, this was all well and good, but it caused mass havoc when
converting to hex because a number like 11110 looks like "1111 0000" to
pack rather than "0001 1110". So, anyway, this pad() subroutine simply
"pads" the string with leading zeros to a certain length. As called
from above "$bin = &pad($bin, 8)", this will pad the number in $bin to a
length of 8 characters.
sub pad {
my $n = shift;
my $pad = shift;
my $l = length $n;
my $mod = $l % $pad;
unless ($mod == 0) {
my $extra_zeros = $pad - $mod;
for (0..$extra_zeros-1) {
$n = '0'.$n;
}
}
return $n;
}
Converting from binary to decimal was also a challenge with pack/unpack
so I also performed that one "manually."
sub bin_to_dec {
my $bin = shift; # original binary number
my @bin = split //, $bin; # now it's an array
my $mult = 1; # place holder (multiplier) 2^0=1
my $dec = 0; # decimal number
for (1..length $bin) { # once for each binary digit
$dec += $mult * (pop @bin); # accumulate $dec
$mult *= 2; # bump the place holder over 1
}
return $dec;
}
For anyone who cares, here's the source that I pulled these subroutines
from. It is a command line converter (bin-hex-dec). To run the example
I gave above, I'd type in:
>perl bhd.pl d30
The program would then print out the binary and hex equivalents. The
only other two modes would be to convert from binary or hex, like this:
>perl bhd.pl b11110
>perl bhd.pl h1e
I really don't guarantee that this thing works, so be careful with it.
It seems to work ok, but I'm not sure about what really large numbers do
to its accuracy. IOW: Don't go designing airplanes or bridges with this
thing.
#!/usr/bin/perl -w
# command line calculator for converting between binary, decimal, and
hex
# usage: perl bhd.pl [b,d,h][number]
# For example: perl bhd.pl h8000
# Revisions: 05/13/98 - JDL - created
$flag_windows = 0;
if (!defined ($ARGV[0])) {
print "Enter your number [b,h,d][number]: ";
$ARGV[0] = <STDIN>;
$flag_windows = 1;
}
chomp ($ARGV[0]);
if ($ARGV[0] =~ m/^([bhd]+)([0-9a-f]+)$/) {
$base = $1;
$number = $2;
# check for valid binary and decimal numbers
if ($base eq 'b') {
unless ($number =~ m/^[01]+$/) { &error };
$number = &pad($number,8);
print "dec: ", &b_to_d($number), "\n";
print "hex: ", &b_to_h($number), "\n";
} elsif ($base eq 'd') {
unless ($number =~ m/^[0-9]+$/) { &error };
print &bin_out(&d_to_b($number)), "\n";
print "hex: ", &d_to_h($number), "\n";
} else { # it must be 'h'
$number = &pad($number,2);
print &bin_out(&h_to_b($number)), "\n";
print "dec: ", &h_to_d($number), "\n";
}
} else {
&error();
}
if ($flag_windows) {
print "\nPress any key";
<STDIN>;
}
sub b_to_d {
my $n = shift;
my @n = split //, $n;
my $mult = 1;
my $dec = 0;
for (1..length $n) {
$dec += $mult * (pop @n);
$mult *= 2;
}
return $dec;
}
sub b_to_h {
my $n = shift;
my $hex = unpack "H*", (pack "B*", $n);
return $hex;
}
sub d_to_b {
my $n = shift;
my $mod = 0;
my @bin = ();
while ($n > 0) {
$mod = $n % 2;
unshift @bin, $mod;
$n = int ($n / 2);
}
$bin = join '', @bin;
$bin = &pad($bin,8);
return $bin;
}
sub d_to_h {
my $n = shift;
my $hex = &b_to_h(&d_to_b($n));
return $hex;
}
sub h_to_b {
my $n = shift;
my $bin = unpack "B*", (pack "H*", $n);
return $bin;
}
sub h_to_d {
my $n = shift;
my $bin = &h_to_b($n);
my @bin = split //, $bin;
my $dec = 0;
my $mult = 1;
for (1..length $bin) {
$dec += $mult * (pop @bin);
$mult *= 2;
}
return $dec;
}
sub bin_out {
my $bin = shift;
my @bin = split //, $bin;
my $ctr = 1;
print "bin: ";
for (@bin) {
print $_;
if ($ctr++ == 4) {
print " ";
$ctr = 1;
}
}
}
sub pad {
my $n = shift;
my $pad = shift;
my $l = length $n;
my $mod = $l % $pad;
unless ($mod == 0) {
my $extra_zeros = $pad - $mod;
for (0..$extra_zeros-1) {
$n = '0'.$n;
}
}
return $n;
}
sub error {
print "You messed something up. Try again\n";
print "Press any key.";
<STDIN>;
die;
}
--
James Ludlow (ludlow@us.ibm.com)
Disclaimer: This isn't technical support, and all opinions are my own.
------------------------------
Date: Mon, 24 Aug 1998 23:49:14 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: Recommend a good editor
Message-Id: <35e1fbec.12705491@nntpd.databasix.com>
On Mon, 24 Aug 1998 14:01:39 -0400, in article
<1de9qme.b6lbn217o9e1N@roxboro0-009.dyn.interpath.net>, phenix@interpath.com
(John Moreno) wrote:
>In comp.lang.perl.misc Abigail <abigail@fnx.com> wrote:
>
>> Brian Inglis (Brian.dot.Inglis@CADvision.com) wrote:
>> ++ abigail@fnx.com (Abigail) wrote:
>> ++ >Steve Bohler (skbohler@sprynet.com) wrote:
>> ++ >Abigail
>> ++ What's with the 1809 September 1993 in the header X-date
>>
>> I replied by email, because nowhere in the message it indicated that
>> a copy was posted as well. But the message bounced, because your are
>> unable to configure your email such that reply addresses are valid.
>>
>> You are 2 reasons why it's still September 1993.
>
>How about letting people with decent software who have demonstrated that
>they've read the faq's have more normal dates?
Because that wouldn't be rude and inconsiderate.
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Mon, 24 Aug 1998 22:56:10 GMT
From: Alan Melton <arm@home.net>
Subject: subsorting a report
Message-Id: <35E1EE7F.E2B5F32E@home.net>
Example of printout:
SKU Volume Cost DESC
=============================================================================
18 August 1998 1002 1 $ 28.25
Accounting:Conc.+Appl.-Std.Gde.1-14 5th 96 New
18 August 1998 1004 1 $ 84.45 Accounting:Concepts
& Application 1st New
18 August 1998 1005 1 $ 63.35 Accounting:Concepts
& Application 1st Used
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
18 August 1998 0 $ 0.00
19 August 1998 1002 1 $ 28.25
Accounting:Conc.+Appl.-Std.Gde.1-14 5th 96 New
19 August 1998 3139 1 $ 51.15 Business Math 4th
96 Used
19 August 1998 0 $ 0.00
19 August 1998 ^ 0 $ 0.00
19 August 1998 | 0 $ 0.00
|
Would like to sort report on $sku
or do a double sort, first on date, then on sku.
and get subtotals after a break on each sort.
Last part of program to this point:
# Select the 'TOTAL' picture.
$FORMAT_NAME = "TOTAL";
# Write out the totals.
write;
# This format 'picture' is for the invioce.
format INVOICE_TOP =
SKU Volume Cost DESC
=============================================================================
.
format INVOICE =
@<<<< @<<<<<<<<<@<<<< @<<<<<< @### $@####.## @*
$dayy,$monthh,$yearr,$skunum,$voll,$costtot,$descc
.
format TOTAL =
=============================================================================
$@#####.## $@###.## $@#####.##
$@#####.##
#$totalPrice,$totalTax,$totalVoll,$totalCost
.
close IN;
}
1;
Alan Melton
------------------------------
Date: 24 Aug 1998 22:04:43 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Threading/forking simple(?) programs
Message-Id: <903996201.44676@thrush.omix.com>
Duke <duke@co.kittitas.wa.us> wrote:
: I want to write a perl script to link the two together so that foo can
: read while bar is processing.
: Foo can only write to one hardcoded filename : (
Ack, foo is lame. :-(
This, of course, is why programs in Unix are often coded as filters.
It should be as easy as "foo | bar", but of course the author of
foo must not have any real Unix background. :-(
: I would need to call foo, when it is finished with the first file,
: move the file, then run foo and bar simultaneously (foo on the second
: file on CDROM, bar on the first file), when the last foo process has
: run, then call bar finally to parse the info of the last file.
Sounds like you have your logic down. Now you just need to
implement it in Perl code. :-)
: This is my first try at something executing non-linearly. I have the
: subroutines done to start foo and bar with command-line options to
: work on the files they need to, and moving the foo file out of the way
: each time. How do I make them agree to work simultaneously and let me
: know when they are done each time, and then reap the leftovers and
: memory?
The system() function doesn't come back until the process it
ran is done. I'd recommend forking the bar part and then blocking
on system(foo). When system(foo) is done, block on waitpid(bar),
or start another fork(bar) to handle the last system(foo).
Good luck!
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Mon, 24 Aug 1998 17:43:08 -0500
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: Turn Perl program into binary
Message-Id: <35E1EC7C.2EC97EC3@email.sps.mot.com>
> $ ls -l test.pl
> ---x--x--x 1 abigail relman 42 Aug 22 00:28 test.pl
> $ ./test.pl
> Can't open perl script "./test.pl": Permission denied
> $
>
> You lose.
>
Your honor, I plead guilty.
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3529
**************************************
