[23373] in Perl-Users-Digest
Perl-Users Digest, Issue: 5592 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 30 14:06:24 2003
Date: Tue, 30 Sep 2003 11:05:08 -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 Tue, 30 Sep 2003 Volume: 10 Number: 5592
Today's topics:
Re: Converting a VB typdef to Win32::API::Struct <bart.lateur@pandora.be>
Downloading older versions of Perl (cfu20)
Help with RegEx (vector)
Re: How are spammers exploiting my wwwboard code? <syscjm@gwu.edu>
Re: LWP::Simple get() refined problem <bart.lateur@pandora.be>
newbie regxp question <hobbes@vkr.NOSPAM.dk>
Re: newbie regxp question <shondell@cis.ohio-state.edu>
Re: newbie regxp question <usenet@dwall.fastmail.fm>
Re: newbie regxp question <jurgenex@hotmail.com>
Re: newbie regxp question <hobbes@vkr.NOSPAM.dk>
Re: newbie regxp question <postmaster@castleamber.com>
Re: newbie regxp question <hobbes@vkr.NOSPAM.dk>
Re: Perl command to copy one file into another file? <WA5JUL@hotmail.com>
Re: Perl command to copy one file into another <michael.p.broida@boeing_oops.com>
Re: Perl command to copy one file into another <michael.p.broida@boeing_oops.com>
RE: Regexp - optimisation <stephen.adam@ntlworld.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 30 Sep 2003 15:44:37 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Converting a VB typdef to Win32::API::Struct
Message-Id: <h49jnvk2lf1pp2on0dtdvrabf4nse8jng3@4ax.com>
Oistein Sorensen wrote:
> String * 30 -> ??
I don't know what this is in Win32::API::Struct, as the latter is pretty
new to me -- I just upgraded Win32::API and it's a new addition; but
that's likely a 30 byte pad.
--
Bart.
------------------------------
Date: 30 Sep 2003 10:57:37 -0700
From: lphiecfu2002@yahoo.com (cfu20)
Subject: Downloading older versions of Perl
Message-Id: <88a438c5.0309300957.45d6caf4@posting.google.com>
Does anyone know where I can download older versions of Perl binary
distributions (specifically 4.0) ?
Thanks a lot !
------------------------------
Date: 30 Sep 2003 10:58:16 -0700
From: isbat1@yahoo.com (vector)
Subject: Help with RegEx
Message-Id: <7961e1f9.0309300958.214e3fa6@posting.google.com>
I'm designing an application that watches directories, waiting for
files to appear. When the app sees some files, it checks the
filenames against a regular expression to determine whether or not the
files should be processed.
Not all directories are subject to processing by the same validation
rules, so I cannot solve the problem of filtering in code. The rules
for processing must be configurable per directory; hence my choice of
regular expressions contained in a config file as a filter method.
Given a list of files in a directory, I want to return sets of file
pairs. First, the target directory should be scanned for files with
20-character names and extensions of either .TIF or .EA. The
20-character name begins with 16 numbers, and the last four characters
can be any hexadecimal character, 0-9 or A-F. I created this (ugly)
regex to satisfy that requirement:
^(([0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9])+[A-F0-9][A-F0-9][A-F0-9][A-F0-9])\.(EA|TIF)$
Beyond that, I'm uncertain of how to proceed. The next step should be
to take the resulting set of filenames, and extract file pairs of TIFs
and EAs that have the same name. For example, given this list of
files:
1234567890123456FFFF.EA
1234567890123456FFFF.TIF
99999999999999999999.EA
99999999999999999999.JPG
ZZZZZZZZZZZZZZZZZZZZ.TIF
my search will return, properly, the files "…FFFF.EA", "….FFFF.TIF",
and "…9999.EA". What I need is to extend the regex to refine those
results, so that the file named "…9999.EA" is excluded from the
results set, as it has no matching .TIF file.
I'd appreciate any help on this.
------------------------------
Date: Tue, 30 Sep 2003 13:04:51 -0400
From: Chris Mattern <syscjm@gwu.edu>
Subject: Re: How are spammers exploiting my wwwboard code?
Message-Id: <3F79B7B3.6030004@gwu.edu>
Buck wrote:
> On Mon, 29 Sep 2003 17:47:45 -0500, randy wrote:
>
>
>>I have placed this wwwboard.pl code in my cgi-bin directory, and a
>>wwwboard.html file accesses it to post on a message board. The board
>>works fine, but every time I put it up I get all kinds of spam that
>>has apparently been sent using the pl and/or the html file.
>>
>>I tried taking out or munging all instances of the word "mail", to no
>>good effect.
>>Can anyone tell me how to protect this pl code (shown below) and the
>>html code (shown at bottom) from spammers?
>
>
> Well... I didn't have time to read the *entire* script...
> First off, what is the permission to cgi-bin directory?
> Is it 711 -> rwx--x--x ?
>
> That will stop them reading your scripts.
It'll also stop them (or anybody else) from running them, since
interpreted scripts must have read permission to run. That's
why the guy's docs *say* it needs to be 755.
Chris Mattern
------------------------------
Date: Tue, 30 Sep 2003 15:40:50 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: LWP::Simple get() refined problem
Message-Id: <9t8jnv0ic9nk1qh2lfekb1d8013db6ie6f@4ax.com>
Alan J. Flavell wrote:
>> Try using a real URL for the proxy.
>
>Well, that file:///... thingy is in some senses a "real URL": maybe
>it would be helpful to mention that the kind of URL that you had in
>mind was something like http://wwwcache.dom.example:8080/
>or http://11.22.33.44:8001/ , substituting appropriate DNS name or
>IP address and port number.
Indeed, I ment the real URL *for the proxy*, not to some configuration
script.
--
Bart.
------------------------------
Date: Tue, 30 Sep 2003 19:06:43 +0200
From: "Jesper" <hobbes@vkr.NOSPAM.dk>
Subject: newbie regxp question
Message-Id: <blcd6v$4lu$1@news.net.uni-c.dk>
Hi
I'm trying to use regxp instead of split but I'm having some newbie troubles
with it. What I really want to accomplish is cutting the string:
"hello/world/I/am/a/newbie"
into:
"hello" and "world/I/am/a/newbie"
The problem is that the number of backslashes in the string varies from 3 to
? so I can't really make a regxp that does
m/(.*\/)(.*\/)(.*\/)(.*\/)(.*\/)/. Could anyone please help me ?
Regards, jesper
------------------------------
Date: 30 Sep 2003 13:13:24 -0400
From: Ryan Shondell <shondell@cis.ohio-state.edu>
Subject: Re: newbie regxp question
Message-Id: <xcw3cee2o97.fsf@psi.cis.ohio-state.edu>
"Jesper" <hobbes@vkr.NOSPAM.dk> writes:
> Hi
> I'm trying to use regxp instead of split but I'm having some newbie troubles
> with it. What I really want to accomplish is cutting the string:
>
> "hello/world/I/am/a/newbie"
>
> into:
>
> "hello" and "world/I/am/a/newbie"
>
> The problem is that the number of backslashes in the string varies from 3 to
> ? so I can't really make a regxp that does
> m/(.*\/)(.*\/)(.*\/)(.*\/)(.*\/)/. Could anyone please help me ?
Well, from your description, it seems like you want the first "word"
before a backslash, and then everything else. How about...
m!(\w+)?/(.*)!
Ryan
--
perl -e '$;=q,BllpZllla_nNanfc]^h_rpF,;@;=split//,
$;;$^R.=--$=*ord for split//,$~;sub _{for(1..4){$=
=shift;$=--if$=!=4;while($=){print chr(ord($;[$%])
+shift);$%++;$=--;}print " ";}}_(split//,$^R);q;;'
------------------------------
Date: Tue, 30 Sep 2003 17:41:49 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: newbie regxp question
Message-Id: <Xns94068B3F4CE75dkwwashere@216.168.3.30>
Jesper <hobbes@vkr.NOSPAM.dk> wrote:
> I'm trying to use regxp instead of split but I'm having some
> newbie troubles with it. What I really want to accomplish is
> cutting the string:
>
> "hello/world/I/am/a/newbie"
>
> into:
>
> "hello" and "world/I/am/a/newbie"
>
> The problem is that the number of backslashes in the string varies
> from 3 to ? so I can't really make a regxp that does
> m/(.*\/)(.*\/)(.*\/)(.*\/)(.*\/)/. Could anyone please help me ?
perldoc -f split
Just split() it into two pieces:
my $string = "hello/world/I/am/a/newbie";
my ($first, $rest) = split '/', $string, 2;
print "$first, $rest";
--
David Wall
------------------------------
Date: Tue, 30 Sep 2003 17:45:20 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: newbie regxp question
Message-Id: <Qijeb.31168$FH3.11152@nwrddc02.gnilink.net>
Jesper wrote:
> I'm trying to use regxp instead of split
That sentence doesn't make sense. The first argument to split _is_ a regular
expression, so you must use a regexp in order to use split.
There is no "instead of".
> but I'm having some newbie
> troubles with it. What I really want to accomplish is cutting the
> string:
>
> "hello/world/I/am/a/newbie"
>
> into:
>
> "hello" and "world/I/am/a/newbie"
Then, what is wrong with
($hello, $rest) = split (/\//, "hello/world/I/am/a/newbie", 2);
jue
------------------------------
Date: Tue, 30 Sep 2003 19:54:40 +0200
From: "Jesper" <hobbes@vkr.NOSPAM.dk>
Subject: Re: newbie regxp question
Message-Id: <blcg0t$6cm$1@news.net.uni-c.dk>
Hi Ryan
That works like a charm - thx!
2 minuttes after I posted I got the following idea
m/([a-zA-Z0-9]*)\/(.*)/
What is the difference between m// and m!! ?
Regards, jesper
"Ryan Shondell" <shondell@cis.ohio-state.edu> wrote in message
news:xcw3cee2o97.fsf@psi.cis.ohio-state.edu...
> "Jesper" <hobbes@vkr.NOSPAM.dk> writes:
>
> > Hi
> > I'm trying to use regxp instead of split but I'm having some newbie
troubles
> > with it. What I really want to accomplish is cutting the string:
> >
> > "hello/world/I/am/a/newbie"
> >
> > into:
> >
> > "hello" and "world/I/am/a/newbie"
> >
> > The problem is that the number of backslashes in the string varies from
3 to
> > ? so I can't really make a regxp that does
> > m/(.*\/)(.*\/)(.*\/)(.*\/)(.*\/)/. Could anyone please help me ?
>
> Well, from your description, it seems like you want the first "word"
> before a backslash, and then everything else. How about...
>
> m!(\w+)?/(.*)!
>
>
> Ryan
> --
> perl -e '$;=q,BllpZllla_nNanfc]^h_rpF,;@;=split//,
> $;;$^R.=--$=*ord for split//,$~;sub _{for(1..4){$=
> =shift;$=--if$=!=4;while($=){print chr(ord($;[$%])
> +shift);$%++;$=--;}print " ";}}_(split//,$^R);q;;'
------------------------------
Date: Tue, 30 Sep 2003 19:56:32 +0200
From: John Bokma <postmaster@castleamber.com>
Subject: Re: newbie regxp question
Message-Id: <1064944725.807930@halkan.kabelfoon.nl>
Jesper wrote:
> Hi Ryan
> That works like a charm - thx!
> 2 minuttes after I posted I got the following idea
>
> m/([a-zA-Z0-9]*)\/(.*)/
>
> What is the difference between m// and m!! ?
readability, no need to escape the /
--
Kind regards, prachtige ideeen
John aan het einde van een dal
stromen dagelijks
http://johnbokma.com/ gedachtenwaterval
------------------------------
Date: Tue, 30 Sep 2003 20:00:04 +0200
From: "Jesper" <hobbes@vkr.NOSPAM.dk>
Subject: Re: newbie regxp question
Message-Id: <blcgb4$6gk$1@news.net.uni-c.dk>
Ok, fair enough - I just relate the =~ operator to regxp (newbie :)).
Regards, jesper
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:Qijeb.31168$FH3.11152@nwrddc02.gnilink.net...
> Jesper wrote:
> > I'm trying to use regxp instead of split
>
> That sentence doesn't make sense. The first argument to split _is_ a
regular
> expression, so you must use a regexp in order to use split.
> There is no "instead of".
>
> > but I'm having some newbie
> > troubles with it. What I really want to accomplish is cutting the
> > string:
> >
> > "hello/world/I/am/a/newbie"
> >
> > into:
> >
> > "hello" and "world/I/am/a/newbie"
>
> Then, what is wrong with
> ($hello, $rest) = split (/\//, "hello/world/I/am/a/newbie", 2);
>
> jue
>
>
------------------------------
Date: Tue, 30 Sep 2003 15:13:51 GMT
From: "Bill" <WA5JUL@hotmail.com>
Subject: Re: Perl command to copy one file into another file?
Message-Id: <P4heb.1765$_N1.387@twister.austin.rr.com>
The objective is to create a sum of the two files with out any duplications.
I included "use" into the script, but all it does now is make the file copy
and loops with out making any comapisons with output6.txt.
# To use this script, type the following at the command line prompt:
# bbb.pl file1 file2 output_file_name
open (INPUT1, "$ARGV[0]") or die "Cannot open $ARGV[0]";
open (OUTPUT, "> $ARGV[2]");
#print "First input file is: $ARGV[0]\n";
#print "Second input file is: $ARGV[1]\n";
#print "The output file is: $ARGV[2]\n\n";
# This half of the code dumps everything in 'file1' to the output 'file3'
#while ( <INPUT1> ) {
# print "Reading $ARGV[0]\n";
# print OUTPUT $_;
#}
use File::Copy;
copy("$ARGV[0]","$ARGV[2]") or die "Copy failed: $!";
# This half of the code compares 'file2' to 'file1' and writes out
# any line that doesn't match to the output 'file3'
open (INPUT1, "$ARGV[1]") or die "Cannot open $ARGV[1]";
while ( <INPUT1> ) {
$match = 0;
$a = $_;
open (INPUT2, "$ARGV[0]") or die "Cannot open $ARGV[0]";
while ( <INPUT2> ) {
$b = $_;
if ($a eq $b) {
$match = 1;
last;
}
}
if ($match == 0) {
print OUTPUT $a;
}
}
This is the dir from the command prompt. The script has been running all
night and the output file, output7.txt, is still only as big as the file it
copied yesterday, output5.txt. Output7.txt, the output file should be
growing as comparisons are made with output6.txt.
Directory of C:\PERL1\OUTPUT7
09/29/2003 02:12p <DIR> .
09/29/2003 02:12p <DIR> ..
09/19/2003 10:28p 951 bbbb4.pl
09/30/2003 01:47a 1,291 bbbb5.pl
09/20/2003 07:50p <DIR> Output5
09/20/2003 05:28p 3,965,417 output5.txt
09/20/2003 02:37a <DIR> Output6
09/20/2003 01:24p 3,775,496 output6.txt
09/20/2003 05:28p 3,965,417 output7.txt
5 File(s) 11,708,572 bytes
4 Dir(s) 102,161,915,904 bytes free
C:\PERL1\OUTPUT7>
"ko" <kuujinbo@hotmail.com> wrote in message
news:blag3m$qmr$1@pin3.tky.plala.or.jp...
> Bill wrote:
>
> > while ( <INPUT1> ) {
> > # print "Reading $ARGV[0]\n";
> > print OUTPUT $_;
> > }
> >
> > The copy statment, copy("file1","file2") or die "Copy failed: $!"; is
> > supposed to replace the above while statement.
> >
> > I get this error with the copy statment ...
> > C:\PERL1\OUTPUT7>bbbb5.pl output5.txt output6.txt output7.txt
> > Undefined subroutine &main::copy called at C:\PERL1\OUTPUT7\bbbb5.pl
line
> > 24.
> >
> > This is the script code ...
> >
> > open (INPUT1, "$ARGV[0]") or die "Cannot open $ARGV[0]";
> > open (OUTPUT, "> $ARGV[2]");
> >
> > #print "First input file is: $ARGV[0]\n";
> > #print "Second input file is: $ARGV[1]\n";
> > #print "The output file is: $ARGV[2]\n\n";
> >
> > # This half of the code dumps everything in 'file1' to the output
'file3'
> > # while ( <INPUT1> ) {
> > # print "Reading $ARGV[0]\n";
> > # print OUTPUT $_;
> > # }
> >
> > File :: COPY;
>
> When you 'use' a module case matters, and you forgot 'use'. It should be:
>
> use File::Copy;
>
> That's the reason for the 'undefined subroutine...' error message.
>
> > copy("$ARGV[0]","$ARGV[2]") or die "Copy failed: $!";
> >
> > # This half of the code compares 'file2' to 'file1' and writes out
> > # any line that doesn't match to the output 'file3'
> >
> > open (INPUT1, "$ARGV[1]") or die "Cannot open $ARGV[1]";
> >
> > while ( <INPUT1> ) {
> > $match = 0;
> >
> > $a = $_;
> > open (INPUT2, "$ARGV[0]") or die "Cannot open $ARGV[0]";
> > while ( <INPUT2> ) {
> > $b = $_;
> > if ($a eq $b) {
> > $match = 1;
> > last;
> > }
> > }
> >
> > if ($match == 0) {
> > print OUTPUT $a;
> > }
> > }
> >
> > "ko" <kuujinbo@hotmail.com> wrote in message
> > news:bl37di$j2a$1@pin3.tky.plala.or.jp...
> >
> >>Bill wrote:
> >>
> >>>Is there a single Perl command to copy file 1 into file 2 with out
going
> >>>through the where-with-all of a while loop? Thanks, Bill
> >>>
> >>>Perl command to copy one file into another file?
> >>>
> >>>
> >>
> >>The File::Copy module.
> >>
> >>use File::Copy;
> >>copy("file1","file2") or die "Copy failed: $!";
> >>
> >>'perldoc File::Copy' gives you all the details
> >>
> >>HTH - keith
> >>
>
> Maybe I misunderstood what you want to do. In your original post you
> stated that you want to copy a file without using a while loop. Above,
> however. the contents of the files are being compared. If you want to
> compare contents you do need a while loop.
>
> File::Copy does a straight copy, nothing else:
>
> #!/usr/bin/perl -w
> use strict;
>
> use File::Copy;
> die "Usage: SCRIPTNAME file1 file2\n" unless @ARGV == 2;
> copy($ARGV[0], $ARGV[1]) or die "Copy failed: $!";
>
> You should also add a check to see that the new file doesn't already
> exist (it will clobber an existing file), and pass the files with
> absolute paths.
>
> HTH - keith
>
------------------------------
Date: Tue, 30 Sep 2003 16:58:19 GMT
From: "Michael P. Broida" <michael.p.broida@boeing_oops.com>
Subject: Re: Perl command to copy one file into another
Message-Id: <3F79B62B.CB14A3A0@boeing_oops.com>
Abigail wrote:
>
> Michael P. Broida (michael.p.broida@boeing_oops.com) wrote on MMMDCLXXXII
> September MCMXCIII in <URL:news:3F78C9E5.500B843F@boeing_oops.com>:
> () $result = `copy a.txt b.txt`;
> ()
> () $result will contain whatever output the shell returned
> () (error messages, success message, whatever). Probably
> () nothing if it was successful.
>
> Eh, no. $result will contain whatever the command wrote to
> standard *output*. Error messages typically go to standard *error*
> and that's is not collected by backticks - you'd first have to
> merge them into the output stream.
Oops, you're exactly correct. I wasn't specific enough.
> () Note that that method is not necessarily "portable".
>
> I actually prefer to shell out to copy files (but not by using backticks,
> but by using system), because "cp" copies files in the way I expect, while
> File::Copy doesn't. File::Copy doesn't respect execute bits on files,
> "cp" does.
I agree that using a shell command can get you "better"
results because it uses the "correct" method for that system.
But if you're on Windows, "cp" doesn't do ANYTHING (unless
you have Cygwin or similar installed). That's all I was
referring to when I said it's not portable: you might have
to change it for a different system.
Thanks!
Mike
------------------------------
Date: Tue, 30 Sep 2003 16:59:04 GMT
From: "Michael P. Broida" <michael.p.broida@boeing_oops.com>
Subject: Re: Perl command to copy one file into another
Message-Id: <3F79B658.883C7E26@boeing_oops.com>
Tad McClellan wrote:
>
> Michael P. Broida <michael.p.broida@boeing_oops.com> wrote:
>
> > Use the ` command in perl to run the shell command:
> >
> > $result = `copy a.txt b.txt`;
>
> > $result will contain whatever output the shell returned
> ^^^^^^^^^^^^^^^^^^^^
> > (error messages,
> ^^^^^^^^^^^^^^
>
> bacticks do not capture STDERR.
You're correct. I didn't think it through far
enough when I was writing that post.
Thanks!
Mike
------------------------------
Date: Tue, 30 Sep 2003 18:44:51 +0100
From: "Stephen Adam" <stephen.adam@ntlworld.com>
Subject: RE: Regexp - optimisation
Message-Id: <sjjeb.7967$4D.5237236@newsfep2-win.server.ntli.net>
Hi guys and girls,
I've just written a (crude) program to extract all the e-mail addresses from
a file,
the regexp takes ages. I was just wondering if anyone had any suggestions on
improving
it or any aspects of the program. I know it won't pick up addresses with
comments in them but thats OK.
Ta
Steve
#!C:\perl\perl.exe -w
use strict;
use warnings;
use vars qw($FILEHANDLE);
use vars qw($PARSE);
# Define and open our files #
print "Please enter the name of the file to be processed :: ";
my $filename = <STDIN>;
print "Please enter the name of the file to save results in :: ";
my $filesave = <STDIN>;
print "\n\n";
our $FILEHANDLE = "./$filename";
our $PARSE = ">./$filesave";
open("FILEHANDLE") or
die ("Unable to open file $FILEHANDLE\n Program Quiting\n");
open(PARSE) or die ("Can't open output file");
# Define our vars #
my $string;
my @origlist;
$string = "";
print ":: Start extraction of e-mails from file ::\n\n";
# Place file into a Scaler #
while(my $line = <FILEHANDLE>){
chomp $line; # Get rid of new line char
$string .= "$line\n"; # Append line contents to scaler
}
# Use regex to pull out all e-mail addresses from scaler #
@origlist = $string =~ m{[\w]+@[\w]+[.]+[\w.]*}g;
# Find out and display number of e-mails addresses (not unique) #
print ":: Number of e-mails addresses found (not unique) :: \n";
my $size = @origlist;
print "size is $size\n\n";
# Remove duplicates #
print ":: Removing duplicates :: \n\n";
my %seen = ();
my @unique = ();
my $item;
foreach $item (@origlist){
push(@unique, $item) unless $seen{$item}++;
}
# Display how many unique addresses we have #
print ":: Number of e-mails addresses found (unique) :: \n";
$size = @unique;
print "Size is $size\n\n";
# Sort the list of e-mails #
print ":: Sorting e-mails ::\n";
my @sorted = sort (@unique);
print "Sorted\n\n";
print ":: Moving to file :: \n\n";
# Copy the blighters into a file #
foreach my $x (@sorted){
print ":: Copying $x :: \n";
print PARSE "$x\n";
}
print "Done!\n\n";
close $PARSE;
exit(0);
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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.
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 5592
***************************************
