[28100] in Perl-Users-Digest
Perl-Users Digest, Issue: 9464 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 13 18:05:45 2006
Date: Thu, 13 Jul 2006 15:05:04 -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 Thu, 13 Jul 2006 Volume: 10 Number: 9464
Today's topics:
Re: Bad protocol 'tcp' <garrett.hennessey@gmail.com>
Re: Bad protocol 'tcp' <garrett.hennessey@gmail.com>
Re: Bad protocol 'tcp' <1usa@llenroc.ude.invalid>
Cool Ebooks Site bigskipster@gmail.com
how to find the path of the file <Amaninder.Saini@gmail.com>
Re: how to find the path of the file <benmorrow@tiscali.co.uk>
Re: RegEx and AND <xicheng@gmail.com>
Re: RegEx and AND anno4000@radom.zrz.tu-berlin.de
some help again with if statement <starfrit@gmail.com>
Re: some help again with if statement <mritty@gmail.com>
Re: some help again with if statement <starfrit@gmail.com>
Traverse a directory <weberw@adelphia.net>
Re: Traverse a directory <mritty@gmail.com>
Re: Traverse a directory <noreply@gunnar.cc>
Re: Traverse a directory <weberw@adelphia.net>
Re: Traverse a directory <mritty@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Jul 2006 13:06:29 -0700
From: "Garrett" <garrett.hennessey@gmail.com>
Subject: Re: Bad protocol 'tcp'
Message-Id: <1152821189.225645.121050@m79g2000cwm.googlegroups.com>
Thanks you so much to everyone. I have solved the problem. I believe my
computer may have at one time been effected by a virus. The registry
key:
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
value had been corrupted. The value should be
%SystemRoot%\System32\drivers\etc but it was %nsdb1%, and this
environment variable didn't exist. Thanks again to everyone for your
help, and Mark, you were right, it was a windows problem!
Mark Clements wrote:
> Garrett wrote:
> > Mark -
> >
> > You're example code (assuming I change the path to c:\winnt\... from
> > c:\windows\...) works fine. It prints nothing (as it should).
> OK.
>
>
> > I don't see how this a windows problem. The other programming languages
> > I use (c++, java, etc) don't have this problem. And I can use the
> > network with email, web, ftp, telnet, ssh, nfs, etc fine with other
> > programs. Perl is the only one who complains.
> >
> What does a small C program calling getprotobyname give you?
> (NB: my C is pretty weak. Do not use this as an example of how to write
> C. Have probably made a host of security and stylistic errors).
>
>
> #include <stdio.h>
> #include <netdb.h>
>
> #define MAXPROTOLENGTH 82
>
> int main(int argc, char* argv[]){
> char* protocolName;
> struct protoent* protocol;
>
> protocolName =(char*)malloc(MAXPROTOLENGTH);
>
> if(argc != 2){
> printf("Usage: %s protocol\n",argv[0]);
> return 1;
> }
> sscanf(argv[1],"%s",protocolName);
>
> printf("lookup protocol: %s\n",protocolName);
>
> protocol = getprotobyname( protocolName );
>
> if(protocol == NULL ){
> printf("could not find protocol\n");
> }else{
> printf("name: %s number: %d\n",protocol->p_name,
> protocol->p_proto);
> }
>
> return 0;
> }
>
> Mark
------------------------------
Date: 13 Jul 2006 13:12:27 -0700
From: "Garrett" <garrett.hennessey@gmail.com>
Subject: Re: Bad protocol 'tcp'
Message-Id: <1152821547.716797.149460@m79g2000cwm.googlegroups.com>
Just an update for future people with this problem: the registry
name/value I mentioned before should be "DataBasePath" with value
"%SystemRoot%\system32\drivers\etc". Thanks again.
Garrett Hennessey
Garrett wrote:
> Thanks you so much to everyone. I have solved the problem. I believe my
> computer may have at one time been effected by a virus. The registry
> key:
> "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
> value had been corrupted. The value should be
> %SystemRoot%\System32\drivers\etc but it was %nsdb1%, and this
> environment variable didn't exist. Thanks again to everyone for your
> help, and Mark, you were right, it was a windows problem!
>
> Mark Clements wrote:
> > Garrett wrote:
> > > Mark -
> > >
> > > You're example code (assuming I change the path to c:\winnt\... from
> > > c:\windows\...) works fine. It prints nothing (as it should).
> > OK.
> >
> >
> > > I don't see how this a windows problem. The other programming languages
> > > I use (c++, java, etc) don't have this problem. And I can use the
> > > network with email, web, ftp, telnet, ssh, nfs, etc fine with other
> > > programs. Perl is the only one who complains.
> > >
> > What does a small C program calling getprotobyname give you?
> > (NB: my C is pretty weak. Do not use this as an example of how to write
> > C. Have probably made a host of security and stylistic errors).
> >
> >
> > #include <stdio.h>
> > #include <netdb.h>
> >
> > #define MAXPROTOLENGTH 82
> >
> > int main(int argc, char* argv[]){
> > char* protocolName;
> > struct protoent* protocol;
> >
> > protocolName =(char*)malloc(MAXPROTOLENGTH);
> >
> > if(argc != 2){
> > printf("Usage: %s protocol\n",argv[0]);
> > return 1;
> > }
> > sscanf(argv[1],"%s",protocolName);
> >
> > printf("lookup protocol: %s\n",protocolName);
> >
> > protocol = getprotobyname( protocolName );
> >
> > if(protocol == NULL ){
> > printf("could not find protocol\n");
> > }else{
> > printf("name: %s number: %d\n",protocol->p_name,
> > protocol->p_proto);
> > }
> >
> > return 0;
> > }
> >
> > Mark
------------------------------
Date: Thu, 13 Jul 2006 20:19:52 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Bad protocol 'tcp'
Message-Id: <Xns97FFA639CA563asu1cornelledu@127.0.0.1>
Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr> wrote in
news:44b66a6e$0$851$ba4acef3@news.orange.fr:
> Garrett wrote:
>> Mark -
>>
>> You're example code (assuming I change the path to c:\winnt\... from
>> c:\windows\...) works fine. It prints nothing (as it should).
> OK.
...
> What does a small C program calling getprotobyname give you?
> (NB: my C is pretty weak. Do not use this as an example of how to
> write C. Have probably made a host of security and stylistic errors).
I know, this is not clc, but here is a slightly better version:
#include <stdio.h>
#include <stdlib.h>
#include <netdb.h>
int main(int argc, char* argv[]) {
struct protoent* protocol;
if(argc != 2) {
printf("Usage: %s protocol\n", argv[0]);
return EXIT_FAILURE;
}
printf("lookup protocol: %s\n", argv[1]);
protocol = getprotobyname( argv[1] );
if( protocol ) {
printf("Name: %s\tnumber: %d\n",
protocol->p_name, protocol->p_proto);
} else {
fprintf(stderr, "%s protocol not found\n", argv[1]);
return EXIT_FAILURE;
}
return 0;
}
D:\UseNet\clpmisc> getproto.exe tcp
lookup protocol: tcp
Name: tcp number: 6
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 13 Jul 2006 14:54:13 -0700
From: bigskipster@gmail.com
Subject: Cool Ebooks Site
Message-Id: <1152827653.560400.266200@75g2000cwc.googlegroups.com>
http://cooldogebooks.blogspot.com
Submit your comments because I need them!
Thank You.
Prentice Hall | Microsoft Press | Algorithics | Nolo Press & Law |
Energy Conversion | DNA Biology | Money Management | Stock Trading |
GNU Debugging | Online Unleashed | Origami | Object Recovery | TRS80
Radio Shack | McGraw Hill | Network Analysis | Business Management |
Asbestos Cancer & Mesthelioma | Web Marketing | Computer Mix #2 |
Oreilly & Java | Computer Security #2 | Oracle 9i & 10g | Apress |
Actual Tests Cisco & Others | Windows Server Os | Oreilly Ebooks Pdf
Chm | Home Improvement | TestKing | Political Ebooks | Network & Server
Routing | Wireless | Computer Mixes | Digital Design And Synthesis |
Mathematics | Chemistry | Neurology | Sybex | Recipes | New Riders |
Macromedia Press | MySql | Dreamweaver | Scrambled Mixes | Engineering
| FreeBSD | Internet Security | Software Books & Manuals | DaVinci Code
| VOIP | Syngress | Fluid Mechanics | Que Books | XML & Feed
Syndication | More Oreilly Ebooks | Mostly Oreilly Ebooks | Psychology
Texts & Ebooks | Magic & Hypnosis | Website Promotion Texts | Computer
Mix | Nonprofit And Charities | Magazines | PHP | Peotry Ebooks &
Manuals | Dictionaries | Unix | Game Programming | World History |
Microprocessor | Data Mining | Job Interview | Gaming Ebooks |
Miscellaneous MIxes | Bluetooth | Addison Wesley | Certification
Preparation | Cryptography Ebooks | PhotoShop | J2ME & J2EE Ebooks |
LDAP Ebooks | Operating Systems | Artificial Intelligence | For Dummies
Ebooks | Perl Ebooks | Compiler Construction | Guitar Ebooks & Manuals
| Java Ebooks | Python Ebooks | Linux Ebooks | Christian / Evangelism
Ebooks | Cisco Ebooks | Military Training Ebooks | Novels - Various
Authors | Self Help | 29 Childrens Animal Encyclopedias | Online
Marketing | Business Management | Non-IT Ebooks | Investing Ebooks |
C++ Ebooks | Medical | Report & Request | O'Reilly & Others | Book Of
The Month | User Agreement | Programming Mix | Martial Arts |
Rapidshare Mix |
------------------------------
Date: 13 Jul 2006 13:38:18 -0700
From: "Amaninder" <Amaninder.Saini@gmail.com>
Subject: how to find the path of the file
Message-Id: <1152823098.561155.200810@75g2000cwc.googlegroups.com>
Hi everyone
I have a perl file called abc.pl and when i run it i want it to print
the complete path of the folder in which it is located. For example,
if abc.pl is in c:\temp\xyz then i want to print "c:\temp\xyz" on the
screen when i run abc.pl. Does any one know how to do it?
Any help will be appreciated.
Regards
Amaninder Saini
------------------------------
Date: Thu, 13 Jul 2006 21:43:20 +0100
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: how to find the path of the file
Message-Id: <8snio3-fmg.ln1@osiris.mauzo.dyndns.org>
Quoth "Amaninder" <Amaninder.Saini@gmail.com>:
> Hi everyone
>
> I have a perl file called abc.pl and when i run it i want it to print
> the complete path of the folder in which it is located. For example,
> if abc.pl is in c:\temp\xyz then i want to print "c:\temp\xyz" on the
> screen when i run abc.pl. Does any one know how to do it?
>
> Any help will be appreciated.
See the FindBin module.
Ben
--
For far more marvellous is the truth than any artists of the past imagined!
Why do the poets of the present not speak of it? What men are poets who can
speak of Jupiter if he were like a man, but if he is an immense spinning
sphere of methane and ammonia must be silent?~Feynmann~benmorrow@tiscali.co.uk
------------------------------
Date: 13 Jul 2006 12:04:57 -0700
From: "Xicheng Jia" <xicheng@gmail.com>
Subject: Re: RegEx and AND
Message-Id: <1152817497.206178.34510@i42g2000cwa.googlegroups.com>
anno4000@radom.zrz.tu-berlin.de wrote:
> Xicheng Jia <xicheng@gmail.com> wrote in comp.lang.perl.misc:
> > tinu wrote:
> > > Hi All
> > >
> > > I need to do a simple RegEx expression for and AND. I dont know how to
> > > do this.
> > > I have the following string:
> > > "The tree is taller then the flower".
> > >
> > > I would like to search for "tree" AND "flower". How Do I do this?
> > >
> > > Thanks for your help
> >
> > if ($line =~ /^(?=.*tree)(?=.*flower)/) { ... }
>
> Why do you anchor the regex? It doesn't change what it matches.
>
> This is the one-regex solution the OP asked for, but in a practical
> program I'd always prefer two and-connected matches.
>
> $line =~ /tree/ and $line =~ /flower/;
>
> has been suggested. It is much easier to read and substantially
> faster too.
There are some minor differences, please check the book "Computer
Science & Perl Programming: Best of TPJ", which has one chapter to
compare the cons and pros of all proposed methods in this thread.
Xicheng
------------------------------
Date: 13 Jul 2006 21:22:31 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: RegEx and AND
Message-Id: <4hnrsnFgsnsU1@news.dfncis.de>
Xicheng Jia <xicheng@gmail.com> wrote in comp.lang.perl.misc:
> anno4000@radom.zrz.tu-berlin.de wrote:
> > Xicheng Jia <xicheng@gmail.com> wrote in comp.lang.perl.misc:
> > > tinu wrote:
> > > > Hi All
> > > >
> > > > I need to do a simple RegEx expression for and AND. I dont know how to
> > > > do this.
> > > > I have the following string:
> > > > "The tree is taller then the flower".
> > > >
> > > > I would like to search for "tree" AND "flower". How Do I do this?
> > > >
> > > > Thanks for your help
> > >
> > > if ($line =~ /^(?=.*tree)(?=.*flower)/) { ... }
> >
> > Why do you anchor the regex? It doesn't change what it matches.
> >
> > This is the one-regex solution the OP asked for, but in a practical
> > program I'd always prefer two and-connected matches.
> >
> > $line =~ /tree/ and $line =~ /flower/;
> >
> > has been suggested. It is much easier to read and substantially
> > faster too.
>
> There are some minor differences, please check the book "Computer
> Science & Perl Programming: Best of TPJ", which has one chapter to
> compare the cons and pros of all proposed methods in this thread.
Oh yeah, Jeffry Friedell at his compulsive best. I still maintain
that the two-regex solution is the standard one.
Anno
------------------------------
Date: 13 Jul 2006 14:18:04 -0700
From: "starfrit" <starfrit@gmail.com>
Subject: some help again with if statement
Message-Id: <1152825484.021143.326510@m73g2000cwd.googlegroups.com>
I need some help again converting an old script with a new structure
Before, I had this line with this IF
1. WASHINGTON, SVATOS 3 (EXELBY, JOHNSON), 03:52<BR>
if (m/^\d+.\s*(\w*.*)\,.\s*(\w*.*)\s+(\d+).\(.*\)\,.*/)
Now, the same line is written like this
1. Washington Capitals , Marek Svatos 3 (Garnet Exelby, Mike Johnson)
at 3:52<br />
I need Washington Capitals to be $1, Svatos to be $2 and 3 to be $3 and
the space after Capitals must not be in $1
Thanks
------------------------------
Date: 13 Jul 2006 14:27:57 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: some help again with if statement
Message-Id: <1152826077.622293.68350@35g2000cwc.googlegroups.com>
starfrit wrote:
> I need some help again converting an old script with a new structure
>
> Before, I had this line with this IF
> 1. WASHINGTON, SVATOS 3 (EXELBY, JOHNSON), 03:52<BR>
> if (m/^\d+.\s*(\w*.*)\,.\s*(\w*.*)\s+(\d+).\(.*\)\,.*/)
>
>
> Now, the same line is written like this
> 1. Washington Capitals , Marek Svatos 3 (Garnet Exelby, Mike Johnson)
> at 3:52<br />
>
>
> I need Washington Capitals to be $1, Svatos to be $2 and 3 to be $3 and
> the space after Capitals must not be in $1
You seem to have forgotten half of your post. You only posted the bit
about your requirement, but failed to include what you have tried so
far in an attempt to solve your own problem.
Surely, you're not simply asking people to do this for you, are you?
Paul Lalli
------------------------------
Date: 13 Jul 2006 14:47:24 -0700
From: "starfrit" <starfrit@gmail.com>
Subject: Re: some help again with if statement
Message-Id: <1152827244.881640.234240@i42g2000cwa.googlegroups.com>
No, that's not my intention, but i'm not by far an expert in Perl, I
can safely browse the code and now where I'm at though. Like I said,
I'm trying to adapt a script made for the community. I tried many
variations and I did not kept copy of my attemps. Other that that, I'm
not sure what you're asking for.
But juste to make sure, if i'm right
\d+. is for the 1.
\s* is for the first space
(\w*.*) is a Wildcard for WASHINGTON
\,. is the ,
\s* is another space
(\w*.*) is a wildcard for SVATOS
\s+ another space
(\d+).\(.*\)\,.* is for the rest of the line, which is irrelevant for
the output I want to make
------------------------------
Date: 13 Jul 2006 11:09:57 -0700
From: "weberw@adelphia.net" <weberw@adelphia.net>
Subject: Traverse a directory
Message-Id: <1152814197.176596.158500@m79g2000cwm.googlegroups.com>
I want to print out a listing of folders and their contents with
indentation. I don't want to print folder 3.
Example of output.
Folder 1
a.xls
b.xls
Folder 2
c.xls
d.xls
Here is my code. I want to keep the formatting above. How do you do
this as well as exclude folder 3?
#!C://Perl/bin/perl
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
#use strict;
use warnings;
use File::Find;
my $file_count = 0;
my $dir_count = 0;
$title = "Find Files";
print header,
start_html($title),
h1($title);
find ( {
wanted => \&wanted}, 'C:/Documents and
Settings/weberw/Desktop/test');
printf "\nThere are %d files in %d directories.\n",
$file_count,
$dir_count;
sub wanted {
if (-d) {
return unless /[^.]/;
print "Directory Name is $File::Find::name\n";
print " \n";
$dir_count++;
}
elsif (-f _) {
print "File name is $File::Find::name\n";
$file_count++;
}
}
end_hmtl;
------------------------------
Date: 13 Jul 2006 11:53:24 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Traverse a directory
Message-Id: <1152816803.917877.143160@m73g2000cwd.googlegroups.com>
weberw@adelphia.net wrote:
> I want to print out a listing of folders and their contents with
> indentation. I don't want to print folder 3.
>
> Example of output.
>
> Folder 1
> a.xls
> b.xls
> Folder 2
> c.xls
> d.xls
>
>
> Here is my code. I want to keep the formatting above. How do you do
> this as well as exclude folder 3?
Well, since this is a CGI script, why not just let the HTML formatting
happen for you, by using nested unordered lists? Then in your wanted
subroutine, if you have a directory, print the name followed by the
start of a new list. And after every subroutine, close the list.
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use CGI qw/:standard/;
print header;
print start_html('Traversal');
my %skip_dir = map { $_ => 1 } ('Folder 3');
print "<ul>\n";
find({ wanted=>\&wanted, postprocess => \&post}, q{.});
print "</ul>\n";
sub wanted {
if ( -d and !/^\.\.?$/ and !$skip_dir{$_}) {
print "<li>$_\n<ul>\n";
}
if ( -f ) {
print "<li>$_</li>\n";
}
}
sub post {
print "</ul>\n</li>\n" unless $File::Find::dir eq q{.} or
$skip_dir{$File::Find::dir};
}
__END__
Paul Lalli
------------------------------
Date: Thu, 13 Jul 2006 21:36:36 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Traverse a directory
Message-Id: <4hnlp7Ffi72U1@individual.net>
weberw@adelphia.net wrote:
> I want to print out a listing of folders and their contents ...
Please do not multi-post!
http://lipas.uwasa.fi/~ts/http/crospost.html
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 13 Jul 2006 14:18:55 -0700
From: "weberw@adelphia.net" <weberw@adelphia.net>
Subject: Re: Traverse a directory
Message-Id: <1152825535.159264.271060@h48g2000cwc.googlegroups.com>
Thanks Paul! Can you explain a few things? Also, can you explain this
line?
if ( -d and !/^\.\.?$/ and !$skip_dir{$_}) {
what does the q{.}); do?
Paul Lalli wrote:
> weberw@adelphia.net wrote:
> > I want to print out a listing of folders and their contents with
> > indentation. I don't want to print folder 3.
> >
> > Example of output.
> >
> > Folder 1
> > a.xls
> > b.xls
> > Folder 2
> > c.xls
> > d.xls
> >
> >
> > Here is my code. I want to keep the formatting above. How do you do
> > this as well as exclude folder 3?
>
> Well, since this is a CGI script, why not just let the HTML formatting
> happen for you, by using nested unordered lists? Then in your wanted
> subroutine, if you have a directory, print the name followed by the
> start of a new list. And after every subroutine, close the list.
> #!/usr/bin/perl
> use strict;
> use warnings;
> use File::Find;
> use CGI qw/:standard/;
> print header;
> print start_html('Traversal');
> my %skip_dir = map { $_ => 1 } ('Folder 3');
>
> print "<ul>\n";
> find({ wanted=>\&wanted, postprocess => \&post}, q{.});
> print "</ul>\n";
>
> sub wanted {
> if ( -d and !/^\.\.?$/ and !$skip_dir{$_}) {
> print "<li>$_\n<ul>\n";
> }
> if ( -f ) {
> print "<li>$_</li>\n";
> }
> }
>
> sub post {
> print "</ul>\n</li>\n" unless $File::Find::dir eq q{.} or
> $skip_dir{$File::Find::dir};
> }
> __END__
>
>
> Paul Lalli
------------------------------
Date: 13 Jul 2006 14:25:57 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Traverse a directory
Message-Id: <1152825957.844890.132360@i42g2000cwa.googlegroups.com>
weberw@adelphia.net wrote:
> Thanks Paul!
You're welcome. You can best show your appreciation by reading and
following the Posting Guidelines for this group. Specifically, please
do not top-post. Post your reply below the message you are replying
to, after trimming it leave only the relevant text.
> Can you explain a few things?
What few things, specifically, would you like explained? And have you
read the documentation for those things?
> Also, can you explain this line?
> if ( -d and !/^\.\.?$/ and !$skip_dir{$_}) {
-d is covered in `perldoc -f -d`. Regular expressions are covered in
`perldoc perlretut` (among others). Hashes are covered in `perldoc
perldata`.
This line says: "If $_ is a directory and if $_ is not either '.' or
'..' and if $_ does not have a true value inside the %skip_dir hash,
then ..."
> what does the q{.}); do?
the q, qq, qx, qr, and qw quoting operators are covered in `perldoc
perlop`
This is simply another way of writing a single-quoted string, such as
'.' When you use any of these "q" operators, you can choose any
non-alphanumeric character as your delimiter. Here I chose curly
braces. For very short strings, I will often use q{} or qq{} instead
of ' or ", as it can help increase readability (especially for the
empty string).
Paul Lalli
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 9464
***************************************
