[12876] in Perl-Users-Digest
Perl-Users Digest, Issue: 286 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 28 16:07:14 1999
Date: Wed, 28 Jul 1999 13:05:16 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 28 Jul 1999 Volume: 9 Number: 286
Today's topics:
Re: a little motivation, anyone? (Tad McClellan)
Any Suggestions <steven_crazyman@worldnet.att.net>
Re: Any Suggestions? <emschwar@rmi.net>
Re: Beginner needs help with a function <akelingos@petrosys-usa.com>
Re: Beginner needs help with a function <akelingos@petrosys-usa.com>
Re: Beginner needs help with a function <mike@crusaders.no>
Re: Beginner needs help with a function (Larry Rosler)
Re: Can perl declare constant? (Tad McClellan)
CGI to verify the SSN wmichaeln@my-deja.com
Re: Check if 2 dates are in the same week <eijkhout@prancer.cs.utk.edu>
Re: compare two arrays <laurens@bsquare.com>
Re: Creating dynamic GIF-s from CGI-script <cassell@mail.cor.epa.gov>
Re: Directory Listing with Size <cassell@mail.cor.epa.gov>
Easy way to emulate Unix's "sort" command? (Jim Hutchison)
Re: Easy way to emulate Unix's "sort" command? <emschwar@rmi.net>
Re: Easy way to emulate Unix's "sort" command? (Jim Hutchison)
Re: ebcdic packed numbers <bivey@teamdev.com>
Re: ebcdic packed numbers (Mark-Jason Dominus)
eval() question <marshalc@americasm01.nt.com>
Free Long Distance (Kent Kling)
Re: Help!! ---Database access in perl <emschwar@rmi.net>
Re: help: push array refs into hash, sort by refs in ha (Anno Siegel)
How to find first occurance of white space... cramey@my-deja.com
Re: How to find first occurance of white space... <Mark@Mark.Com>
Re: How to find first occurance of white space... <laurens@bsquare.com>
Need help using MS CDONTS from perlscript <otis.nettles@intel.com>
Re: Newbie needs help to connect to MS Access <cassell@mail.cor.epa.gov>
Re: newby rename problem (help) <cassell@mail.cor.epa.gov>
OT Re: reg expression <laurens@bsquare.com>
Re: OT Re: reg expression <jcreed@cyclone.jprc.com>
pack record alignment (if any)? breslow_marty@tandem.com
Re: pack record alignment (if any)? <jhi@alpha.hut.fi>
Re: Perl and Internet Information Server 4? <cassell@mail.cor.epa.gov>
perl parsing bug - if &foo and scalar(&bar) doesn't wor xjeffbay@ti.com
Re: perl parsing bug - if &foo and scalar(&bar) doesn't (Sean McAfee)
perldap script SEG faulting <drummond-m@rmc.ca>
Re: Problem with spam in this group <cassell@mail.cor.epa.gov>
Q: compare two arrays <m-andric@students.uiuc.edu>
Re: Q: compare two arrays <emschwar@rmi.net>
Re: Q: compare two arrays (Larry Rosler)
Re: reg expression (Tad McClellan)
Re: Standard Unix Compress <aqumsieh@matrox.com>
using $? in data (James Stevenson)
Re: using $? in data <jbc@shell2.la.best.com>
Re: using $? in data <emschwar@rmi.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 28 Jul 1999 10:09:34 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: a little motivation, anyone?
Message-Id: <uu2nn7.rtn.ln@magna.metronet.com>
Medley8086 (medley8086@aol.com) wrote:
: Through all this planning, however, I keep running into the same problem with
: learning how to program. I'm teaching myself, so the motivation isn't there.
: whether my progress is good. What I'm asking is, could i please have some
: posts of what some of you other programmers made when you were starting out, in
: what languages, and how long it took.
I did
ls /bin
and picked some commands to rewrite in the language I was learning.
I wrote:
ls
ls-a
cat
cp
grep
grep-v
grep-i
etc...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Jul 1999 14:36:11 -0500
From: "Steve Wagner" <steven_crazyman@worldnet.att.net>
Subject: Any Suggestions
Message-Id: <7nnmda$eh8$1@bgtnsc01.worldnet.att.net>
Sorry for the double post but the last one was the wrong script.
I am new to perl/cgi and have written the following code. Do you have any
suggestions on how to restructure the code? It works great but It doesnt
seem to me that I should be using the same arrays for all these different
functions especially since I have a ton left to do.
Any suggestions would be appreciated.
#!/usr/bin/perl
print "Content-type:text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$mailprog = '/usr/sbin/sendmail';
$recipient = 'crazyman@cgi101.com';
if ($FORM{'fname'} eq "" or $FORM{'lname'} eq "" or $FORM{'email'} eq "" or
$FORM{'address'} eq "" or $FORM{'state'} eq "" or $FORM{'city'} eq "" or
$FORM{'zip'} eq "") {
&dienice("Please fill out the fields for your First Name, Last Name,
E-mail, Adrress, State, City and Zip Code.");
}
else {
open (MAIL, "|$mailprog -t") or &dienice("Can't access $mailprog!\n");
print MAIL "To: $recipient\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'name'})\n";
print MAIL "Subject: Thank You for Registering\n\n";
foreach $key (keys(%FORM)) {
print MAIL "$key = $FORM{$key}\n";
}
foreach $key (sort(keys %ENV)) {
print MAIL "$key = $ENV{$key}\n";
}
}
close(MAIL);
open(OUTF,">>outdata.txt") or &dienice("Couldn't open outdata.txt for
writing. Please notify webmaster\@cgi101.com.");
print OUTF "$FORM{'fname'}|$FORM{'lname'}|$FORM{'email'}\n";
close(OUTF);
mkdir ($FORM{'fname'},0777) or &dienice("Couldn't Make directory. Please
notify crazyman\@cgi101.com.");
chdir($FORM{'fname'});
open(OUTFILE2,">index.html") or &dienice("Couldn't open
$FORM{'fname'}index.html for writing. Please notify crazyman\@cgi101.com.");
print OUTFILE2 "<html><head><title>Test</title></head><body>";
print OUTFILE2 "<center>Test $FORM{'fname'}<center>";
close(OUTFILE2);
print "<html><head><title>Form Output</title></head><body>"; print
"<center><h1>Thank You The Following Info Was
Sent:</h1></center><br><br>\n";
foreach $key (sort(keys(%FORM))) {
print "<h3><center>$key = $FORM{$key}</h3></center><br>";
}
print "<br><center>Click <A HREF=\"index.html\">Here</A>To Return To Our
Home Page</center>";
print "</body></html>";
sub dienice {
($errmsg) = @_;
print "<h2>Error</h2>\n";
print "$errmsg<p>\n";
print "</body></html>\n";
exit;
}
------------------------------
Date: 28 Jul 1999 13:11:43 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Any Suggestions?
Message-Id: <xkfiu74lhcg.fsf@valdemar.col.hp.com>
"Steve Wagner" <steven_crazyman@worldnet.att.net> writes:
> I am new to perl/cgi and have written the following code. Do you have any
> suggestions on how to restructure the code? It works great but It doesnt
> seem to me that I should be using the same arrays for all these different
> functions especially since I have a ton left to do.
> Any suggestions would be appreciated.
>
> #!/usr/bin/perl
No '-w'. No 'use strict;'.
And, since you're doing CGI, no 'use CGI qw(:standard);'.
All Bad Things(tm). Fix these, and your code will improve markedly. The
first two will probably cause your program to generate some errors and
warnings. "man perldiag" to understand what these messages mean.
> print "Content-type:text/html\n\n";
print header;
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
Yeah, that's how much you *want* to read, but how much did you actually
read?
> @pairs = split(/&/, $buffer);
> foreach $pair (@pairs) {
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $FORM{$name} = $value;
> }
Ack! Why roll your own CGI decoding routine (that doesn't properly
handle multiple values for a single key) when CGI.pm will do it for you?
> $mailprog = '/usr/sbin/sendmail';
> $recipient = 'crazyman@cgi101.com';
Use lexicals instead of globals; read up on lexicals in "man perlsub"--
specifically, "Private Variables via my()".
> if ($FORM{'fname'} eq "" or $FORM{'lname'} eq "" or $FORM{'email'} eq "" or
> $FORM{'address'} eq "" or $FORM{'state'} eq "" or $FORM{'city'} eq "" or
> $FORM{'zip'} eq "") {
> &dienice("Please fill out the fields for your First Name, Last Name,
> E-mail, Adrress, State, City and Zip Code.");
> }
my @variables = param(); # this returns a list of form variables
foreach (@variables) {
if(param($_) eq "") {
dienice(..); # you don't need the & in modern Perls.
}
}
Although I'd recommend a more specific error message, like "You forgot
your zip code-- please enter it here:".
> foreach $key (keys(%FORM)) {
> print MAIL "$key = $FORM{$key}\n";
> }
since you already have @variables above, use it again:
foreach my $key (@variables) {
print MAIL "$key = ", param($key), "\n";
}
> foreach $key (sort(keys %ENV)) {
> print MAIL "$key = $ENV{$key}\n";
> }
> }
>
> close(MAIL);
Since MAIL is opened with a pipe, you should check for errors here, too.
Read 'perldoc -f open' to see why.
> open(OUTF,">>outdata.txt") or &dienice("Couldn't open outdata.txt for
> writing. Please notify webmaster\@cgi101.com.");
>
> print OUTF "$FORM{'fname'}|$FORM{'lname'}|$FORM{'email'}\n";
> close(OUTF);
It's also a good idea to check for errors on closing a regular file,
too-- when you get close to wiping out your diskspace, you won't know
until you try to close the file and get ENOSPC.
> print "<html><head><title>Form Output</title></head><body>";
print start_html(-title => "Form Output");
> print
> "<center><h1>Thank You The Following Info Was
> Sent:</h1></center><br><br>\n";
I'm noticing this disturbing trend you have for splitting up statements
like this, by putting part of it on one line, and continuing the rest on
another. This makes it very hard to read. Don't do that.
If it's your newsreader making your do that, then don't let it do that.
> sub dienice {
> ($errmsg) = @_;
> print "<h2>Error</h2>\n";
> print "$errmsg<p>\n";
> print "</body></html>\n";
> exit;
> }
This isn't valid HTML, but then, a lot of the HTML you print out isn't
valid. You might want to run a validator on the resultant HTML, and
clean it up.
-=Eric
------------------------------
Date: Wed, 28 Jul 1999 18:45:03 GMT
From: "Alec Kelingos" <akelingos@petrosys-usa.com>
Subject: Re: Beginner needs help with a function
Message-Id: <01bed929$f2b53140$7637ebcf@psusa6.petrosys-usa.com>
Thanks to every body for all your help. Things are as right as rain now.
Alec
------------------------------
Date: Wed, 28 Jul 1999 18:46:33 GMT
From: "Alec Kelingos" <akelingos@petrosys-usa.com>
Subject: Re: Beginner needs help with a function
Message-Id: <01bed92a$271e3ee0$7637ebcf@psusa6.petrosys-usa.com>
Thanks every body for your help on this. Things are right as rain now.
Alec
------------------------------
Date: Wed, 28 Jul 1999 21:33:38 +0200
From: "Trond Michelsen" <mike@crusaders.no>
Subject: Re: Beginner needs help with a function
Message-Id: <bWIn3.439$ZU.4456@news1.online.no>
Larry Rosler <lr@hpl.hp.com> wrote in message
news:MPG.1208ce8da88dd3ac989d62@nntp.hpl.hp.com...
> > > I need a function to trim the first/last characters off a string if
and
> > > only if these characters are a user defined character.
> > > I'm reading records from the following file:
> > > |MICHIGAN|
> > > Other files have other first/last characters
> > $line =~ s/
> > ^([|\"]?) # grab the first character of the line if it's
> > # either " or | and place it in $1
>
> If it isn't, because of the '?', the regex matches but makes no change
> in the string. This is needless work.
Hmm, if it doesn't match, the string is already the way we want it. *blush*
> So is the backslash before the double-quote.
I actually have a habit of escaping every ' and " so that Emacs'
syntax-hilighting can hilight the rest of the script correctly.
> Also, the spec said *one* character, not one of a set of characters.
Right. I overlooked that the character would always be the same for the
entire file.
> > (.*?) # put the rest of the line in $2
> Because of the anchors, the '?' is unnecessary.
I don't know why I kept the ? in there. I sorta knew that it wasn't
necessary.
> > \1$ #except the last character if it's the same as $1
> But what if the last character is actually "\n", not the same as the
Ooh, forgot about that. However, since the source is a text-file with one
record pr. line I'd suppose that a chomp() before the regex would be
desirable.
> first character? The '$' should be '\z'.
\z ? checking, checking...
Ah.
But shouldn't that be \Z then? The purpose was to check the last charcter
before the newline.
> > /
> > $2 # and replace the entire line with $2
> > /x;
> And what if the string contains a "\n"? This needs the '/s' modifier.
Completely forgot about that too. But again, with one record pr. line I'd be
surprised if a "\n" shows up in the middle of a record.
> Well presented and commented, though!
Thanks.
--
Trond Michelsen
------------------------------
Date: Wed, 28 Jul 1999 12:39:25 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Beginner needs help with a function
Message-Id: <MPG.1208fc4a3b1dcaec989d65@nntp.hpl.hp.com>
In article <x7zp0gr778.fsf@home.sysarch.com> on 28 Jul 1999 13:54:19 -
0400, Uri Guttman <uri@sysarch.com> says...
...
> see larry rosler's many posts in this thread for why that has
> problems. he also posted correct answers to the asked question.
Yes, but it also led to correspondence with the original poster, who
couldn't make it work. It seems he is using an older perl that doesn't
support '\z'. Replacing '\z' with '$' solved his problem.
Caveat utor!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 28 Jul 1999 10:05:31 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Can perl declare constant?
Message-Id: <bn2nn7.rtn.ln@magna.metronet.com>
Carfield Yim (c8133594@comp.polyu.edu.hk) wrote:
: Can perl declare unchangable varible like constant in C??
Yes.
: How??
by typing:
perldoc constant
for starters...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Jul 1999 19:39:47 GMT
From: wmichaeln@my-deja.com
Subject: CGI to verify the SSN
Message-Id: <7nnma1$bq3$1@nnrp1.deja.com>
Hello,
I need to write the CGI script to verify
the SSN ( Social Security Number ).
Does anyone know how to do that ?
Thanks a lot !!!
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 22 Jul 1999 17:54:33 -0400
From: Victor Eijkhout <eijkhout@prancer.cs.utk.edu>
Subject: Re: Check if 2 dates are in the same week
Message-Id: <omg12gqrja.fsf@prancer.cs.utk.edu>
David Cassell <cassell@mail.cor.epa.gov> writes:
> skyfaye@my-deja.com wrote:
> >
> > I did check the FAQ before posting but no help.
>
> But you apparently failed to notice the references to Date::Calc
> and Date::Manip . If you download
Download from where? What is CPAN?
--
Victor Eijkhout
------------------------------
Date: Wed, 28 Jul 1999 12:32:26 -0700
From: "Lauren Smith" <laurens@bsquare.com>
Subject: Re: compare two arrays
Message-Id: <7nnlsu$hgi$1@brokaw.wa.com>
milan andric wrote in message ...
>
>I'm a little baffled on how to compare two arrays and print the
>elements that exist in both.
>
perlfaq4: "How can I tell whether a list or array contains a certain
element? "
Lauren
------------------------------
Date: Wed, 28 Jul 1999 11:38:52 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Creating dynamic GIF-s from CGI-script
Message-Id: <379F4E3C.3806378@mail.cor.epa.gov>
Pip wrote:
>
> Hi, ppl!
Howdy.
> Question:
> Is there any templates/simple examples how to creat GIF images
> from (for example) CGI-script WITHOUT any modules?
> I agree make it "pixel by pixel" :) Main goal: NO MODULES needed.
Could you please explain why you have to do this sans modules?
With modules it is easy. Without modules you may end up with
a vast wasteland of Perl code with horrible bugs scattered
throughout.
If the problem is an uncooperative ISP, then read perlfaq9
(the 9th section of the Perl FAQ) for tips on maintaining and
using your own private module zoo.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 28 Jul 1999 11:41:48 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Directory Listing with Size
Message-Id: <379F4EEC.CB8728A2@mail.cor.epa.gov>
Adrian Duncan wrote:
> [snip]
> I have 3 or more web servers.
> Each has a directory called webpages.
> I need to get a list of each directory under
> this directory and how much space it takes up,
> including any sub directories. We need to do this
> to bill people for the amount of space that their
> web domain takes up.
Okay, then if you really don't want to parse the `dir /s`
output, then look at the File::Find module which should be on
your system already. You can use that to recurse through
your directories. To find out how much space a file takes,
check out the -X functions in perlfunc and look for -s .
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 28 Jul 1999 18:38:53 GMT
From: jimhutchison@metronet.ca (Jim Hutchison)
Subject: Easy way to emulate Unix's "sort" command?
Message-Id: <379f4d63.80856505@news1.cal.metronet.ca>
Newbie question here...
I'd like to sort a four-column table on a specific field. Perl's sort
is only for a simple list...
Any ideas?
Thanx in advance.
Jim Hutchison
jimhutchison@metronet.ca
------------------------------
Date: 28 Jul 1999 13:17:51 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Easy way to emulate Unix's "sort" command?
Message-Id: <xkfg128lh28.fsf@valdemar.col.hp.com>
jimhutchison@metronet.ca (Jim Hutchison) writes:
> Newbie question here...
Next time you feel yourself about to type this, read the FAQ, because
your answer's probably in there. As it is this time.
> I'd like to sort a four-column table on a specific field. Perl's sort
> is only for a simple list...
So?
> Any ideas?
perlfaq4: How do I sort an array by (anything)?
> Thanx in advance.
You're welcome.
-=Eric
------------------------------
Date: Wed, 28 Jul 1999 19:25:45 GMT
From: jimhutchison@metronet.ca (Jim Hutchison)
Subject: Re: Easy way to emulate Unix's "sort" command?
Message-Id: <379f5889.83710419@news1.cal.metronet.ca>
On 28 Jul 1999 13:17:51 -0600, Eric The Read <emschwar@rmi.net> wrote:
>jimhutchison@metronet.ca (Jim Hutchison) writes:
>> Newbie question here...
>
>Next time you feel yourself about to type this, read the FAQ, because
>your answer's probably in there. As it is this time.
Doh! I'll certainly peruse the FAQs next time; I didn't think the
help was that elaborate!
>
>> I'd like to sort a four-column table on a specific field. Perl's sort
>> is only for a simple list...
>
>So?
>
>> Any ideas?
>
>perlfaq4: How do I sort an array by (anything)?
>
>> Thanx in advance.
>
>You're welcome.
>
>-=Eric
------------------------------
Date: 28 Jul 1999 18:09:13 GMT
From: "William" <bivey@teamdev.com>
Subject: Re: ebcdic packed numbers
Message-Id: <01bed924$65ef8a80$583c08cf@bill.jump.net>
Uri Guttman <uri@sysarch.com> wrote in article
<x73dy8slud.fsf@home.sysarch.com>...
> but you are using perl to convert the string '1234' to the binary value
> which represents 1234. i said effectively the same thing.
Granted, and sorry, I thought you were more concerned with the
printf aspect of it. True, getting the binary value out of a
file in such a way that it looks like a number is problematic.
It's doable, but is it worth it? (I didn't say this is the way
I'd go about it, the better solutions would fetch the value
correctly and convert it rather than depending on a separate step.)
There's another problem with this in that you're effectively
limited to 8 digits (including sign).
> you can't
> operate on bcd in perl directly nor can you convert it to/from an intger
> directly.
Something of a pity since it would be nice to have a BCD option
for what I have to do. (The first BASIC I ever used had BCD
floating point - six whole significant digits! I hacked it to
use eight as soon as I could...)
> also that doesn't handle
> the sign nibble at all but that is not too hard to code.
Yeah, while it's a string it's simple.
I believe the original problem was one way packed BCD --> ascii
which at least eliminates that step.
> in fact it would be much better to do it in c like i
> had to do all those years ago!
You had C? You lucky b*stard! (Intel 8080 assembly or nothing
for me - at least the CPU had a BCD mode.) -Wm
------------------------------
Date: Wed, 28 Jul 1999 18:41:36 GMT
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: ebcdic packed numbers
Message-Id: <7nnis4$h6a$1@monet.op.net>
In article <x7so68spd3.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
>on a similar note, check out mjd's page on the perl of the 60's:
>
>http://www.plover.com/~mjd/perl/perl.html#perl67
I should point out that the folks who actually know about this who
have written in over the years are in overwhelming agreement that PL/I
was *not* very much like Perl.
------------------------------
Date: Wed, 28 Jul 1999 13:09:34 -0500
From: Marshall Culpepper <marshalc@americasm01.nt.com>
Subject: eval() question
Message-Id: <379F475E.4898C37C@americasm01.nt.com>
hi...i have this code working but I'm definately sure there's another
cleaner way to do this...here's the deal:
I have a user input a variable...lets say $input, now i want the value
of $input to be the name of a variable i need to use..so lets say i have
the variables $a, $b, and $c..this is the way i did it:
$input=$ARGV[0]; # This would be either a,b, or c
my($a,$b,$c)=('a','b','c'); # Define
eval("return \$$input"); # This works but what happens if they
accidentaly enter an incorrect value?
any help would be appreciated
~Marshall
------------
sub _{pack('c',hex($_[0]))};@_=(41..59,61..79);print "J"._($_[33])._($_[31])._($_[32])._(20)._($_[0])."no"._($_[32])._($_[26])._($_[23])._($_[30])._(20)._($_[9])._($_[23])._($_[30])."l"._(20)._($_[7])._($_[19])._($_[21])."k"._($_[23])._($_[30])."\n";__END__
------------------------------
Date: Wed, 28 Jul 1999 19:10:55 GMT
From: kkling@economite.com (Kent Kling)
Subject: Free Long Distance
Message-Id: <379f55b6.3783406@proxy.reston.tnsi.com>
Check out the editor's page @ http://www.economite.com/editor.html for
more information
------------------------------
Date: 28 Jul 1999 12:35:22 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Help!! ---Database access in perl
Message-Id: <xkflnc0lj11.fsf@valdemar.col.hp.com>
andrewfase@my-deja.com writes:
> One last thing it has to be free!!!!!
"Five exclamation marks, the sure sign of an insane mind."
You should probably ask this question in comp.frolicking.penguins. It
certainly couldn't be any less relevant than this newsgroup.
-=Eric
------------------------------
Date: 28 Jul 1999 18:15:52 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: help: push array refs into hash, sort by refs in hash
Message-Id: <7nnhco$bfn$1@lublin.zrz.tu-berlin.de>
Rory C-L <campbell-lange@easynet.co.uk> wrote in comp.lang.perl.misc:
>I have a sets of records some of which belong to the same "issue number"
>
>i.e.
>Issue Date Number Revision
>636/1999 23/2/99 A/LB/10/00/229 D
>780/1999 21/4/99 A/LB/10/00/249 C
>874/1999 1/6/99 A/LB/10/01/003 R
>780/1999 14/1/99 A/LB/10/02/028 C
>487/1998 4/12/98 A/LB/10/04/021 J
>
>I'd like to sort the records by number, collected by Issue.
>I split the records into issue and @rest.
>Then I want to $hash{$issue} = [@rest], unless $hash{$issue} already exists,
>in which case I'm using $hash{$issue} .= [@rest]. However THEN I have two
>refs appended to each other, rather than an array of refs.
>Should I initialise $hash{$issue} = []; then push subsequent array refs to it?
>I'm a bit confused.
So am I. It's not quite clear what you are trying to accomplish. It
*seems* that you want the arrays @rest to remain distinct, as opposed
to a flattened list that contains all of them. In that case, you
don't even have to distinguish if a key has already been defined.
Just push your array refs onto the value of a key, which you treat
as another array ref... Hell, this is harder to explain than to
write down:
#!/usr/bin/perl -w
use strict;
my %hash;
while ( <DATA> ) {
my ( $issue, @rest ) = split; # Split $_ on white space
push @{ $hash{ $issue}}, \@rest; # Just push, it'll spring into existence
}
# Now see what we've got:
for my $issue ( keys %hash ) {
print "$issue: ";
for my $aref ( @{ $hash{ $issue}} ) {
print "(@$aref)"; # Using $" here
}
print "\n";
}
__END__
636/1999 23/2/99 A/LB/10/00/229 D
780/1999 21/4/99 A/LB/10/00/249 C
874/1999 1/6/99 A/LB/10/01/003 R
780/1999 14/1/99 A/LB/10/02/028 C
487/1998 4/12/98 A/LB/10/04/021 J
This will show that the two lists for 780/1999 have found their
way into the list that dangles from that key. The other keys
have only lists of length one.
>A related sort question:
>
>I have a hash structured like this:
>
> key value (ref to anonymous array)
> | |
> x (anonymous) array with refs to 1 .. n anonymous arrays
> |
> array array array
> |
> first element
>
Videmus nunc per speculo in aenigmatem. Or something. You have lost
me here, or rather, since I'm not sure I got your first question right,
I'd rather not guess any further. Care to give some feedback?
[...]
Anno
------------------------------
Date: Wed, 28 Jul 1999 18:00:13 GMT
From: cramey@my-deja.com
Subject: How to find first occurance of white space...
Message-Id: <7nngf9$7kq$1@nnrp1.deja.com>
i have a string that i would like to shorten to the data before the
first space,
ex.
123456 don't want any of this text in string
^^^^^^
need this
please help.
thanks in advance
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 28 Jul 1999 19:42:27 +0100
From: Mark <Mark@Mark.Com>
Subject: Re: How to find first occurance of white space...
Message-Id: <379F4F13.98DFBC11@Mark.Com>
$string = '123456 a b c';
($substring = $string ) =~ s/^[^ ]* //;
print 'string = ',$string,' substring = ',$substring,"\n";
cramey@my-deja.com wrote:
> i have a string that i would like to shorten to the data before the
> first space,
>
> ex.
>
> 123456 don't want any of this text in string
> ^^^^^^
> need this
>
> please help.
>
> thanks in advance
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Wed, 28 Jul 1999 12:44:16 -0700
From: "Lauren Smith" <laurens@bsquare.com>
Subject: Re: How to find first occurance of white space...
Message-Id: <7nnmj0$73p$1@brokaw.wa.com>
cramey@my-deja.com wrote in message <7nngf9$7kq$1@nnrp1.deja.com>...
>i have a string that i would like to shorten to the data before the
>first space,
Yeah, this is a tough one. You're better off not trying to figure it out
yourself.
>please help.
perlre
perldoc -f "split"
perldoc -f "substr"
s/(^.*?)\s.*/$1/; # last resort
Lauren
------------------------------
Date: Wed, 28 Jul 1999 11:30:32 -0700
From: "Otis Nettles" <otis.nettles@intel.com>
Subject: Need help using MS CDONTS from perlscript
Message-Id: <7nni8b$oao@news.or.intel.com>
Can anyone tell me what might be wrong with this? The send function is not
working, and none of the properties seem to get set. When I try to print
the value of the property, it prints a blank.
print "Creating mail object<P>\n";
$objNewMail = $Server->CreateObject("CDONTS.NewMail") || print "Could not
create CDONTS object: $!<P>\n";
$objNewMail->{BodyFormat} = 0;
print "BodyFormat = ", $objNewMail->{'BodyFormat'}, "<BR>\n";
$objNewMail->{MailFormat} = 0;
$objNewMail->{From} = $FORM{'From'};
print "From = ", $objNewMail->From, "<BR>\n";
$objNewMail->{Importance} = 'CdoHigh';
$objNewMail->{Subject} = $FORM{'Subject'};
$objNewMail->{To} = $FORM{'To'};
$objNewMail->{Body} = $msgBody;
print "Sending mail . . . <P>\n";
$objNewMail->Send || print "Could not send mail: $!<P>\n";
------------------------------
Date: Wed, 28 Jul 1999 11:24:01 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Newbie needs help to connect to MS Access
Message-Id: <379F4AC1.D7D088E3@mail.cor.epa.gov>
Niclas Wendel wrote:
>
> Hi there,
>
> I need some help to get started.
> I'm working on an application that has to extract some data from an Access
> DB.
>
> What sort of drivers do I need to get? Are there any free trial ones?
> How do I connect to the DB?
Since you're on a win32 box, you should be using ActiveState Perl
already. You should have the DBI module as part of your install,
and you can read all about it (and other modules) in the HTML docs
that have a shortcut on your Start Menu [unless your install was
botched].
To talk to MS Access, you'll probably want to use ODBC. Look under
the DBD heading in your module docs and see if you already have it.
If not, use the ppm program [which also comes with the install]
to get it *for*free* from ActiveState.
In Perl, *all* modules are free.
> All hints and tips are appreciated.
Then I suggest that you skim over the HTML docs to get an idea
of what is available on your hard disk, so you can save yourself
some time in future. It's always faster to check the FAQ and/or
docs on your hard disk than to wait 20 hours for someone to
answer your question [with something that might be dead wrong].
> TIA,
YW.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 28 Jul 1999 11:29:29 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: newby rename problem (help)
Message-Id: <379F4C09.DDA738CE@mail.cor.epa.gov>
Tad McClellan wrote:
>
> David Cassell (cassell@mail.cor.epa.gov) wrote:
>
> : [2] if you want to keep the old name, you *have* it - it's
> : %cgi_cfn{'upload'} and you can save it somewhere
> ^^^^^^^^^^^^^^^^^^
>
> $cgi_cfn{'upload'} # typo, I'm sure.
D'OH! Ouch. Thanks for policing the careless there, Tad.
At least this typo isn't as shocking as yesterday's. And
a big thanks to Larry, Jonathan, and everyone else who was
so kind as to point it out...
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 28 Jul 1999 11:46:13 -0700
From: "Lauren Smith" <laurens@bsquare.com>
Subject: OT Re: reg expression
Message-Id: <7nnj64$4qf$1@brokaw.wa.com>
I R A Darth Aggie wrote in message ...
>use Time::EndOf;
It returns 'undef'. Is that correct behavior? ;-)
Lauren
------------------------------
Date: 28 Jul 1999 15:18:55 -0400
From: Jason Reed <jcreed@cyclone.jprc.com>
Subject: Re: OT Re: reg expression
Message-Id: <a1hfmoshuo.fsf@cyclone.jprc.com>
"Lauren Smith" <laurens@bsquare.com> writes:
> I R A Darth Aggie wrote in message ...
>
> >use Time::EndOf;
> It returns 'undef'. Is that correct behavior? ;-)
Yes, so you can do
$promise->keep() until eval { require Time::EndOf };
---Jason
------------------------------
Date: Wed, 28 Jul 1999 19:15:56 GMT
From: breslow_marty@tandem.com
Subject: pack record alignment (if any)?
Message-Id: <7nnkt3$an3$1@nnrp1.deja.com>
I expect to have a template with strings, shorts and longs. If I have
a short or long following an odd length string (e.g.,A9) will the
integer be aligned on byte*2 or byte*4 boundary or do I need to insert
filler bytes? I don't see anything in the manpages.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 28 Jul 1999 22:48:21 +0300
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: pack record alignment (if any)?
Message-Id: <oeeso68v9mi.fsf@alpha.hut.fi>
breslow_marty@tandem.com writes:
> I expect to have a template with strings, shorts and longs. If I have
> a short or long following an odd length string (e.g.,A9) will the
> integer be aligned on byte*2 or byte*4 boundary or do I need to insert
> filler bytes? I don't see anything in the manpages.
You must yourself insert the required filler/alignment bytes.
Pack/unpack always work on byte-length strides. They cannot
know what alignment your underlying binary blob might have
(it might be coming from completely another system).
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: Wed, 28 Jul 1999 11:27:17 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Perl and Internet Information Server 4?
Message-Id: <379F4B85.F6587F1E@mail.cor.epa.gov>
Joe Ramsey wrote:
>
> Anyone know of any modules out there or in the works for interfacing to
> the IIS metabase?
I think you can get at it with Win32::OLE . I don't know of
anything specific for the IIS metabase. But the win32 perl
mailing lists [http://www.activestate.com/support/mailing_lists.htm]
have a database-specific listserv to which you might want to
subscribe. They might be a better resource.
> [snip]
> BTW: I'm amazed with Perl! I haven't programmed since college (10 years)
> but with the aid of the Camel, the PRK and a few other titles (and quite
> a few module coders *grin*) been able to write several scripts for
> converting text reports to nice html pages and a automated mailer program
> and customers are using them in production with no problems. Best of all
> I'm having a blast!!!! Thanks to all of you gurus and aspiring gurus for
> all of the support and information - Joe
Tom? Tom? Look! Someone finally read your docs!
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 28 Jul 1999 18:31:57 GMT
From: xjeffbay@ti.com
Subject: perl parsing bug - if &foo and scalar(&bar) doesn't work correctly
Message-Id: <7nniat$8t8$1@nnrp1.deja.com>
% perl5 -v
This is perl, version 5.004_04 built for sun4-solaris
Here is the first (working) version:
DB<7> @foo = (1 .. 10)
DB<8> $foo = 1 if 1 and scalar(@foo)
DB<9> print $foo
1
Here is the second (not-working) version:
DB<1> sub foo { return 1; }
DB<2> sub bar { return (1..10) }
DB<3> print foo
1
DB<4> print bar
12345678910
DB<5> $foo = 1 if foo and scalar(bar)
DB<6> print $foo
No, this isn't a cut and paste error, $foo is not set to 1 in the
second case.
Can somebody explain what is going on, or confirm that it is a parsing
error in perl5.004_04?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 28 Jul 1999 19:16:38 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: perl parsing bug - if &foo and scalar(&bar) doesn't work correctly
Message-Id: <qGIn3.2897$nB.441861@news.itd.umich.edu>
In article <7nniat$8t8$1@nnrp1.deja.com>, <xjeffbay@ti.com> wrote:
>% perl5 -v
>This is perl, version 5.004_04 built for sun4-solaris
> DB<1> sub foo { return 1; }
> DB<2> sub bar { return (1..10) }
> DB<3> print foo
>1
> DB<4> print bar
>12345678910
> DB<5> $foo = 1 if foo and scalar(bar)
> DB<6> print $foo
>No, this isn't a cut and paste error, $foo is not set to 1 in the
>second case.
No reason why it should. The scalar() is passing scalar context down
into the body of subroutine bar, and the ".." operator behaves differently
in scalar context than it does in array context. Read about the behavior
in perlop.
DB<7> local $. = 1; $foo = 1 if foo and scalar(bar)
DB<8> print $foo
1
You might want to redefine bar as
sub bar { my @a = (1..10); @a }
to get the behavior you want.
--
Sean McAfee mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!
------------------------------
Date: Wed, 28 Jul 1999 13:53:10 -0400
From: "Mark E. Drummond" <drummond-m@rmc.ca>
Subject: perldap script SEG faulting
Message-Id: <379F4386.F806C7C3@rmc.ca>
I have perl 5.005_03 installed along with the Netscape LDAP SDK and
perldap 1.2.2. When I run a script on my Slackware 3.6 Linux box that
makes use of perldap it segfaults. The script runs fine on any of my Sun
boxes. Here's the last few lines from a strace:
open("/lib/libc.so.6", O_RDONLY) = 6
read(6, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3"..., 4096) = 4096
mmap(0, 675840, PROT_NONE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) =
0x401c4000
mmap(0x401c4000, 595549, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_FIXED, 6,
0) = 0x401c4000
mmap(0x40256000, 27376, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 6,
0x91000) = 0x40256000
mmap(0x4025d000, 47668, PROT_READ|PROT_WRITE,
MAP_PRIVATE|MAP_FIXED|MAP_ANONYMOUS, -1, 0) = 0x4025d000
close(6) = 0
mprotect(0x401c4000, 595549, PROT_READ|PROT_WRITE|PROT_EXEC) = 0
open("/lib/ld-linux.so.2", O_RDONLY) = 6
read(6, "\177ELF\1\1\1\0\0\0\0\0\0\0\0\0\3"..., 4096) = 4096
mmap(0, 49152, PROT_NONE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x40269000
mmap(0x40269000, 41116, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_FIXED, 6,
0) = 0x40269000
mmap(0x40274000, 1620, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED, 6,
0xa000) = 0x40274000
close(6) = 0
mprotect(0x40269000, 41116, PROT_READ|PROT_WRITE|PROT_EXEC) = 0
--- SIGSEGV (Segmentation fault) ---
+++ killed by SIGSEGV +++
Any ideas?
--
___________________________________________________________________
Mark E Drummond Royal Military College of Canada
drummond-m@rmc.ca Computing Services
Linux Uber Alles perl || die
...there are two types of command interfaces in the world of
computing: good interfaces and user interfaces.
- Dan Bernstein, Author of qmail
PGP Fingerprint = 503D A72D AF41 2AD1 D433 C514 98D9 9A39 B25A 2405
------------------------------
Date: Wed, 28 Jul 1999 11:35:55 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Problem with spam in this group
Message-Id: <379F4D8B.77D9E66F@mail.cor.epa.gov>
Thomas Weholt wrote:
>
> hi,
>
> Are anybody else being bombed with spam-mail? The group itself seem to
> have a problem with people advertizing adult-sites, but I now get up to
> ten-fifteen emails aday ranging from sleazy porn-adds to
> "how-to-fix-anything-in-your-life-for-just-a-little-bit-of-money" etc.
Were you recently rude to a pornographer cluelessly searching for
Perl website help? After I did that a few months ago, I got a few,
umm.. tidbits. I:
(1) notified Karl The Sysadmin, who is pretty sharp about blocking
this stuff;
(2) checked the headers and traced the junk, then notified ISPs.
And presto! No more junk.
> It`s very annoying. I know this isn`t exactly perl, but I only
> participate daily in this group and was wondering if anybody else is
> having the same problems? Is somebody using email-addresses from this
> group to spam us?
>
> If so, is there anything we could do to stop this?
Umm, maybe write Ted Kaczinsky a hand-written note telling how
these people are using computers and technology to ruin everything
for regular people everywhere?
I haven't seen signs of wide-scale address harvesting from
this ng, so I don't think that munging your address to avoid
canned meat [or is that meat by-products] will be helpful.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 28 Jul 1999 13:31:46 -0500
From: milan andric <m-andric@students.uiuc.edu>
Subject: Q: compare two arrays
Message-Id: <Pine.GSO.4.10.9907281321200.25364-100000@ux11.cso.uiuc.edu>
I'm a little baffled on how to compare two arrays and print the
elements that exist in both.
m-andric@uiuc.edu
------------------------------
Date: 28 Jul 1999 13:53:17 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Q: compare two arrays
Message-Id: <xkfd7xclff6.fsf@valdemar.col.hp.com>
milan andric <m-andric@students.uiuc.edu> writes:
> I'm a little baffled on how to compare two arrays and print the
> elements that exist in both.
Then read the documents sitting right there on your very own harddrive,
and be enlightened!
Specifically, perlfaq4, "How do I compute the difference of two arrays?
How do I compute the intersection of two arrays?"
BTW, I located this question with "perldoc perltoc". Scan through there
before asking a question on USENET-- it's faster, and the answer is much
more likely to be helpful and correct.
-=Eric
------------------------------
Date: Wed, 28 Jul 1999 12:52:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Q: compare two arrays
Message-Id: <MPG.1208ff6336cc77c9989d66@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <Pine.GSO.4.10.9907281321200.25364-100000@ux11.cso.uiuc.edu>
on Wed, 28 Jul 1999 13:31:46 -0500, milan andric <m-
andric@students.uiuc.edu> says...
>
> I'm a little baffled on how to compare two arrays and print the
> elements that exist in both.
perlfaq4: "How do I compute the difference of two arrays? How do I
compute the intersection of two arrays?"
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 28 Jul 1999 10:12:42 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: reg expression
Message-Id: <q43nn7.rtn.ln@magna.metronet.com>
Alan J. Flavell (flavell@mail.cern.ch) wrote:
: On 27 Jul 1999, llornkcor wrote:
: > My point is this:
: You're making a real pest of yourself, and you don't seem to have
: anything useful to contribute to the group.
His posts don't bother me at all!
Probably because I don't see them.
heh, heh...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Jul 1999 13:15:13 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Standard Unix Compress
Message-Id: <x3yk8rkelwe.fsf@tigre.matrox.com>
"bob" <bbo> writes:
> Can I compress a tar archive that i have created with the tar module
> into a .Z format which can be uncompressed by the UNIX command uncompress ?
yes.
> I know you can use gzip from the tar module and create a gzipped tar
> archive but I need to use th standard lzw compression.
ok.
> Oh by the way the tar archive is being created on a NT box
lovely.
Now, what is your Perl question?
------------------------------
Date: Wed, 28 Jul 1999 17:38:43 +0100
From: James@linux.home (James Stevenson)
Subject: using $? in data
Message-Id: <slrn7pucgj.8bu.James@linux.home>
Hi
i have been trying to learn perl
but on of the problems i have run into is that
if i have a $ in the data i am handling it is treating it as a
var! how can i stop it doing this?
Thanks
James
--
---------------------------------------------
Check Out: http://www.users.zetnet.co.uk/james/
E-Mail: mistral@stevenson.zetnet.co.uk
5:30pm up 37 days, 18:33, 3 users, load average: 1.14, 1.27, 1.24
------------------------------
Date: 28 Jul 1999 19:18:52 GMT
From: John Callender <jbc@shell2.la.best.com>
Subject: Re: using $? in data
Message-Id: <379f579c$0$17002@nntp1.ba.best.com>
James Stevenson <James@linux.home> wrote:
> i have been trying to learn perl
> but on of the problems i have run into is that
> if i have a $ in the data i am handling it is treating it as a
> var! how can i stop it doing this?
Presumably this is happening because the data in question is being
treated as a doublequoted string. Two possible solutions would be to:
1) escape the $ with a backslash, e.g., "the \$data variable"
2) use 'singlequotes' (which don't do variable interpolation, among
other things), rather than "doublequotes" (which do) to contain the
string.
--
John Callender
jbc@west.net
http://www.west.net/~jbc/
------------------------------
Date: 28 Jul 1999 14:04:03 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: using $? in data
Message-Id: <xkfaesglex8.fsf@valdemar.col.hp.com>
James@linux.home (James Stevenson) writes:
> i have been trying to learn perl
> but on of the problems i have run into is that
> if i have a $ in the data i am handling it is treating it as a
> var! how can i stop it doing this?
What are you doing to make it seem like a variable? Perl won't
interpolate data unless you specifically ask it to.
-=Eric
#!/usr/bin/perl -w
use strict;
my $datawithadollarsign = 'I have lots of data with $ signs in it, and I have';
my $moresuchdata = <<'EODATA';
never yet had a problem with $ signs in my data.
It doesn't even interpret the $variables as if they
were variables.
EODATA
print "$datawithadollarsign\n"; # interpolated data with $ in it
print $moresuchdata; # here-docs
while(<DATA>) { # data read from filehandles.
print;
}
__END__
Thi$ ha$ $dollar $signs
$everywhere. I $can't $ee a
$problem.
------------------------------
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 286
*************************************
