[24579] in Perl-Users-Digest
Perl-Users Digest, Issue: 6755 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jul 1 14:05:48 2004
Date: Thu, 1 Jul 2004 11:05:06 -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, 1 Jul 2004 Volume: 10 Number: 6755
Today's topics:
Re: distinguish $! vaules (Anno Siegel)
Newbie: How to I extract word (Mav)
Re: Newbie: How to I extract word <geedotmuth@castcom.net>
remove carriage returns <norfernuman@yahoo.com>
Re: remove carriage returns <geedotmuth@castcom.net>
Re: remove carriage returns <norfernuman@yahoo.com>
Re: Request for comments on a JPEG metadata Perl module (GreenLight)
Re: Request for comments on a JPEG metadata Perl module <josef.moellers@fujitsu-siemens.com>
Re: Request for comments on a JPEG metadata Perl module <gisle@ActiveState.com>
Re: split crazy <hw84@spudex.emutower.ru>
test <tobias@familie-glasow.de>
Re: test <1usa@llenroc.ude>
Re: test <tobias@familie-glasow.de>
Re: test <1usa@llenroc.ude>
Re: Totally stuck <bigal187.invalid@adexec.com>
Re: Totally stuck <mritty@gmail.com>
Re: Totally stuck <mritty@gmail.com>
Re: Why can't I upload file in my this CGI script? <noreply@gunnar.cc>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Jul 2004 10:48:55 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: distinguish $! vaules
Message-Id: <cc0q6n$1pg$1@mamenchi.zrz.TU-Berlin.DE>
Peter Michael <dog@dog.dog> wrote in comp.lang.perl.misc:
> Hi,
>
> what is currently the preferred way to distinguish between different
> values of $! ? I suppose that %! was created to this end (sample code?)
> but should I use Switch(3) instead today?
>
> use Errno qw(:POSIX);
> use Switch;
>
> open my $fh, "file" or do
> { switch($!)
> { case ENOENT { warn "you should first create the file\n"; }
> case EACCES { warn "you are not allowed to see this\n"; }
> else { warn "some other error...\n"; }
> }
> };
These are really two questions. One is how to get at the official
name of an error. Here the only answer is "use Errno". The error
numbers (the numeric side of $!) and the error texts (the string side
of $!) are can vary from system to system.
The other question is how to branch on conditions (whether these are
error conditions ore something else). The Switch module can be used
for that, but is not really necessary. There are many other branching
methods in Perl. The program snippet above could also be written:
use Errno qw( :POSIX);
my %msg = (
ENOENT() => "you should first create the file\n",
EACCES() => "you are not allowed to see this\n",
default => "some other error...\n",
);
my $file = 'gibsnich/wirdnix';
open my $fh, $file or warn $msg{ $! + 0} || $msg{ default};
Anno
------------------------------
Date: 1 Jul 2004 10:31:15 -0700
From: mluvw47@yahoo.com (Mav)
Subject: Newbie: How to I extract word
Message-Id: <dfaafecd.0407010931.c6d06db@posting.google.com>
Hi, there
I got string like:
$string= "------ Build started: Project: Myproject, Config: Debug ABC
------";
I would like print out only anything in between "Project:" to ",", in
this case it is "Myproject" in perl.
Any idea?
Thanks,
M
------------------------------
Date: Thu, 01 Jul 2004 17:50:39 GMT
From: GM <geedotmuth@castcom.net>
Subject: Re: Newbie: How to I extract word
Message-Id: <P9YEc.8622$7t3.5242@attbi_s51>
Mav wrote:
> Hi, there
>
> I got string like:
> $string= "------ Build started: Project: Myproject, Config: Debug ABC
> ------";
>
> I would like print out only anything in between "Project:" to ",", in
> this case it is "Myproject" in perl.
>
> Any idea?
>
> Thanks,
> M
The following assumes you have no whitespace in your project names:
my $project = $string =~ /Project: (\S+),/;
--
gee DOT em ewe tee aitch AT comcast.net
------------------------------
Date: Thu, 01 Jul 2004 17:30:04 GMT
From: norfernuman <norfernuman@yahoo.com>
Subject: remove carriage returns
Message-Id: <wSXEc.82398$BP.24934@newssvr29.news.prodigy.com>
I am trying to remove carriage returns ( and more ) from each element of an array before
using them to create a record for a text file. Somehow I sill keep missing
one once in a while and a carriage return occurs in the middle of an order record.
Here is what I'm doing now.
-------------
open(FILE, ">$dump_file") or die("Couldn't open $dump_file for writing: $!");
while (@ary = $sth->fetchrow_array ()) {
for (@ary) {
s/\t+//g;
s/\r+|\n+//g;
}
print FILE (join ("\t", @ary), "\r\n");
}
close (FILE);
----------------
Thanks,
- NN
------------------------------
Date: Thu, 01 Jul 2004 17:48:26 GMT
From: GM <geedotmuth@castcom.net>
Subject: Re: remove carriage returns
Message-Id: <K7YEc.8614$7t3.7989@attbi_s51>
norfernuman wrote:
> I am trying to remove carriage returns ( and more ) from each element of
> an array before
> using them to create a record for a text file. Somehow I sill keep missing
> one once in a while and a carriage return occurs in the middle of an
> order record.
>
> Here is what I'm doing now.
>
> -------------
> open(FILE, ">$dump_file") or die("Couldn't open $dump_file for writing:
> $!");
> while (@ary = $sth->fetchrow_array ()) {
> for (@ary) {
> s/\t+//g;
> s/\r+|\n+//g;
> }
> print FILE (join ("\t", @ary), "\r\n");
> }
> close (FILE);
> ----------------
>
> Thanks,
>
> - NN
take a look at:
perldoc -f chomp
--
gee DOT em ewe tee aitch AT comcast.net
------------------------------
Date: Thu, 01 Jul 2004 17:58:54 GMT
From: norfernuman <norfernuman@yahoo.com>
Subject: Re: remove carriage returns
Message-Id: <yhYEc.5127$oQ.1626@newssvr25.news.prodigy.com>
GM wrote:
> norfernuman wrote:
>
>> I am trying to remove carriage returns ( and more ) from each element
>> of an array before
>> using them to create a record for a text file. Somehow I sill keep
>> missing
>> one once in a while and a carriage return occurs in the middle of an
>> order record.
>>
>> Here is what I'm doing now.
>>
>> -------------
>> open(FILE, ">$dump_file") or die("Couldn't open $dump_file for
>> writing: $!");
>> while (@ary = $sth->fetchrow_array ()) {
>> for (@ary) {
>> s/\t+//g;
>> s/\r+|\n+//g;
>> }
>> print FILE (join ("\t", @ary), "\r\n");
>> }
>> close (FILE);
>> ----------------
>>
>> Thanks,
>>
>> - NN
>
>
> take a look at:
>
> perldoc -f chomp
>
>
So like an idiot, I should have just chomped it - arrgg ;-)
Thanks
------------------------------
Date: 1 Jul 2004 06:34:25 -0700
From: google@milbaugh.com (GreenLight)
Subject: Re: Request for comments on a JPEG metadata Perl module
Message-Id: <c4b60ce1.0407010534.72248bfd@posting.google.com>
Stefano Bettelli <stefano_bettelli@yahoo.fr> wrote in message news:<pan.2004.06.26.17.57.26.885135@yahoo.fr>...
> Hi,
>
> I got recently interested in the possibility of designing a Perl
> library for reading and modifying JPEG image metadata (with Exif
> info, IPTC info, comments, thumbnails and so on). This kind of
> additional data stored in the image itself is very useful for
> organising digital photo collections. For various reasons, the
> existing Perl libraries and programs do not fully satisfy me,
> so I decided to enter the arena and write a Perl module (this is
> also a good way to learn the language better ...).
I have been wanting to create a catalog of my photos for quite some
time. I have thousands of photos that I have taken over the past five
years, and it looks like your module could help me quite a bit.
> 4) Do you have any idea on how it could be extended? Whether
> there are interesting functionalities I did not think about?
I guess that I should read the information regarding the JPEG format
to get the answer, but maybe you know this: would it be possible to
add segments of information to the file that were of my own design? I
would like to add some flags to each photo that would show that I have
completed cataloging it.
I used you module to parse a file from my camera (Casio QV-2000UX).
Here is part of the info that was returned:
********** APP1 --> IFD0 ********** (11 records)
[ Make]<0x010f> = [ ASCII] "CASIO\00"
[ Model]<0x0110> = [ ASCII] "QV-2000UX\00"
[ Orientation]<0x0112> = [ SHORT] 1
[ XResolution]<0x011a> = [ RATIONAL] 72/1
[ YResolution]<0x011b> = [ RATIONAL] 72/1
[ ResolutionUnit]<0x0128> = [ SHORT] 2
[ Software]<0x0131> = [ ASCII] "99.09.07.11.08\00
\00\00\00\00\00\00\00\00"
[ DateTime]<0x0132> = [ ASCII] "2001:03:07
13:53:27\00"
[ YCbCrPositioning]<0x0213> = [ SHORT] 1
[ ExifOffset]<0x8769> = [ LONG] 210
[ SubIFD]<......> = [REFERENCE] --> 19692dc
********** APP1 --> IFD0 --> SubIFD ********** (21 records)
[ ExposureTime]<0x829a> = [ RATIONAL]
10000/653167
[ FNumber]<0x829d> = [ RATIONAL] 20/10
[ ExposureProgram]<0x8822> = [ SHORT] 2
[ ExifVersion]<0x9000> = [ UNDEF] 30 32 31 30
[ DateTimeOriginal]<0x9003> = [ ASCII] "2001:03:07
13:53:27\00"
[ DateTimeDigitized]<0x9004> = [ ASCII] "2001:03:07
13:53:27\00"
[ ComponentsConfiguration]<0x9101> = [ UNDEF] 01 02 03 00
[ CompressedBitsPerPixel]<0x9102> = [ RATIONAL]
2048000/480000
[ ExposureBiasValue]<0x9204> = [SRATIONAL] 0/3
[ MaxApertureValue]<0x9205> = [ RATIONAL] 20/10
[ MeteringMode]<0x9207> = [ SHORT] 5
[ Flash]<0x9209> = [ SHORT] 1
[ FocalLength]<0x920a> = [ RATIONAL]
126865/10000
[ MakerNote]<0x927c> = [ UNDEF] 00 14 00 01
00 03 00 00 ... (238 more values)
[ FlashPixVersion]<0xa000> = [ UNDEF] 30 31 30 30
[ ColorSpace]<0xa001> = [ SHORT] 1
[ PixelXDimension]<0xa002> = [ LONG] 800
[ PixelYDimension]<0xa003> = [ LONG] 600
[ InteroperabilityOffset]<0xa005> = [ LONG] 790
[ FileSource]<0xa300> = [ UNDEF] 03
[ Interop]<......> = [REFERENCE] --> 196a728
This is just what I need: the date & time of the photo, etc. I can use
this info to stick a record in a database that holds basic info & the
filesystem location of the photo. I would like to be able to set some
kind of flag in the file, then, so that when I did a subsequent sweep
of the disk for image files, I could easily skip photos that had
already been processed.
------------------------------
Date: Thu, 01 Jul 2004 16:22:32 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Request for comments on a JPEG metadata Perl module
Message-Id: <cc16et$oc5$1@nntp.fujitsu-siemens.com>
GreenLight wrote:
> Stefano Bettelli <stefano_bettelli@yahoo.fr> wrote in message news:<pan=
=2E2004.06.26.17.57.26.885135@yahoo.fr>...
> I guess that I should read the information regarding the JPEG format
> to get the answer, but maybe you know this: would it be possible to
> add segments of information to the file that were of my own design? I
> would like to add some flags to each photo that would show that I have
> completed cataloging it.
It depends. Obviously the standard is designed such that any application =
can skip those tags that it doesn't know. However, you cannot guarantee=20
that all software is written properly.
> I used you module to parse a file from my camera (Casio QV-2000UX).
> Here is part of the info that was returned:
>=20
[ ... ]
>=20
> This is just what I need: the date & time of the photo, etc. I can use
> this info to stick a record in a database that holds basic info & the
> filesystem location of the photo. I would like to be able to set some
> kind of flag in the file, then, so that when I did a subsequent sweep
> of the disk for image files, I could easily skip photos that had
> already been processed.
I, too, did some work on this subject.
I have a Kodac DC240 which stores the images in EXIF format.
I store all my photos in the "Exif" directory.
Also, there exist "Photo", "Info" and "Thumb" directories.
When I scan the photos, I scan the Exif directory (File::Find), then, if =
no entry exists in Photo, I extract the large image, if no entry exists=20
in Info, I extract the information, if no entry exists in Thumb, I=20
extract the thumbnail.
Then I have .alb files which describe what photos belong together and I=20
create html pages with the thumbnails that have links to the large images=
=2E
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 01 Jul 2004 09:18:44 -0700
From: Gisle Aas <gisle@ActiveState.com>
Subject: Re: Request for comments on a JPEG metadata Perl module
Message-Id: <m3zn6jem57.fsf@eik.g.aas.no>
Stefano Bettelli <stefano_bettelli@yahoo.fr> writes:
> I got recently interested in the possibility of designing a Perl
> library for reading and modifying JPEG image metadata (with Exif
> info, IPTC info, comments, thumbnails and so on). This kind of
> additional data stored in the image itself is very useful for
> organising digital photo collections. For various reasons, the
> existing Perl libraries and programs do not fully satisfy me,
> so I decided to enter the arena and write a Perl module (this is
> also a good way to learn the language better ...).
Could you name what existing Perl libraries you have looked at and why
they don't satisfy you?
I'm the author of Image::Info which seems to already do a lot of the
same as you try to do. One difference is that I don't plan to make
Image::Info able to update the meta info. I think that would
complicate the module too much and I don't have that need personally.
--
Gisle Aas
------------------------------
Date: Thu, 01 Jul 2004 17:50:18 GMT
From: "Hya J." <hw84@spudex.emutower.ru>
Subject: Re: split crazy
Message-Id: <40E44F51.297CAA8@spudex.emutower.ru>
Sam Holden wrote:
>
> On Thu, 01 Jul 2004 04:22:22 GMT, Jeff Thies <nospam@nospam.net> wrote:
> > I have this:
> >
> > my $s='xxxxxxxx';
> >
> > my @split= /x/,$s;
>
> I assume you mean:
>
> my @s = split /x/, $s;
>
> >
> > I thought I would get: ('','','','','','','')
> >
> > But I get: ()
> >
> > How do I get what I intended? I've tried a lot of things that don't work!
>
> But you didn't try reading the documentation?
>
> Surely that should be the first thing you try when something doesn't work
> as you expect.
>
> perldoc -f split:
>
> split /PATTERN/,EXPR,LIMIT
> split /PATTERN/,EXPR
> split /PATTERN/
> split Splits the string EXPR into a list of strings and returns that
> list. By default, empty leading fields are preserved, and empty
> trailing ones are deleted.
>
> Since all your fields are empty, that deletion of empty trailing fields
> would delete all the fields.
>
> Note, the phrase "By default", usually that indicates you can change the
> behaviour, so reading further we find:
>
> If LIMIT is unspecified or zero, trailing null fields are
> stripped (which potential users of "pop" would do well to remember).
> If LIMIT is negative, it is treated as if an arbitrarily large LIMIT
> had been specified.
>
> And there a mere three paragraphs further down is the answer.
This is just assine. Yeah, ok, give a nic reference to the docs, but why
cut the poor guy off at the last second. Just a way to start a fight or
a lead to a flame war.
What the hell is so freakin hard to say all he need do is split(/x/, $s,
-1); Would it take too much of your prcesious time? Well, actually not
as much time as it to write what you wrote. Interesting logic...
------------------------------
Date: Thu, 1 Jul 2004 16:13:11 +0200
From: "Tobias Glasow" <tobias@familie-glasow.de>
Subject: test
Message-Id: <cc1646$c97$1@klee.magnet.ch>
test
------------------------------
Date: 1 Jul 2004 14:29:49 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude>
Subject: Re: test
Message-Id: <Xns95196ACA2AE62asu1cornelledu@132.236.56.8>
"Tobias Glasow" <tobias@familie-glasow.de> wrote in news:cc1646$c97$1
@klee.magnet.ch:
> test
Your test has failed. Test messages should only be posted to groups
specifically set up for that purpose.
--
A. Sinan Unur
1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: Thu, 1 Jul 2004 16:38:25 +0200
From: "Tobias Glasow" <tobias@familie-glasow.de>
Subject: Re: test
Message-Id: <cc17jp$jeh$1@klee.magnet.ch>
sorry for that. i choose the wrong one. will never happen again :))
"A. Sinan Unur" <1usa@llenroc.ude> schrieb im Newsbeitrag
news:Xns95196ACA2AE62asu1cornelledu@132.236.56.8...
> "Tobias Glasow" <tobias@familie-glasow.de> wrote in news:cc1646$c97$1
> @klee.magnet.ch:
>
> > test
>
> Your test has failed. Test messages should only be posted to groups
> specifically set up for that purpose.
>
> --
> A. Sinan Unur
> 1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: 1 Jul 2004 15:18:41 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude>
Subject: Re: test
Message-Id: <Xns951973130E4E3asu1cornelledu@132.236.56.8>
"Tobias Glasow" <tobias@familie-glasow.de> wrote in news:cc17jp$jeh$1
@klee.magnet.ch:
[ please do not top-post ]
> "A. Sinan Unur" <1usa@llenroc.ude> schrieb im Newsbeitrag
> news:Xns95196ACA2AE62asu1cornelledu@132.236.56.8...
>> "Tobias Glasow" <tobias@familie-glasow.de> wrote in news:cc1646$c97$1
>> @klee.magnet.ch:
>>
>> > test
>>
>> Your test has failed. Test messages should only be posted to groups
>> specifically set up for that purpose.
>
> sorry for that. i choose the wrong one. will never happen again :))
>
Please take this opportunity to review:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
--
A. Sinan Unur
1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: Thu, 1 Jul 2004 10:40:16 -0700
From: "187" <bigal187.invalid@adexec.com>
Subject: Re: Totally stuck
Message-Id: <2kj0g7F2vo7uU1@uni-berlin.de>
Sam Holden wrote:
> On Wed, 30 Jun 2004 22:31:53 -0700, bigal187.invalid@adexec.com wrote:
>> Michele Dondi wrote:
>>> On 29 Jun 2004 00:32:36 -0700, darnold@northcoast.com (David Arnold)
>>> wrote:
>>
>>> I was under the impression that your program was overly complex for
>>> the task it was aimed at. OTOH I was too lazy to try to understand
>>> *exactly* what you meant to do, so from your other post I grabbed
>>> the "working version" and I tried it on your sample. Now, if I'm not
>>> mistaken, the following should serve your needs and is considerably
>>> simpler:
>>>
>>> #!/usr/bin/perl -ln
>>>
>>> print, next unless /\\backtomargin/;
>>
>> I dont udnerstand whats going on here. I thought 'next' can only be
>> used in loops, but here you're tryign to print something? Very
>> confusing, could you please explain what exactly is happening here?
>
> perldoc perlrun
>
> And see the description of what the -n command line option that
> is being passed to perl (via the -ln in the #! line) does.
This still deosn't explain why there is a print statement there. Seems
useles there. Can someone please clearly explain this.
------------------------------
Date: Thu, 1 Jul 2004 13:52:56 -0400
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Totally stuck
Message-Id: <20040701134723.Y16568@barbara.cs.rpi.edu>
On Thu, 1 Jul 2004, 187 wrote:
> Sam Holden wrote:
> > On Wed, 30 Jun 2004 22:31:53 -0700, bigal187.invalid@adexec.com wrote:
> >> Michele Dondi wrote:
> >>> On 29 Jun 2004 00:32:36 -0700, darnold@northcoast.com (David Arnold)
> >>> wrote:
> >>
> >>> #!/usr/bin/perl -ln
> >>>
> >>> print, next unless /\\backtomargin/;
> >>
> >> I dont udnerstand whats going on here. I thought 'next' can only be
> >> used in loops, but here you're tryign to print something? Very
> >> confusing, could you please explain what exactly is happening here?
> >
> > perldoc perlrun
> >
> > And see the description of what the -n command line option that
> > is being passed to perl (via the -ln in the #! line) does.
>
> This still deosn't explain why there is a print statement there. Seems
> useles there. Can someone please clearly explain this.
From the docs:
-n causes Perl to assume the following loop around your
program, which makes it iterate over filename arguments
somewhat like sed -n or awk:
LINE:
while (<>) {
... # your program goes here
}
-l[octnum]
enables automatic line-ending processing. It has two
separate effects. First, it automatically chomps $/
(the input record separator) when used with -n or -p.
Second, it assigns "$\" (the output record separator)
to have the value of octnum so that any print
statements will have that separator added back on. If
octnum is omitted, sets "$\" to the current value of
$/.
So that program is actually:
#/usr/bin/perl
$\ = $/; #because of -l
while (<>) { #because of -n
chomp; #because of -l
print; #explicitly in code
next unless /\\backtomargin/;
}
__END__
The print in the original code is printing the value of $_, which comes
from reading from <>.
Paul Lalli
------------------------------
Date: Thu, 1 Jul 2004 14:02:46 -0400
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Totally stuck
Message-Id: <20040701135704.D16568@barbara.cs.rpi.edu>
On Thu, 1 Jul 2004, Paul Lalli wrote:
> So that program is actually:
>
> #/usr/bin/perl
>
> $\ = $/; #because of -l
> while (<>) { #because of -n
> chomp; #because of -l
> print; #explicitly in code
> next unless /\\backtomargin/;
> }
> __END__
>
> The print in the original code is printing the value of $_, which comes
> from reading from <>.
>
> Paul Lalli
>
Whoops. That's a rather significant typo. The last two lines of the
while loop should be reversed. Wouldn't be much use otherwise.
#!/usr/bin/perl
$\ = $/; #because of -l
while (<>) { #because of -n
chomp; #because of -l
next unless /\\backtomargin/;
print; #explicitly in code
}
__END__
This actually confuses me. the original code was (effectively):
perl -ln -e 'print, next unless /\\backtomargin/;'
From what I can tell, it looks like the statement containing the print and
next is a comma-separated list being evaluated in void context. In scalar
context, the comma operator evaluates each of its operands from left to
right, discarding the return values of all but the last. Using that
logic, shouldn't the print be evaluated before the next?
Now I've run this myself and verified that it does work as desired. I'm
just confused as to *why* it runs as desired. Does the comma operator do
something different in void context? (quickly checking perldoc perlop --
nope, nothing there).
If someone can clarify for me, I'd appreciate it.
Thanks,
Paul Lalli
------------------------------
Date: Thu, 01 Jul 2004 12:46:32 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Why can't I upload file in my this CGI script?
Message-Id: <2ki8reF2itkmU1@uni-berlin.de>
Koms Bomb wrote:
>
> 'screenshot' is the field name of fileupload, in html,
> <td><input type="file" name="screenshot"
> enctype='multipart/form-data'></td>.
enctype='multipart/form-data'
shall be in the form tag.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
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 6755
***************************************
