[13712] in Perl-Users-Digest
Perl-Users Digest, Issue: 1122 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 19 20:05:35 1999
Date: Tue, 19 Oct 1999 17:05:11 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <940377910-v9-i1122@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 19 Oct 1999 Volume: 9 Number: 1122
Today's topics:
Re: %hash array problem (Sam Holden)
'last' behaviour differences between Perl4 & Perl5 <jbreukelman@netcom.ca>
Re: 'last' behaviour differences between Perl4 & Perl5 (Randal L. Schwartz)
Re: array <lr@hpl.hp.com>
BEGIN causes errors! (Jerry LeVan)
Re: CGI, netBIOS, nbtstat <carvdawg@patriot.net>
Re: Comment out multiple lines (Matthew David Zimmerman)
Re: dec to bin conversion and vice versa <marshalc@americasm01.nt.com>
Re: erorr output to browser? <jeff@vpservices.com>
Re: erorr output to browser? <flavell@mail.cern.ch>
Re: fork (????) <jspangen@my-deja.com>
FTP to Server <samay1NOsaSPAM@hotmail.com.invalid>
Further Musings <wyzelli@yahoo.com>
Re: help with substrings <jspangen@my-deja.com>
Re: How to write isdigit() in Perl <jspangen@my-deja.com>
Re: I pass by reference, but my array is unchanged. (Joe Petolino)
Re: I pass by reference, but my array is unchanged. <stampes@xilinx.com>
Re: linux perl editor? (Craig Berry)
musing... <alannehome@mindspring.com>
Re: NT: How can I change drive within a perl script? <lr@hpl.hp.com>
Re: odbc extension for win32 perl <carvdawg@patriot.net>
Re: OT: Din paper sizes (was Re: PDFlib size settings) (Sam Holden)
Output html problem <1stlook@axion.net>
Re: Output html problem (Bill Moseley)
parsewords (Etruscan)
Perl 5.005_3 and stdarg.ph? (Jerry LeVan)
Perlcc on Solaris <richd@no.spam.globalserve.net>
Re: PerlScript for ASP installation problem <emschwar@rmi.net>
SGML/HTML parsing tool kiosk62279@my-deja.com
Re: sorting arrays (Martien Verbruggen)
Trim text sushi38@my-deja.com
Re: Trim text <arthur.haas@westgeo.com>
Re: Trim text (Craig Berry)
Trimming down file names for all files in dir <dutch@mindspring.com>
Re: Unix command =?iso-8859-1?Q?=B4tree=B4?= in Perl? (Sam Holden)
Re: Using SQL stored procedure in Perl princyraj@my-deja.com
Re: what is SHTML ? <lr@hpl.hp.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Oct 1999 23:15:57 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: %hash array problem
Message-Id: <slrn80putd.69r.sholden@pgrad.cs.usyd.edu.au>
On Tue, 19 Oct 1999 12:11:21 +0200, Marc <kwantm@convertis.nl> wrote:
>Hi,
>
>Very nice try to confuse me but I have solved the problem on my own.
>foreach (keys %mydata)
>{ print "$_ = $mydata{$_}\n"; }
>
>this is the proper solution.
You get told to look up foreach...
You use foreach...
You then complain about people donating their time to read your
question, and point you towards the answer.
I don't think you are going to enjoy c.l.p.m
*plonk*
--
Sam
You can blame it all on the internet. I do...
--Larry Wall
------------------------------
Date: Tue, 19 Oct 1999 17:59:26 -0400
From: JBreukelman <jbreukelman@netcom.ca>
Subject: 'last' behaviour differences between Perl4 & Perl5
Message-Id: <380CE9BD.FAD36486@netcom.ca>
Hello.
I wrote a script a couple of years ago which uses a number of
subroutines (30 or so). Most of these scripts will return 0 if they
come across an error. To do this I used the following command;
(return 0, last) if($Error);
The trouble is, 'last' worked for every block in Perl4, but it works
only for loops in Perl5. Now, every time one of these functions comes
across an error the script dies with the error "Can't last outside of
block"
Does anyone know of a way I can fix this without rewriting _every_
subroutine?
JB.
------------------------------
Date: 19 Oct 1999 16:13:06 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: 'last' behaviour differences between Perl4 & Perl5
Message-Id: <m1n1tfosfx.fsf@halfdome.holdit.com>
>>>>> "JBreukelman" == JBreukelman <jbreukelman@netcom.ca> writes:
JBreukelman> I wrote a script a couple of years ago which uses a
JBreukelman> number of subroutines (30 or so). Most of these scripts
JBreukelman> will return 0 if they come across an error. To do this I
JBreukelman> used the following command;
JBreukelman> (return 0, last) if($Error);
JBreukelman> The trouble is, 'last' worked for every block in Perl4,
JBreukelman> but it works only for loops in Perl5. Now, every time
JBreukelman> one of these functions comes across an error the script
JBreukelman> dies with the error "Can't last outside of block"
JBreukelman> Does anyone know of a way I can fix this without
JBreukelman> rewriting _every_ subroutine?
If "last" worked for "every block" in Perl4, it was broken. It was
documented to work for "looping blocks", the ones that belong to
while/until, for, foreach, and the naked block. Show us some code
that you believed to work in Perl4, and we can look at it to see if
the known changes from Perl4 to Perl5 broke it, or whether something
else can explain that.
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 19 Oct 1999 13:21:22 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: array
Message-Id: <MPG.1276729c52a8893298a0be@nntp.hpl.hp.com>
In article <lMAMOPJ7sgrTyTKihd+7F+z8qCDl@4ax.com> on Tue, 19 Oct 1999
20:04:32 +0100, Dave Cross <dave@dave.org.uk> says...
> On 19 Oct 1999 18:28:06 GMT, GiN@hookers.org (GiN) wrote:
> >
> >I have an array: @arr = ("weeh", "waah", "wuuh", "wiih", "wooh");
> >
> >what is the simpliest way to remove "wuuh" from @arr?
> @arr = @arr[0, 1, 3, 4];
Well, if you know the index of the element to be removed, then the
following is much more efficient:
splice @arr, 2, 1;
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 15 Oct 1999 11:16:59 -0400
From: levan@eagle.eku.edu (Jerry LeVan)
Subject: BEGIN causes errors!
Message-Id: <7u7ghb$h7q$1@eagle.eku.edu>
Greetings,
I just upgraded our Perl to 5.0005.03 (latest_stable).
I wrote a WWW server in Perl some time ago (5.002 Perl)
and started the code with
BEGIN { fork && exit }
The intent was to immediately drop into the "background"
before compilation started.
It worked fine through 5.004_3, now I am getting syntax errors
It looks like the scanner is screwing up the input
I get an error on a require 5.0; statement , the output
from the error message complains about prequire 5.0 being
syntacally incorrect.
A workaround is to simply drop the word BEGIN.
Anyone have any idea what is going on here?
--Jerry
------------------------------
Date: Tue, 19 Oct 1999 19:59:25 -0400
From: "Harlan Carvey, CISSP" <carvdawg@patriot.net>
Subject: Re: CGI, netBIOS, nbtstat
Message-Id: <380D05DD.7761B984@patriot.net>
> Is there a way to use perl to get the same information as the
> nbtstat-command? IŽd like to use it for a page so that i can welcome my
> visitors with their usernames... Thanks on advance!
At this point...no. I've tried to do so using the Win32::Lanman module,
but with
no success...yet. I'd really like to know what API calls nbtstat.exe is
making. I just
haven't gotten around to getting the tools together to do this...
Carv
------------------------------
Date: 19 Oct 1999 23:30:44 GMT
From: mdz4c@node6.unix.Virginia.EDU (Matthew David Zimmerman)
Subject: Re: Comment out multiple lines
Message-Id: <7uiuv4$gf3$1@murdoch.acc.Virginia.EDU>
In article <7u2th0$4qn$1@brokaw.wa.com>,
Lauren Smith <laurensmith@sprynet.com> wrote:
>
>Ilya wrote in message ...
>>Lauren Smith <laurensmith@sprynet.com> wrote:
>>> perlfaq7:"How can I comment out a large block of perl code?"
>>
>>So you are saying I should search *all* of FAQs for this?
>
>What I am definitely *not* saying is that you should READ every single
>FAQ every time you want to find the answer to a problem. OTOH, if you
>run into a problem, you should *search* all of the FAQs. Seeing as how
>the search utility comes with Perl in the form of perldoc, it should be
>relatively easy to construct a search phrase that would find what you're
>looking for.
>
>If you are unfamiliar with perldoc, then try typing 'perldoc perldoc' at
>your command line. It will give you a list of flags that you can use
>with it to find anything from functions to FAQs.
>
And if your version of perldoc doesn't have a -q switch (as I'm running perl5.004_04),
you can use this quick little hack to search through all of the POD documentation instead:
---
#!/usr/bin/perl5 -w
#
use strict;
use File::Find;
my $line;
my $word;
my $basename;
unless (defined($word = shift))
{
($basename = $0) =~ s!^.*/!!;
die <<END_OF_USAGE;
$basename
usage: $basename word
$basename searches all of Perl's pod documentation for the word, case
insensitive, listed as an argument. 'word' shall be inserted directly
into a regexp, so all the metacharacters used in regexps retain their
meaning.
Examples:
$basename tchrist
$basename '(wo)?man'
$basename '\\ssort\\s'
END_OF_USAGE
}
my @realinc;
foreach (@INC) {push @realinc, $_ if -e}
find \&process_files, @realinc;
sub process_files {
if ( /\.pod$/ || /\.pm$/ ) {
open (PODFILE, $_) or die "Couldn't open $_: $!";
while (defined( $line = <PODFILE> ) ) {
if ( $line =~ /$word/i ) {
print "$_:$.: $line";
}
}
close (PODFILE) || warn "Couldn't close $_: $!";
}
}
---
It has a few little bugs, which the gurus will no doubt quickly pick up on, but it gets the
job done. Cheers!
Matt
--
Matthew Zimmerman ------------ http://www.people.virginia.edu/~mdz4c
Interdisciplinary Biophysics Program --------- University of Virginia
| "You got to be very careful if you don't know where you're going, |
| because you might not get there." -- Yogi Berra |
------------------------------
Date: Tue, 19 Oct 1999 16:04:47 -0500
From: Marshall Culpepper <marshalc@americasm01.nt.com>
Subject: Re: dec to bin conversion and vice versa
Message-Id: <380CDCEF.38863C30@americasm01.nt.com>
Thuan Pham wrote:
> Hello all:
>
> I would like to know if anyone out there has a Perl program/subroutine
> that does the conversion from decimal to binary and vice versa that I can take
> look at?)
this is documented in perlfaq4 (How do I convert bits into ints?)
but here are some simple routines that should do the job:
#!/usr/bin/perl -w
sub bin2dec{
my $num=shift;
return pack "B*" => $num;
}
sub dec2bin{
my $num=shift;
return join '' => unpack("B*", $num);
}
print bin2dec('01011001'), "=",dec2bin("Y"),"\n";
print bin2dec('01100101'), "=",dec2bin("e"),"\n";
print bin2dec('01111001'), "=",dec2bin("y"),"\n";
Output:
% perl test
Y=01011001
e=01100101
y=01111001
HTH,
~Marshall
------------------------------
Date: 19 Oct 1999 20:27:21 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: erorr output to browser?
Message-Id: <380CD3FF.5D5AC4ED@vpservices.com>
"Alan J. Flavell" wrote:
>
> On 19 Oct 1999, Jeff Zucker wrote:
>
> > amonotod wrote:
> > >
> > > In article <7ui1ps$e85$1@nnrp1.deja.com>,
> > > newsmf@bigfoot.com wrote:
> > > > Wheen debugging perl cgi-scripts, how can I get the error output to
> > > > show up in the browser instead of just getting the generic "Internal
> > > > Server Error" message?
> > >
> > > There really is no way to do what you ask
>
> [because the Perl script failed to compile, or the server config was
> such that it refused to even consider running it.]
>
> > Bzzzt! Wrong answer. You could redefine your DIE, or more simply:
> >
> > use CGI::Carp qw(fatalsToBrowser);
>
> And this works exactly how, when the program that contains it hasn't
> even been compiled?
You are correct that there are some circumstances in which the error
message is not shown in the browser. But to say "this sometimes doesn't
do what you ask" is very different from saying "there is no way to do
what you ask".
Furthermore, even in the situations you mention, CGI::Carp gives more
informative responses than the generic "Internal Server Error"
Consider these two scripts which, without CGI::Carp, give identical
messages, but give differnt messages with it:
#!/typo_on_perl_path/perl -wT
print "Content-Type: text/html\n\nhello";
#!/correct_path_to_perl/perl -wT
typo_on_print_command "Content-Type: text/html\n\nhello";
In other words, if one does not use fatalsToBrowser, there is no
difference between a bad path to perl, a non-compiling script, and a
runtime error -- all give the equally uninformative 'Internal Server
Error'. With fatalsToBrowser one gets the full error message for (most)
runtime errors, and, although one does not get the text of the
compile-time error, one can tell the difference between a compile-time
error and other configuration or executable problems. In all three
cases, it is more informative than always getting a generic "Internal
Serve Error".
--
Jeff
------------------------------
Date: Wed, 20 Oct 1999 00:47:19 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: erorr output to browser?
Message-Id: <Pine.HPP.3.95a.991020003459.8592A-100000@hpplus01.cern.ch>
On 19 Oct 1999, Jeff Zucker wrote:
(after quoting my reminder about what had originally been said, but
which he had conveniently excised):
> > > > There really is no way to do what you ask
> > [because the Perl script failed to compile, or the server config was
> > such that it refused to even consider running it.]
> >
> > > Bzzzt! Wrong answer. You could redefine your DIE, or more simply:
> > >
> > > use CGI::Carp qw(fatalsToBrowser);
> >
> > And this works exactly how, when the program that contains it hasn't
> > even been compiled?
>
> You are correct that there are some circumstances in which the error
> message is not shown in the browser.
The very circumstances which had been stated originally..
> But to say "this sometimes doesn't
> do what you ask" is very different from saying "there is no way to do
> what you ask".
I'm perfectly well aware of fatalsToBrowser, and use it myself with
enthusiasm, even though I run the server and have no difficulty looking
in the error log when necessary.
> Furthermore, even in the situations you mention, CGI::Carp gives more
> informative responses than the generic "Internal Server Error"
I'm not aware that CGI::Carp does a damned thing if the server decides
it's not even going to try executing the script. This is the point.
You had every right to point to the existence of fatalsToBrowser.
You had no right to cut out the very point of that part of the quoted
posting, and then leap on the buzzer on the basis of the resulting
misleading quote.
I'm dropping this thread now. Do with it what you will, I've drawn
my own conclusion already. Yes, there's BEGIN. But it still doesn't
help when the server doesn't even consider executing the script.
------------------------------
Date: Tue, 19 Oct 1999 23:22:50 GMT
From: Johannes <jspangen@my-deja.com>
Subject: Re: fork (????)
Message-Id: <7uiuft$3m7$1@nnrp1.deja.com>
In article <380B0701.237F2D49@rdg.ac.uk>,
Dimitrios Kremmydas <lzu99dk@rdg.ac.uk> wrote:
> I want to do something (e.g Open an FTP Connection, open an SMTP
> connection) but I WANT TO HAVE IT MANY TIMES SIMULTANEOUSLY ...
> I know how to make FTP or SMTP (Net::*) through Perl, but I don't know
> how to make child processes (that means ... make something
> simultaneously) ...
> I know it has something to do with fork and pid and etc.
...
use POSIX ":signal_h";
use POSIX ":sys_wait_h";
my $SIGSET = POSIX::SigSet->new(&POSIX::SIGCHLD);
my $SIGACTION = POSIX::SigAction->new('main::BURY_DEAD_KID', $SIGSET);
POSIX::sigaction(SIGCHLD, $SIGACTION); #0 but true
...
for ($n = 1; $n < $WANTED_KIDS+1; $n++) { # I want lot of kids
while ($num_kids >= $max_kids) { # wait for kids to come home
sleep 1;
}
# we're done waiting, there's room for fork
# block signals during fork
unless (defined sigprocmask(SIG_BLOCK, $SIGSET))
{ die "Couldn't block signals\n"; }
$pid = fork(); # creates child process
(defined $pid) or die "phooey can't fork this child";
# fork was successful
if ($pid){ # I'm the parent, watching my children
$num_kids ++;
} else { # I'm the child doing the work
... # do FTP, SMTP or whatever
exit(0); # kid go home
}
}
while ($num_kids > 0) {sleep 5;} # wait for kids to come home
...
sub BURY_DEAD_KID{
my ($dead_kid);
# mask signals during this subroutine
unless (defined sigprocmask(SIG_BLOCK, $SIGSET)){
die "Couldn't block signals in bury dead kid\n";
}
# wait for a child process to finish, collect it's pid
while (($dead_kid = POSIX::waitpid(-1, &POSIX::WNOHANG))>0){
# note there is one less child
$num_kids --;
}
# unmask signals
unless (defined sigprocmask(SIG_UNBLOCK, $SIGSET)){
die "Couldn't unblock signals in bury dead kid\n";
}
}
> But since I cannot understand them very well, can somebody send me a
> simple examples, explaining what is going on on th code ? Even
locations
> of Internet Resources would be happily acceptable ...
hope the short and rough example helps
>
> cheers
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Oct 1999 15:04:02 -0700
From: Samay <samay1NOsaSPAM@hotmail.com.invalid>
Subject: FTP to Server
Message-Id: <000b8d9b.92a7dfc5@usw-ex0101-002.remarq.com>
Hi,
I am currently using frontpage to Update the files to the server.
There's lot of overhead as frontpage validate the each link etc..
I just want to publish the Updated files at scheduled interval from my
directory. It requires username and password. Which module should I use
or any simple coding in few lines.
Thanks You
Samay
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Wed, 20 Oct 1999 09:20:19 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Further Musings
Message-Id: <3t7P3.1$U_1.1503@vic.nntp.telstra.net>
Craig Berry <cberry@cinenet.net> wrote in message
news:s0p7q2hcr0166@corp.supernews.com...
> Wyzelli (wyzelli@yahoo.com) wrote:
> : Craig Berry <cberry@cinenet.net> wrote in message
> : news:s0l5n6snr0186@corp.supernews.com...
> : localtime et al returns the number of years since the epoch, to which we
> : add 1900 to ensure y2k accuracy.
>
> Not true. On Unix-ish systems, the epoch is midnight Jan 1 1970 UTC.
> localtime returns years since 1900. Big difference.
I guess that varies by system, as I recall that on Mac's the epoch is a
different date again, so that further confuses things!
> : Are there many occasions are there where the number of years since the
> : epoch is actually used? Particularly outside the current century?
>
> No, and if I had a time machine I'd take a gun back to 1975 and force
> Kernighan et al to do it that way. :) It was, in retrospect, an
> astonishingly bad decision to return year-1900. However, so much existing
> practice has built up around the C (and C-derived Perl) behavior of
> localtime that any attempt to fix it now would cause far more harm than
> good.
Soon as I invent a time machine you can have it.. <grin>
> : Assuming localtime returned 'years since epoch plus 1900' would not
those
> : cases of 'years since epoch' then be adequately served by 'localtime -
1900'
>
> Yes, of course (assuming you mean 'the localtime year value' where you
> write 'localtime' above). Or 'year%100' to reliably get just the
> non-century portion of the year -- which also works with the current
> behavior, of course.
I guess similar things could be applied to the month which is 0 indexed.
How hard would it have been to make localtime return the month rather than
an index?
I guess hindsight is a wonderful thing! And good programmers probably just
cut and paste a standard block for their date calls anyway so once you got
it right you never need to do it again... but imagine the drop off in ng
questions (about time and date related stuff anyway).
Oh to dream...
Wyzelli
------------------------------
Date: Tue, 19 Oct 1999 22:13:10 GMT
From: Johannes <jspangen@my-deja.com>
Subject: Re: help with substrings
Message-Id: <7uiqde$rt$1@nnrp1.deja.com>
In article <380B817A.1045A3F1@unity.ncsu.edu>,
kpmonroe@unity.ncsu.edu wrote:
> For some reason this relatively easy problem has been stumping me all
> day. Any help would be appreciated as I am beginning to lose my mind
>
> I have a comma deliminated text file such as
>
> 121,Jimmy,Jones,0,1,21,555,89
> 1547,James,Johnson,155,87,6,1,301
> 14,Me,Again,12,197,0,22,1
>
> and so on
> all Im trying to do is get say the first and the third fields after
the
> comma
> I have tried to split it over and over again but no matter what I try
I
> get "use of uninitialized valued at line"
>
> here is the code albeit very simple
>
> #!/usr/local/bin/perl -w
You should use strict;
>
> open(NEW, "< /path/to/file.txt") or die "Can't open file.txt: $!";
>
> @data = <NEW>;
This reads only the first line in the first element of @data,
you can directly use a simple $line eg.
>
> foreach $element(@data){
> split(/,/, $line);
> print $element;
> }
>
> close <NEW>;
I think you wanted to do something like:
#!/usr/local/bin/perl -w
use strict;
open DATA, "./data" or die "Can't open data:$!";
my $line;
while (defined ($line = <DATA>)) {
chomp $line;
my @data = split (/,/,$line);
foreach my $element (@data[1,3,5]) {print "$element\n";}
}
close DATA;
exit(0);
or
#!/usr/local/bin/perl -w
use strict;
open DATA, "./data" or die "Can't open data:$!";
while (<DATA>) {
my @data = split /,/;
print join "\n", @data[1,3,5];
}
close DATA;
exit(0);
or shorter
#!/usr/local/bin/perl -w
use strict;
open DATA, "./data" or die "Can't open data:$!";
while (<DATA>)
{s/^([^,]+),[^,]+,([^,]+),[^,]+,([^,]+),.*$/$1\n$2\n$3/; print;}
close DATA;
exit(0);
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Oct 1999 22:23:11 GMT
From: Johannes <jspangen@my-deja.com>
Subject: Re: How to write isdigit() in Perl
Message-Id: <7uir02$17m$1@nnrp1.deja.com>
In article <s0o7fr53r0157@corp.supernews.com>,
Govindaraj <umungo01@shafika.vetri.com> wrote:
>
> Hi,
>
> I am matching the Page Number, which is in two different formats
> as described below:
>
> Page: 44
> Page: xxiii
>
> I want to convert the above two lines in two different way. How can I
> differentiate the Arabic Numberal Page Number with the Roman Page
Number.
>
> More preciously, I am just like for a function which will test my
> pattern whether it's numeric or string.
$line = <PAGE>;
$line =~ s/Page:\s(.*)\s*$/$1/;
if ($line =~ /^\d+$/) { ... # only digits
} else { ... # something else (american, Roman, whatever)
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Oct 1999 22:44:58 GMT
From: petolino@joe.Eng.Sun.COM (Joe Petolino)
Subject: Re: I pass by reference, but my array is unchanged.
Message-Id: <7uis9a$l1d$1@engnews2.Eng.Sun.COM>
># I want to pass an array reference to a gah() and have gah()
># make changes to the array. Since the array is being passed
># by reference, I expect that any changes made in gah() will
># actually occur to @blorg in subroutine blah(). That's not
># what is happening though.
. . .
>sub gah()
>{
> my $foo = shift;
> my @arr = @$foo;
> my $i;
>
> for $i ( 0 .. $#arr ){
> print "$arr[$i]\n";
> $arr[$i] = $i;
> }
>
>}
This assignment in gah() makes a copy of the passed array:
my @arr = @$foo;
You then operate on @arr, not on the original array. Use $#$foo and
$foo->[$i] instead of $#arr and $arr[$i], and things should work better.
Details can be found in 'perldoc perlref'.
-Joe
------------------------------
Date: 19 Oct 1999 22:44:38 GMT
From: Jeff Stampes <stampes@xilinx.com>
Subject: Re: I pass by reference, but my array is unchanged.
Message-Id: <7uis8m$9p1@courier.xilinx.com>
Jeff Moser <agon@unm.edu> wrote:
: # I want to pass an array reference to a gah() and have gah()
: # make changes to the array.
: # The output of this program is
: # a
: # b
: # c
: # a
: # b
: # c
: # I expected the output of this program to be:
: # a
: # b
: # c
: # 0
: # 1
: # 2
: gah(\@blorg);
: sub gah()
: {
: my $foo = shift;
: my @arr = @$foo;
There's the problem. You justy made yourself a local
array that is a copy of the reference you handed in
Try this:
sub gah()
{
my $arr = shift;
my $i;
for $i ( 0 .. $#{$arr} ){
print "$arr->[$i]\n";
$arr->[$i] = $i;
}
}
: # Thanks a lot for the help.
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: Tue, 19 Oct 1999 22:52:47 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: linux perl editor?
Message-Id: <s0pthv2r0166@corp.supernews.com>
Jonathan Stowe (gellyfish@gellyfish.com) wrote:
: On Tue, 19 Oct 1999 12:39:39 -0500 Marc H. Robards wrote:
: > Anyone have any recommendations for a perl editor under Linux? Or is emacs
: > or vim the way to go? I've just started using Linux, so any suggesstions
: > would be appreciated.
:
: Yes vi,vim,nvi,elvis,emacs,joe,ev,pico,textedit,xedit,ptked will do fine.
:
: Of course real programmers use 'dd'
Some of us traditionalists use 'cat >prog'.
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "They do not preach that their God will rouse them
a little before the nuts work loose." - Kipling
------------------------------
Date: Tue, 19 Oct 1999 23:18:13 GMT
From: Carrie Duffy <alannehome@mindspring.com>
Subject: musing...
Message-Id: <380DA3FD.E88F6470@semcor.com>
Playing on the "misc" portion of the name, just thought I'd give all of
you a friendly thank you. It's become a comforting part of my day
(ritual? perhaps.) to check the newsgroup when I get home with the
requisite hot cup o' beverage and see what latest snide remark Abagail
has inflicted on a wide-eyed newbie, what tasty FAQ tidbit I should be
looking for in answer to my newest problem, or (my favorite) trying to
figure out how those .sigs actually work.
I only lurk - I still have about three year's worth of POD and animal
books to get through before I'll be able to ask a question that doesn't
get a 'rtff' answer - but that's okay. The only thing I like to do more
than write is to write Perl, and I'm just glad there's a lot more people
out there who feel that way.
Anyway, thanks for the time (and laughs). Cheers.
--
Jeff Duffy
jduffy@semcor.com
------------------------------
Date: Tue, 19 Oct 1999 08:39:45 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: NT: How can I change drive within a perl script?
Message-Id: <MPG.12763096d98e741f98a0bd@nntp.hpl.hp.com>
In article <380C510A.75863FC0@open.ac.uk> on Tue, 19 Oct 1999 12:07:54
+0100, Richard Yates <r.j.yates@open.ac.uk> says...
> or find out what drive I'm on "now".
use Cwd;
print substr cwd, 0, 1;
> I'm asking this on behalf of a colleague.........
........who is unable to ask for h(is|er)self?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 19 Oct 1999 20:01:09 -0400
From: "Harlan Carvey, CISSP" <carvdawg@patriot.net>
Subject: Re: odbc extension for win32 perl
Message-Id: <380D0644.B7415595@patriot.net>
> I am trying to install ODBC extension for win32
> perl. After installation, when I run the test
> script, the following error comes
>
> Can't locate loadable object for module Win32ODBC
> in @INC (@INC contains
> D:\perl\lib/MSwin32-x86
> D:\perl\lib
> D:\perl\site\lib
> at...
>
> What should I do to correct the error.
Go to http://www.activestate.com and download the latest version
of Perl...build 521, I think. This comes with Win32::ODBC.
Carv
------------------------------
Date: 19 Oct 1999 23:22:46 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: OT: Din paper sizes (was Re: PDFlib size settings)
Message-Id: <slrn80pva6.69r.sholden@pgrad.cs.usyd.edu.au>
On Tue, 19 Oct 1999 13:29:55 +0100,
Isaac Hepworth <isaac.hepworth@dresdner-bank.com> wrote:
>Sam Holden <sholden@pgrad.cs.usyd.edu.au> wrote in message
>news:slrn80ndil.r9t.sholden@pgrad.cs.usyd.edu.au...
>> I found it funny that someone could say that there is a ratio which is
>> 'exactly' 1:sqrt(2). Since the whole idea of irrational numbers is that
>> they can not be expressed as ratios.
>
>Is it also funny that the ratio between the diameter of a circle and its
>circumference is exactly pi? The whole idea of irrational numbers is that
>they can't be expressed as ratios of *rational* numbers. There's nothing to
>say that they can't arise out of geometry or geometrical ratios---and many
>do.
No. But cicles aren't rectangles either.
I think I covered your comment about two paragraphs down in the original
post...
My my, people get touchy when you forget on e simple smiley ;)
--
Sam
I explicitly give people the freedom not to use Perl, just as God gives
people the freedom to go to the devil if they so choose.
--Larry Wall
------------------------------
Date: Tue, 19 Oct 1999 16:05:08 -0700
From: "First Look Computer" <1stlook@axion.net>
Subject: Output html problem
Message-Id: <s0pu63gtr016@corp.supernews.com>
Hi I would be the ultimate newbie : Enough said!!
I'm trying to get an output from a print statement that would allow me to
format text in proper html. However I don't know how to get around the
double quotes issue in the font formatting. Can anyone help???
print "<H3><font color="#004080" size="7">Some Text Like This</h3>"
Thanks please respond to charden@home.com
------------------------------
Date: Tue, 19 Oct 1999 16:55:07 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Output html problem
Message-Id: <MPG.1276a4b43bae77f1989812@nntp1.ba.best.com>
First Look Computer (1stlook@axion.net) seems to say...
> Hi I would be the ultimate newbie : Enough said!!
>
> I'm trying to get an output from a print statement that would allow me to
> format text in proper html. However I don't know how to get around the
> double quotes issue in the font formatting. Can anyone help???
>
> print "<H3><font color="#004080" size="7">Some Text Like This</h3>"
print '<H3><font color="#004080" size="7">Some Text Like This</h3>';
print qq[<H3><font color="$color" size="$size">$message</h3>]
> Thanks please respond to charden@home.com
Sorry, I only have incoming email access. It's cheaper.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Tue, 19 Oct 1999 15:10:52 -0800
From: prana@uswest.net (Etruscan)
Subject: parsewords
Message-Id: <1U6P3.3595$u32.656140@WReNphoon4>
Hi,
I am trying to pasre a text file.
0041-7332 353250 070199 24761
0041-7332 353854 070199 12479
I am trying to load these four fields into an array and the parse them. The
second field should be ten character long. 0000353250 and so on. If the
second field is 7 chars long then it should be preceded by three zeros.
This is what I have read and cannot apply successfully
@F array auotmatically loads all the fields into an array. $[0] $[1]
$[2]$[3] are the four fields.
The end result should look like
0041-7332 000035250 07019924761
Please let me know what I should look up (new to perl).
Please help and Thanks
-**** Posted from RemarQ, http://www.remarq.com/?a ****-
Search and Read Usenet Discussions in your Browser - FREE -
------------------------------
Date: 15 Oct 1999 17:27:44 -0400
From: levan@eagle.eku.edu (Jerry LeVan)
Subject: Perl 5.005_3 and stdarg.ph?
Message-Id: <7u868g$inm$1@eagle.eku.edu>
Greetings,
I am having a bit'o trouble with a fresh installation
of perl 5.005_3. ( from 5.004_<something>). This is
on a linux/intel box running 2.0.x
After the installation I started to reinstall all of the
modules. When I got to Net::Daemon the tests complained
that "stdarg.ph" could not be found, and did I run h2ph.
When I did not run h2ph, I jumped up to /usr/include and
ran h2ph with * and sys/*. Make test still complained about
not being to find stdarg.ph. I went back to /usr/include and
did a find but could not locate stdarg.h.
I copied the stdarg.ph from the 5.004 release and that seemed
to let the test go forward...there was a complaint about
"constant subroutine __need_va_list" not being defined in stdarg.ph
but the test said "oK".
Question: where the heck is stdarg.h?
I have a linux/PPC at home, it has a buncho ph files and a
stdarg.ph file, here again I could not find a stdarg.h find
in the /usr/include hierarchy.
stdarg.ph looks a little weird to have come from a header file...
What the heck is going on....
--Jerry
levan@eagle.eku.edu
------------------------------
Date: Wed, 20 Oct 1999 07:07:07 -0400
From: "Rich Dedeyan" <richd@no.spam.globalserve.net>
Subject: Perlcc on Solaris
Message-Id: <7uit4g$eht$1@news2.tor.accglobal.net>
Hello All,
I downloaded and installed perl on Solaris 2.6/Sparc. My perl scripts run
fine. However, I tried to compile a perl program using perlcc and I get the
following error messages:
"/usr/local/lib/perl5/5.00503/sun4-solaris/CORE/iperlsys.h", line 319:
formal
parameter lacks name: param #1
"/usr/local/lib/perl5/5.00503/sun4-solaris/CORE/iperlsys.h", line 319:
formal
parameter lacks name: param #2
"/usr/local/lib/perl5/5.00503/sun4-solaris/CORE/iperlsys.h", line 319:
formal
parameter lacks name: param #3
"/usr/local/lib/perl5/5.00503/sun4-solaris/CORE/iperlsys.h", line 319:
syntax
error before or at: __attribute__
"/usr/local/lib/perl5/5.00503/sun4-solaris/CORE/iperlsys.h", line 319:
warning:
syntax error: empty declaration
"/usr/include/ctype.h", line 43: cannot recover from previous errors
cc: acomp failed for test3.pl.c
As well, when I downloaded and tried to compile the DBI & Oracle DB
package from the perl.com web site, I got the same messages as above. I
can't seem to figure out why. Anyone can help me out?
Thanks,
Rich Dedeyan
Montreal, Canada
P.S. - If replying via e-mail please e-mail at richd@globalserve.net
------------------------------
Date: 19 Oct 1999 13:37:49 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: PerlScript for ASP installation problem
Message-Id: <xkfiu43m99u.fsf@valdemar.col.hp.com>
"DeveloperX" <devx@hotmail.com> writes:
> I suspect that it's an installation problem, and I suspect that there are
> quite a few Perl users who have installed PerlScript as well, and possibly
> come across the problem before,
I need to replace most of the hardware on my bicycle. Since I suspect
that there are quite a few Perl users who may have replaced hardware on
their bicycles as well, and possibly come across any problems, would it
be appropriate for me to ask questions about my bicycle on clpm?
-=Eric
--
"Cutting the space budget really restores my faith in humanity. It
eliminates dreams, goals, and ideals and lets us get straight to the
business of hate, debauchery, and self-annihilation."
-- Johnny Hart
------------------------------
Date: Tue, 19 Oct 1999 23:09:38 GMT
From: kiosk62279@my-deja.com
Subject: SGML/HTML parsing tool
Message-Id: <7uitna$2vm$1@nnrp1.deja.com>
Hey folks,
Recently I've found myself writing a lot of scripts that basically take
an HTML page that's up on the web somewhere, read in it's contents,
parse out the HTML tags, and throw everything into a database. (More
specifically, I usually have to extract the data from each individual
table cell from a certain table and put it in the right database
column.) I do this by writing the scripts from scratch, but I can't
help but think that there has to be a better way. I've seen a few
classes (like HTML::TreeBuilder) that will do simple HTML parsing.
However, I've had limited success finding much good sample source code
for HTML::TreeBuilder, so I haven't put a lot of effort into that.
What I want to know is:
1. Has anyone else ever found themselves in the situation I describe?
(i.e., needing to parse a lot of HTML files and extra data from
different table cells)
2. If so, what tools did you use? What would you recommend? What
tool did you find that was easiest to adapt to different purposes
(e.g., sometimes I only want the data from TD's that are on odd-
numbered rows, etc.)
3. If any of your answers above involved HTML::TreeBuilder, can you
point me in the direction of some good documentation and/or sample code
that uses this module?
Thanks for any help anyone can provide.
Brad
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Oct 1999 23:51:18 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: sorting arrays
Message-Id: <Wt7P3.158$kk1.2991@nsw.nnrp.telstra.net>
On Tue, 19 Oct 1999 16:49:27 GMT,
Kragen Sitaker <kragen@dnaco.net> wrote:
> In article <slrn80oj39.1vv.mgjv@wobbie.heliotrope.home>,
> Martien Verbruggen <mgjv@comdyn.com.au> wrote:
> >On Mon, 18 Oct 1999 18:59:36 GMT,
> > secnarf@my-deja.com <secnarf@my-deja.com> wrote:
> >> I have the contents of a table in an array. I only want to sort the by
> >> the contents of the first line of the table row, which looks like -
> >
> >This doesn't really parse very well. Arrays and tables have nothing in
> >common. But I'll just assume that you know what you're talking about,
> >even in we don't.
>
> "nothing in common"? HTML tables are two-dimensional arrays. He
> probably needs to know how to read the HTML table into Perl arrays.
Arrays are one-dimensional.
Martien
--
Martien Verbruggen |
Interactive Media Division | Unix is user friendly. It's just
Commercial Dynamics Pty. Ltd. | selective about its friends.
NSW, Australia |
------------------------------
Date: Tue, 19 Oct 1999 21:24:32 GMT
From: sushi38@my-deja.com
Subject: Trim text
Message-Id: <7uini3$upi$1@nnrp1.deja.com>
I do not have much experience with perl, but from what I have seem this
must be pretty easy to accomplish. In a text file, I would like to trim
n characters that come before a certain string. For example:
99/10/19 19:38:06 33.11N 116.51W 13.3 2.2MGN C* 6 mi. ENE of
99/10/19 19:50:44 34.62N 116.25W 6.0 2.8MGN C* 34 mi. N of Joshua
99/10/19 20:11:43 34.88N 116.15W 0.5 3.6ML C* 27 mi. S of Baker
----------------------------------------------
<> Last update was on 19-OCT-1999 20:15 gmt
I would like to extract last line before the "--------------------------
--------------------". Since all lines come in a fixed width, it does
not sound like a complicated task.
Thanks in advance,
Eddie.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Oct 1999 16:46:14 -0500
From: Art Haas <arthur.haas@westgeo.com>
Subject: Re: Trim text
Message-Id: <lremer3ty1.fsf@yoda.wg.waii.com>
sushi38@my-deja.com writes:
> I do not have much experience with perl, but from what I have seem this
> must be pretty easy to accomplish. In a text file, I would like to trim
> n characters that come before a certain string. For example:
>
> 99/10/19 19:38:06 33.11N 116.51W 13.3 2.2MGN C* 6 mi. ENE of
> 99/10/19 19:50:44 34.62N 116.25W 6.0 2.8MGN C* 34 mi. N of Joshua
> 99/10/19 20:11:43 34.88N 116.15W 0.5 3.6ML C* 27 mi. S of Baker
> ----------------------------------------------
> <> Last update was on 19-OCT-1999 20:15 gmt
>
> I would like to extract last line before the "--------------------------
> --------------------". Since all lines come in a fixed width, it does
> not sound like a complicated task.
>
Here's one way to do it ...
% cat hack.pl
#!/usr/local/bin/perl
use strict;
my $input = './datafile';
open(INPUT,"<$input") || die "Can't open '$input'! $!\n";
my $line = <INPUT>;
my $nextline = <INPUT>;
until($nextline =~ /^\-/) {
$line = $nextline;
last if (eof(INPUT));
$nextline = <INPUT>;
}
close(INPUT);
print $line;
% cat ./datafile
99/10/19 19:38:06 33.11N 116.51W 13.3 2.2MGN C* 6 mi. ENE of
99/10/19 19:50:44 34.62N 116.25W 6.0 2.8MGN C* 34 mi. N of Joshua
99/10/19 20:11:43 34.88N 116.15W 0.5 3.6ML C* 27 mi. S of Baker
----------------------------------------------
<> Last update was on 19-OCT-1999 20:15 gmt
produces ....
% perl hack.pl
99/10/19 20:11:43 34.88N 116.15W 0.5 3.6ML C* 27 mi. S of Baker
%
Modify as needed ...
--
###############################
# Art Haas
# (713) 689-2417
###############################
------------------------------
Date: Tue, 19 Oct 1999 23:12:03 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Trim text
Message-Id: <s0pum34nr0166@corp.supernews.com>
sushi38@my-deja.com wrote:
: I do not have much experience with perl, but from what I have seem this
: must be pretty easy to accomplish. In a text file, I would like to trim
: n characters that come before a certain string. For example:
:
: 99/10/19 19:38:06 33.11N 116.51W 13.3 2.2MGN C* 6 mi. ENE of
: 99/10/19 19:50:44 34.62N 116.25W 6.0 2.8MGN C* 34 mi. N of Joshua
: 99/10/19 20:11:43 34.88N 116.15W 0.5 3.6ML C* 27 mi. S of Baker
: ----------------------------------------------
: <> Last update was on 19-OCT-1999 20:15 gmt
:
: I would like to extract last line before the "--------------------------
: --------------------". Since all lines come in a fixed width, it does
: not sound like a complicated task.
Even without the fixed line width, it's pretty trivial:
#!/usr/bin/perl -w
# lastdash - get the last line in a file before the first row of dashes.
# Reads stdin or @ARGV, writes stdout.
# Craig Berry (19991019)
use strict;
my $file = do { local $/; <>; };
my $dash = '-' x 40;
my ($last) = $file =~ m/^(.*)\n$dash/m;
print "$last\n";
__END__
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "They do not preach that their God will rouse them
a little before the nuts work loose." - Kipling
------------------------------
Date: Tue, 19 Oct 1999 19:57:13 -0400
From: "Dutch McElvy" <dutch@mindspring.com>
Subject: Trimming down file names for all files in dir
Message-Id: <7uj021$752$1@nntp2.atl.mindspring.net>
I would like to change the names of all files in a directory by extracting
only a portion of the filename of each of these files.
Each file has the same naming convention and character count but the actual
file names are unknown.
What would be the most efficient way to do this using glob or re in a perl
script?
example file: /(.....)(...)(......)(....)/
Would like to extract for example $2 and $4 but do this for each file in the
directory.
Thanks for any help, emails are appreciated.
Dutch
------------------------------
Date: 19 Oct 1999 23:19:20 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Unix command =?iso-8859-1?Q?=B4tree=B4?= in Perl?
Message-Id: <slrn80pv3o.69r.sholden@pgrad.cs.usyd.edu.au>
On Tue, 19 Oct 1999 14:41:51 GMT, Jeff Boes <jboes@qtm.net> wrote:
>
>One wonders about such assignments in the world today where anything
>simple is probably available for download from a web page somewhere...
>I taught programming classes at a college for a year (almost 20 years
>ago!), when such plagiarism wasn't really possible. I dunno what I'd do
>today.
From my teaching contact with comp. sci. students, the students who
can't get the simple problems out for themselves, also aren't able to
type the assignment question into altavista, or post to a newsgroup
without getting flamed to death.
So it works itself out i the end.
--
Sam
So I did some research. On the Web, of course. Big mistake...
--Larry Wall
------------------------------
Date: Tue, 19 Oct 1999 21:52:08 GMT
From: princyraj@my-deja.com
Subject: Re: Using SQL stored procedure in Perl
Message-Id: <7uip63$r$1@nnrp1.deja.com>
Hi ,
Take a look at the following piece of code...i think this will help
you out...
------------------------begin of code---------------------------------
my($cntr)=0; #This is the input parameter for my procedure
my($res)=''; #This is the output from my procedure
my($dbh) = DBI->connect($dsname, $dbuser, $dbpasswd);
my ($sql_stmt) = "begin gimmedateback_procedure(:1,:2); end;";
my ($csr) = $dbh->prepare($sql_stmt);
$csr->bind_param(1, $cntr);
$csr->bind_param_inout(2, \$res,10);
my $status = $csr->execute();
------------------------end of code-----------------------------------
P.S:- Please trap the errors.....in the above code
Rajesh
"The fact is, your brains are built to do Perl programming
--Larry Wall"
In article <7ui4of$ggf$1@nnrp1.deja.com>,
gqc2017@my-deja.com wrote:
> Hi, I have SQL stored procedure called "getinfo" with a SQL statement
> "select id, name from customer". Now how do I write the perl script
to
> use this stored procedure and display the result to the browser by
using
> DBConnect(), DBDoSQL() and other functions?
>
> Thank you!!!!!
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Oct 1999 08:18:57 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: what is SHTML ?
Message-Id: <MPG.12762bbb27b835de98a0bc@nntp.hpl.hp.com>
In article <slrn80o352.e3k.abigail@alexandra.delanet.com> on 19 Oct 1999
01:16:24 -0500, Abigail <abigail@delanet.com> says...
> Ally Kwon (ewha95@shinbiro.com) wrote on MMCCXL September MCMXCIII in
> <URL:news:380BF886.71538C91@shinbiro.com>:
> ~~ i know what HTML is, but what is SHTML ?
> ~~ how is it different from HTML ?
>
> A lot. It has nothing at all to do with HTML. SHTML stands for
>
> Standford High Throwing Midget League.
>
> Not to be confused with SFTML, the
>
> Standford Far Throwing Midget League.
I think you mean 'Stanfurd'.
GO (University of California Golden) BEARS!!!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 1122
**************************************
