[25406] in Perl-Users-Digest
Perl-Users Digest, Issue: 7651 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 14 18:10:26 2005
Date: Fri, 14 Jan 2005 15:10:18 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 14 Jan 2005 Volume: 10 Number: 7651
Today's topics:
Natalie, Sasha and Paris are looking for some web cam f wlmdmpto@yuyuy.com
Need help with Perl and MySQL database data load <oscar@nowhere.com>
Re: Need help with Perl and MySQL database data load <andy@andyh.co.uk>
newbie pattern match question :-) davidcsnow@yahoo.com
Re: newbie pattern match question :-) <noreply@gunnar.cc>
Re: newbie pattern match question :-) <jgibson@mail.arc.nasa.gov>
Re: newbie pattern match question :-) <matternc@comcast.net>
Re: newbie pattern match question :-) davidcsnow@yahoo.com
Opening a text file and editing its contents toomanyjoes@mail.utexas.edu
Re: Opening a text file and editing its contents <spamtrap@dot-app.org>
Re: Opening a text file and editing its contents <usa1@llenroc.ude.invalid>
Re: Opening a text file and editing its contents <thundergnat@hotmail.com>
Re: Opening a text file and editing its contents toomanyjoes@mail.utexas.edu
Perl 5.6.0 Compatible With Windows 2003? basis_consultant@hotmail.com
Re: Perl 5.6.0 Compatible With Windows 2003? <1usa@llenroc.ude.invalid>
Re: Random Functionality <sbryce@scottbryce.com>
Re: Regular expression lookahead question <abigail@abigail.nl>
Re: Works great! <abigail@abigail.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 14 Jan 2005 19:27:25 GMT
From: wlmdmpto@yuyuy.com
Subject: Natalie, Sasha and Paris are looking for some web cam fun, its all free and they really want to meet you!............... W846
Message-Id: <131399950320537856@yuyuy.com>
Natalie
Looking For: Sex/Fun Times
Details: Blonde, 32 Years Old, Slim
Free Web Cam, Live Chat, Email
http://www.darkmailer.org/nat.htm
----------------------------------------
Sasha
Looking For: Sex/Fun Times
Details: Red Head, 22 Years Old, Slim
Free Web Cam, Free Live Chat, Email
http://www.darkmailer.org/sasha.htm
----------------------------------------
Paris
Looking For: Sex/Fun Times
Details: Blonde, 47 Years Old, Medium build
Free Web Cam, Free Live Chat, Email
http://www.darkmailer.org/paris.htm
----------------------------------------
---
Nolobadi bosef meceferot sav hesuci notu sepucaleye biv pamig viponerarum .
------------------------------
Date: Fri, 14 Jan 2005 22:23:50 GMT
From: Oscar <oscar@nowhere.com>
Subject: Need help with Perl and MySQL database data load
Message-Id: <WDXFd.6975$_56.740@fe2.texas.rr.com>
Hello,
I'm kind of a newbie to Perl and MySQL and have researched this problem
to death but still can't find something that works.
I've written a script to load data into a MySQL database:
> #!/perl/bin/perl -w
> #insert data into mysql
> use strict;
> use DBI;
>
>
> my $dbh = DBI->connect("dbi:mysql:sd_tst','localhost:3306','root',
> 'XXXXXXX'",
> {RaiseError => 1, AutoCommit => 1 }
>
> ) || die "Database connection not made: $DBI::errstr";
>
> $dbh->do("LOAD DATA LOCAL INFILE '/sd_data/audit.txt' INTO TABLE
> sd_tst FIELDS TERMINATED BY '\|' LINES TERMINATED BY '\r\n';");
>
>
> $dbh->disconnect ();
> #EOF
When I execute the script I receive this error:
"Database connection not made: Unknown MySQL Server Host '3306','
(11001) at sqltst.pl line 7".
I've tried many variations but still can't get it to run.
Anyone see something wrong I am doing?
Thanks,
Oscar
------------------------------
Date: Fri, 14 Jan 2005 22:49:40 +0000
From: Andy Hassall <andy@andyh.co.uk>
Subject: Re: Need help with Perl and MySQL database data load
Message-Id: <nuigu01lflt493v4bqqsv658pjmr9ppefh@4ax.com>
On Fri, 14 Jan 2005 22:23:50 GMT, Oscar <oscar@nowhere.com> wrote:
>> my $dbh = DBI->connect("dbi:mysql:sd_tst','localhost:3306','root',
>> 'XXXXXXX'",
>> {RaiseError => 1, AutoCommit => 1 }
>>
>> ) || die "Database connection not made: $DBI::errstr";
>
>When I execute the script I receive this error:
>"Database connection not made: Unknown MySQL Server Host '3306','
http://search.cpan.org/~rudy/DBD-mysql-2.9004/lib/DBD/mysql.pm
... and ...
http://search.cpan.org/~timb/DBI-1.46/DBI.pm#DBI_Class_Methods
You've got 'localhost:3306' specified as $user, 'root' as password, 'XXXXXXX'
as \%attr and an extra parameter hanging off the end.
--
Andy Hassall / <andy@andyh.co.uk> / <http://www.andyh.co.uk>
<http://www.andyhsoftware.co.uk/space> Space: disk usage analysis tool
------------------------------
Date: 14 Jan 2005 13:49:18 -0800
From: davidcsnow@yahoo.com
Subject: newbie pattern match question :-)
Message-Id: <1105739358.282386.314630@f14g2000cwb.googlegroups.com>
I'm new to Perl, and am trying to match a string enclosed within
parentheses, storing said string in a variable. Simple enough I would
guess.
An example of the text to search would be: "hello(world)", with the
variable holding 'world' once done.
How far off am I with:
$text = "hello(world)";
$new = $text =~ m/\(*\)/;
Quite far offI am assuming!!
Thanks in advance,
David.
------------------------------
Date: Fri, 14 Jan 2005 23:05:27 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: newbie pattern match question :-)
Message-Id: <34qu92F4cca7oU1@individual.net>
davidcsnow@yahoo.com wrote:
> I'm new to Perl, and am trying to match a string enclosed within
> parentheses, storing said string in a variable. Simple enough I would
> guess.
>
> An example of the text to search would be: "hello(world)", with the
> variable holding 'world' once done.
>
> How far off am I with:
>
> $text = "hello(world)";
> $new = $text =~ m/\(*\)/;
There are at least three things that need to be corrected:
1) The '*' symbol is a quantifier in a Perl regular expression, meaning
zero or more of the preceeding character or character class.
Accordingly, you need to insert that character class.
perldoc perlre
2) You need parentheses to make the regex capture the desired string.
3) Also $new need to be surrounded by parentheses in order to enforce
list context.
perldoc perlop (the m// operator)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 14 Jan 2005 14:15:58 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: newbie pattern match question :-)
Message-Id: <140120051415584186%jgibson@mail.arc.nasa.gov>
In article <1105739358.282386.314630@f14g2000cwb.googlegroups.com>,
<davidcsnow@yahoo.com> wrote:
> I'm new to Perl, and am trying to match a string enclosed within
> parentheses, storing said string in a variable. Simple enough I would
> guess.
>
> An example of the text to search would be: "hello(world)", with the
> variable holding 'world' once done.
>
> How far off am I with:
>
> $text = "hello(world)";
> $new = $text =~ m/\(*\)/;
> Quite far offI am assuming!!
Did you try it?
What happened?
Any idea why $new now contains 1?
Testing Perl programs needn't be a thought experiment!
Other advice:
1. Put 'use strict' and 'use warnings' at the top of your program.
2. Post a complete, working, minimal program that demonstrates the
problem you are having and explain what that problem is.
3. Read the documentation that comes with Perl:
perldoc perlretut
for starters, then
perldoc perlre
for details. And
perldoc -f print
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: Fri, 14 Jan 2005 17:23:36 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: newbie pattern match question :-)
Message-Id: <t6CdnTGg1Lj023XcRVn-pQ@comcast.com>
davidcsnow@yahoo.com wrote:
> I'm new to Perl, and am trying to match a string enclosed within
> parentheses, storing said string in a variable. Simple enough I would
> guess.
>
> An example of the text to search would be: "hello(world)", with the
> variable holding 'world' once done.
>
> How far off am I with:
>
> $text = "hello(world)";
> $new = $text =~ m/\(*\)/;
> Quite far offI am assuming!!
>
Close, but not quite. First problem: you are making a typical
newbie mistake--confusing regexp syntax with the filematching
or "globbing" syntax found in many shells (and, for that
matter, in Perl when you do filename globbing). "*" doesn't
mean "match any number of any character", it means "match
any number (including zero) of the preceding character."
so this matches zero to any number of left parens, followed
by one right paren. In the string "hello(world)" your regexp
will match ")". The rexexp character for "match any
character (except newline)" is the period (.). So the
expression you want for "match any number of any characters"
is ".*".
Second problem: m// doesn't return what it matched. Well,
it can, but not in a scalar context, and the methods by which
you can get it to return what's matched are not I think
the most useful for what you're trying to do here. m//
returns 1 if you got a match and "" if you didn't, which
is handy if you're using it to check a conditional, but
less so if you want to extract what was matched. There
are a variety of ways to get what was matched, but for
your case the best way is probably to use capturing
parentheses, particularly since you *don't* want the
whole match--you want to strip off the parentheses.
This will do the trick:
if ($text =~ m/\((.*)\)/) {
$new = $1;
}
else {
# it wasn't there!
}
After a successful match, the capturing parentheses
populate the number variables--the first capture
goes in $1, the second in $2 and so on. Note that
these variables *only* get changed if the match
was successful, which is why the code I gave
makes the assignment only on a successful match.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 14 Jan 2005 14:41:15 -0800
From: davidcsnow@yahoo.com
Subject: Re: newbie pattern match question :-)
Message-Id: <1105742475.419709.52790@c13g2000cwb.googlegroups.com>
Thanks for the help guys - great advice there!!!
The below does exactly what I was looking for, so thanks for the help,
and for the advice on the doc.
$text = "hello(world)";
($new) = $text =~ /\((.*)\)/;
kind regards,
David.
------------------------------
Date: 14 Jan 2005 11:28:23 -0800
From: toomanyjoes@mail.utexas.edu
Subject: Opening a text file and editing its contents
Message-Id: <1105730903.248958.95440@z14g2000cwz.googlegroups.com>
I'm still having problems opening a file. I looked at the docs and this
is what I came up with.
open (FILE, "> C:\notes\gen.txt") || die ("error $!\n"); #See note 1
while (<FILE>) { #See note 2
s/\<[NR][a\d]\>/ /g #note 3
if (^\w\D\D\s\d+:\d+) #note 4
Note1: Although in all the examples I've looked at the actual file
reference is always very vague and I have never seen a full path with
the files extension in the quotes like I have done here.
Note2: Here I want to loop through the file, is this correct?
Note3: Here I want to find every instance (In the File) of a "<Ra> or a
<N1>(2,3,etc.)" and replace it with nothing (basically remove it)
Note4: Here I'm looking for a specific arrangement of characters at the
beginning of the line it can be any character followed by 2 letters
followed by a space followed by any number of digits separated by a
colon. (ex. 1RA 12321:123214 would match as well as ADD 4:2) if a match
occurs I want to remove the colon and separate these items with a
delimiter. For Example (ex. 1RA/ 12321/123214)
And thats as far as I've been able to get because I get an error
opening the file. It looks to me like I've done it by the book. But I
must be missing something. I'd appreciate any comments about my code.
Thanks,
Joe
------------------------------
Date: Fri, 14 Jan 2005 14:46:44 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Opening a text file and editing its contents
Message-Id: <tfWdncBEx4o5vHXcRVn-rQ@adelphia.com>
toomanyjoes@mail.utexas.edu wrote:
> I'm still having problems opening a file. I looked at the docs and this
> is what I came up with.
Posting the same message multiple times is rude. Please don't do that.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Fri, 14 Jan 2005 14:51:25 -0500
From: "A. Sinan Unur" <usa1@llenroc.ude.invalid>
Subject: Re: Opening a text file and editing its contents
Message-Id: <pan.2005.01.14.19.50.49.851450@asu1cornelledu>
In article <1105730903.248958.95440@z14g2000cwz.googlegroups.com> posted
on Fri, 14 Jan 2005 11:28:23 -0800, toomanyjoes wrote:
> I'm still having problems opening a file. I looked at the docs and this
> is what I came up with.
>
>
> open (FILE, "> C:\notes\gen.txt") || die ("error $!\n"); #See note 1
Note that \ is special here. In this case, \n translates to 'newline' and
and \g (I think) translates to the ASCII bell character. You would have
noticed this had you tried to print the file name.
Also, I do prefer using lexical filehandles and the 3 argument form of
open:
my $fn = 'c:/notes/gen.txt';
open my $file, '>', $fn
or die "Cannot open $fn: $!";
> while (<FILE>) { #See note 2
Your posting style makes it very cumbersome to answer your other questions.
Sinan.
--
A. Sinan Unur
usa1@llenroc.ude.invalid -- remove invalid and
reverse each component for email address.
------------------------------
Date: Fri, 14 Jan 2005 15:22:45 -0500
From: thundergnat <thundergnat@hotmail.com>
Subject: Re: Opening a text file and editing its contents
Message-Id: <24adndL-KrlrtHXcRVn-pA@rcn.net>
toomanyjoes@mail.utexas.edu wrote:
> I'm still having problems opening a file. I looked at the docs and this
> is what I came up with.
First of all, every program except the most trivial should start with
use warnings;
use strict;
Those two things will go a long way towards helping fix problems.
>
>
> open (FILE, "> C:\notes\gen.txt") || die ("error $!\n"); #See note 1
I suspect your main problem is the newline character in the filename.
Double quotes interpolate, so the \n is read as newline. Use single
quotes instead. The fact that you are opening the file for output is
likely going to be a problem too. You would likely be better off with
3 argument open and lexical file handles also. Actually, it would
probably be better not to hard code the file name. Feed the file name
as a command line parameter instead.
Also, if you leave the newline off the die message, more useful
information will be supplied.
open my $file, '<', $ARGV[0] or die "Could not open file. $!";
>
>
> while (<FILE>) { #See note 2
while (<$file>){
>
>
> s/\<[NR][a\d]\>/ /g #note 3
>
Will also catch <Na> and <R0>,<R1>, etc. Ok if that's what you want, but
you may be better tightening up the assertion. It's not necessary to
escape the angle brackets either.
s/<(Ra|N\d)>//;
>
> if (^\w\D\D\s\d+:\d+) #note 4
You description suggests something more like the following. Also, if you
are just checking if a pattern exists so you can change it if it does,
you are better off just trying to change it. It will if it exists and
won't if it doesn't
s!^(.\w\w)( \d+):(\d+)!$1/$2/$3!;
All together...
use warnings;
use strict;
open my $file, '<', $ARGV[0] or die "Could not open file. $!";
while (<$file>){
s/<(Ra|N\d)>//;
s!^(.\w\w)( \d+):(\d+)!$1/$2/$3!;
print;
}
------------------------------
Date: 14 Jan 2005 14:02:03 -0800
From: toomanyjoes@mail.utexas.edu
Subject: Re: Opening a text file and editing its contents
Message-Id: <1105740122.984904.253900@c13g2000cwb.googlegroups.com>
What you have written is EXACTLY what I am looking for! I'm assuming
the print command on the last line is the command that actually
executes the changes above? My question is by using $ARGV[0] (What
exactly is this doing in this case) how does the compiler know what
file $file is? Should I set ARGC[0] equal to the filename in a line
above? When I run the code as you have shown it I get no output and no
changes are made to the text file.
Thanks so much for taking the time to help me out.
Joe
------------------------------
Date: 14 Jan 2005 12:22:32 -0800
From: basis_consultant@hotmail.com
Subject: Perl 5.6.0 Compatible With Windows 2003?
Message-Id: <1105734152.306989.182850@c13g2000cwb.googlegroups.com>
Hello,
We migrated an Oracle database from NT to Windows 2003. In the NT
box, Perl 5.6.0 was installed. In Windows 2003, we are also using
Perl 5.6.0 (Some of the scripts had some difficulty with later
versions) as well as the newest version of 'aspupload' to store
'jpg' files in the Oracle database.
The perl scripts seem to work, except for the fact that the pictures
are not successfully inserted into Oracle. The Perl script indicates an
'unable to open temporary file at (eval 9)..'
error. (It is not a case of Oracle failing). We ensured that the user
running the Perl script can access Win 2003's temp files, etc..
I was unable to find a Website to confirm whether or not Perl v5.6.0 is
compatible with Win 2003. Does anybody know?
Also, any other ideas on solving Perl's 'unable to open temporary file
at (eval 9)..' error would be greatly appreciated.
Thanks in Advance,
SAP BASIS Consultant and Perl Newbie
------------------------------
Date: 14 Jan 2005 20:57:09 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Perl 5.6.0 Compatible With Windows 2003?
Message-Id: <Xns95DEA24887784asu1cornelledu@132.236.56.8>
basis_consultant@hotmail.com wrote in news:1105734152.306989.182850
@c13g2000cwb.googlegroups.com:
> We migrated an Oracle database from NT to Windows 2003. In the NT
> box, Perl 5.6.0 was installed. In Windows 2003, we are also using
> Perl 5.6.0 (Some of the scripts had some difficulty with later
> versions) as well as the newest version of 'aspupload' to store
> 'jpg' files in the Oracle database.
>
> The perl scripts seem to work, except for the fact that the pictures
> are not successfully inserted into Oracle. The Perl script indicates an
> 'unable to open temporary file at (eval 9)..'
> error. (It is not a case of Oracle failing). We ensured that the user
> running the Perl script can access Win 2003's temp files, etc..
>
> I was unable to find a Website to confirm whether or not Perl v5.6.0 is
> compatible with Win 2003. Does anybody know?
Dunno if this means anything but the BOHF here have:
C:\> perl -v
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
...
C:\> ver
Microsoft Windows [Version 5.2.3790]
That is Windows 2003 DataCenter edition running on some Itanium system.
That does not mean it works but ...
> Also, any other ideas on solving Perl's 'unable to open temporary file
> at (eval 9)..' error would be greatly appreciated.
I would suspect your code especially since you mentioned it does not run
properly under 5.8. I have no idea what aspupload is but does that have
anything to do with Perl?
Please read the posting guidelines for this group. It seems like your
question is highly platform dependent and there is no Perl code to
comment on.
Sinan.
------------------------------
Date: Fri, 14 Jan 2005 12:08:17 -0700
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Random Functionality
Message-Id: <oOGdnf6MkNMJhXXcRVn-qQ@comcast.com>
Brian McCauley wrote:
> Working backwards..
> (*) get all the symbol names in the MyModule::Handlers package
> (*) prefix them to make them fully qualified symbol names
> (*) filter down to only those symbols declared as subroutines
> (*) get CODErefs for those subroutines
> (*) store them in an array
Thanks.
I already figured this out. Working *backwards* was the key. I was
trying to work forward. That and I'm not very familiar with map, grep or
the symbol table. This was a good opportunity for me to learn something new.
> No, but I'd (perhaps mistakenly) got the impression that these were
> something that is configured on the custommer site rather than being
> an integral part of the module you were writing.
What I am trying to do is write a story problem generator. The end
result will be a PDF file with a page full of story problems having a
similar level of difficulty--for example: all require 1 digit addition
to solve the problem.
The individual subroutines will each generate one story problem from a
template. Each subroutine has a different template. The subroutine fills
out the template from randomly generated data and returns the story problem.
The script will find the subroutines that contain the story problem
templates, build a list of references to these subroutines, shuffle the
list, then call them one at a time until the page is full.
Each of the templates is specific to its own script. That is why I think
it would be easier to have them in the script.
That is more than you needed to know, but it gives you a clearer picture
of what I'm doing.
> This is just another way. IMNSHO it makes the source look neater.
I agree, which is why I'm leaning toward this method.
------------------------------
Date: 14 Jan 2005 22:27:37 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Regular expression lookahead question
Message-Id: <slrncughqp.qo.abigail@alexandra.abigail.nl>
Arndt Jonasson (do-not-use@invalid.net) wrote on MMMMCLIV September
MCMXCIII in <URL:news:yzdzmzcjb57.fsf@invalid.net>:
%%
%% Tad McClellan <tadmc@augustmail.com> writes:
%% > Peroli <peroli@gmail.com> wrote:
%% >
%% >
%% > > I donno if thats english enough for you,
%% >
%% >
%% > That was fine.
%% >
%% > Please don't use "cutsie" spellings (r=are, u=you ...),
%% > it is inconsiderate of your readers.
%%
%% One wonders, does that apply to using only lower-case letters too?
Yes. I killfile both cutsie spellers and people without shift keys.
If you can't be bothered to use proper spelling and punctuation,
how could you code?
%% Though I do admit to finding those articles easier to read than ones
%% with the cute spellings.
Does it matter? They are both below par.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: 14 Jan 2005 22:23:26 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Works great!
Message-Id: <slrncughiu.qo.abigail@alexandra.abigail.nl>
Michele Dondi (bik.mido@tiscalinet.it) wrote on MMMMCLIV September
MCMXCIII in <URL:news:3epdu0p6ltfevfhv6nt8u025buh5j9n5sn@4ax.com>:
.. On Thu, 13 Jan 2005 04:44:13 GMT, "edgrsprj" <edgrsprj@ix.netcom.com>
.. wrote:
..
.. >And buffering is restored in this manner. Or is that the wrong way to do
.. >that?
.. >
.. >$|=1;
..
.. I'd use C<$|++> and C<$|--> respectively.
Unless I am producing obfuscated code on purpose, I will never use
$| ++ or $| --.
$| -- suggests it undoes $| ++. That is, if you put $| ++, $| --
around a block of code, $| will be restored to their original values.
But it won't:
#!/usr/bin/perl -l
use strict;
use warnings;
no warnings qw /syntax/;
$| = 0; print $|;
$| ++; print $|;
$| ++; print $|;
$| --; print $|;
$| --; print $|;
__END__
0
1
1
0
1
I've no idea why $|++ is so popular, and why people keep copying this
bad behaviour. I suspect cargo cult.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
------------------------------
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 7651
***************************************
