[30074] in Perl-Users-Digest
Perl-Users Digest, Issue: 1317 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 28 16:09:50 2008
Date: Thu, 28 Feb 2008 13:09:09 -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 Thu, 28 Feb 2008 Volume: 11 Number: 1317
Today's topics:
Re: code help <jimsgibson@gmail.com>
Re: Generate an associative array from a file <gniagnia@gmail.com>
Re: Generate an associative array from a file <cartercc@gmail.com>
Help with script <Ramroop@gmail.com>
Re: Help with script <mritty@gmail.com>
Re: Help with script <Ramroop@gmail.com>
Re: Help with script <someone@example.com>
Re: Help with script <Ramroop@gmail.com>
Re: Help with script <someone@example.com>
Re: Help with script <john@castleamber.com>
Re: Help with script <Ramroop@gmail.com>
Re: how to remove the letter n from a line of text <pauls@nospam.off>
Re: how to remove the letter n from a line of text <john@castleamber.com>
Re: how to remove the letter n from a line of text <jurgenex@hotmail.com>
Re: subroutines vs method vs function xhoster@gmail.com
Re: unicode via DBI on linux to sql server 2005? <bugbear@trim_papermule.co.uk_trim>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 Feb 2008 11:47:48 -0800
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: code help
Message-Id: <280220081147485426%jimsgibson@gmail.com>
In article
<e410d1dd-4886-4a94-8ed6-433cc238910d@2g2000hsn.googlegroups.com>,
jammer <jameslockie@mail.com> wrote:
> On Feb 27, 10:31 pm, "John W. Krahn" <some...@example.com> wrote:
> > jammer wrote:
> > > Why does this give a syntax error?
> >
> > There is no syntax error there.
> >
> > > # not 2 arguments, print usage
> > > if ($#ARGV != 1) {
> >
> > That's a great way to confuse a newby. Why does the comment say "2
> > arguments" but you are comparing the variable to 1? Try it like this:
> >
> > # not 2 arguments, print usage
> > if ( @ARGV != 2 ) {
> >
> > > print "\nusage: " . $ARGV[0] . "\[backupDir\] \
> >
> > Unlike C, Python, etc. the first argument of @ARGV is *not* the program
> > name, you want the $0 variable instead.
>
> I had a missing semi-colon and the error pointed to that block. :-(
That is why it is always best to post a *complete* program, not just a
code fragment. Compilers are not always very good about diagnosing the
source of errors and identifying the exact line where the error is
located.
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 28 Feb 2008 10:20:21 -0800 (PST)
From: Mr_Noob <gniagnia@gmail.com>
Subject: Re: Generate an associative array from a file
Message-Id: <3ce344d2-44a6-48fc-b967-1ff9739cac92@h11g2000prf.googlegroups.com>
On 28 f=E9v, 15:56, ccc31807 <carte...@gmail.com> wrote:
> On Feb 28, 8:59 am, Mr_Noob <gniag...@gmail.com> wrote:
>
>
>
> > Hi all,
>
> > here is a sample of my file :
>
> > ## blah blah
> > [client1]
> > remote=3D192.168.1.2
> > ### some comments here
> > ### blah blah
> > [client2]
> > remote=3D192.168.1.5
> > passive=3Dtrue
> > ###blablah
> > [client3]
> > remote=3D192.168.1.8
> > [client4]
> > remote=3D192.168.1.15
> > passive=3Dtrue
> > ###
> > ####
> > ####
>
> > I am trying to write a perl script that would exclude all comments
> > from the above file and then generate an associative array, and output
> > the following result :
>
> > client1;192.168.1.1
> > client2;192.168.1.5;true
> > client3;192.168.1.8
> > client4;192.168.1.15;true
> > ...
>
> > thanks in advance for ur help...
>
> > br
>
> Here is some pseudocode:
>
> my %hash
> open INFILE, <file.csv
>
> while <INFILE>
> next if $_ =3D~ /#/ #skip comments
> if $_ =3D~ /[/ #create hash element
> create hash element like $hash{client1}
> if $hash{client1}
> ($key, $value) =3D split on /=3D/ #create vars
> create hashref like $hash{client}{$key} =3D $value
>
> close INFILE
>
> foreach my $client (sort keys %hash)
> foreach my $key (sort keys %{$hash{$client}})
> print $hash{$client} - $hash{$client}{$key}
>
> exit
Thank you for these answers. The problem is that what's inside the
brackets won't always start with the "client"...It can be any string..
I'll also have a look on Config::INI, Config::Simple, Config::Tiny..
------------------------------
Date: Thu, 28 Feb 2008 12:30:22 -0800 (PST)
From: ccc31807 <cartercc@gmail.com>
Subject: Re: Generate an associative array from a file
Message-Id: <a44febe4-3fa8-4ef4-ace2-75bb8aac009d@k2g2000hse.googlegroups.com>
On Feb 28, 12:20=A0pm, Mr_Noob <gniag...@gmail.com> wrote:
> Thank you for these answers. The problem is that what's inside the
> brackets won't always start with the "client"...It can be any string..
> I'll also have a look on Config::INI, Config::Simple, Config::Tiny..
You missed the point. Perl is the Practical Extraction and Reporting
Language. All you are doing os Practically Extracting and Reporting!
This is simply a data transformation task, reading data from one
document, manipulating it, and printing it out to another document.
This is what Perl does, for goodness sake!
Follow this recipe:
1. open the in file.
2. open the out file.
3. while the in file is open, read each line, manipulate it, and
print it to the out file.
4. close the in file.
5. close the out file.
No need for any fancy modules, just the native functions.
CC
------------------------------
Date: Thu, 28 Feb 2008 09:35:29 -0800 (PST)
From: Andy <Ramroop@gmail.com>
Subject: Help with script
Message-Id: <38fc85f6-e3fd-4e0a-b8f7-c6e2f8d37e54@u69g2000hse.googlegroups.com>
Morning Guys
I am pretty new here, tyring to learn as I go.
I have a lil project I am trying to setup
Basically : below is a piece of the file
Has three fields Seperated by ~
6081703039~1~My Own Company
3081709039~1~DeweyCheetham&Howe
9081710039~1~One Bad Firm
2081757039~1~IRSUSUCK
1082445039~1~
Basically I need the file to only show the Field that has all data
I am new so not sure if my syntax is correct
If field 3 is blank then don't show?
Can anyone help me write a Perl script to acocmplish this ?
Thanks a bunch
------------------------------
Date: Thu, 28 Feb 2008 09:43:45 -0800 (PST)
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Help with script
Message-Id: <692995c5-2a1a-4e70-bfb0-734e39195b31@28g2000hsw.googlegroups.com>
On Feb 28, 12:35=A0pm, Andy <Ramr...@gmail.com> wrote:
> Morning Guys
>
> I am pretty new here, tyring to learn as I go.
>
> I have a lil project I am trying to setup
>
> Basically : below is a piece of the file
>
> Has three fields Seperated by ~
>
> 6081703039~1~My Own Company
> 3081709039~1~DeweyCheetham&Howe
> 9081710039~1~One Bad Firm
> 2081757039~1~IRSUSUCK
> 1082445039~1~
>
> Basically I need the file to only show the Field that has all data
>
> I am new so not sure if my syntax is correct
You haven't shown any syntax. How can we help you fix your syntax (if
indeed it is broken) if you don't show it?
> If field 3 is blank then don't show?
>
> Can anyone help me write a Perl script to acocmplish this ?
Sure. We can indeed help. Best place to start would be by showing
what you have so far, so that we can guide you towards improving and
repairing it.
In the meantime, here's a brief pseudo-code of what I gather you want
to do:
read a file line by line
for each line,
obtain the fields separated by hyphens
if the number of fields equals 3
print the line to a new file
endif
endfor
replace the old file with the new one
Paul Lalli
------------------------------
Date: Thu, 28 Feb 2008 10:09:57 -0800 (PST)
From: Andy <Ramroop@gmail.com>
Subject: Re: Help with script
Message-Id: <03f5efbe-94aa-4517-ba40-31113a64ce29@62g2000hsn.googlegroups.com>
On Feb 28, 12:43 pm, Paul Lalli <mri...@gmail.com> wrote:
> On Feb 28, 12:35 pm, Andy <Ramr...@gmail.com> wrote:
>
>
>
> > Morning Guys
>
> > I am pretty new here, tyring to learn as I go.
>
> > I have a lil project I am trying to setup
>
> > Basically : below is a piece of the file
>
> > Has three fields Seperated by ~
>
> > 6081703039~1~My Own Company
> > 3081709039~1~DeweyCheetham&Howe
> > 9081710039~1~One Bad Firm
> > 2081757039~1~IRSUSUCK
> > 1082445039~1~
>
> > Basically I need the file to only show the Field that has all data
>
> > I am new so not sure if my syntax is correct
>
> You haven't shown any syntax. How can we help you fix your syntax (if
> indeed it is broken) if you don't show it?
>
> > If field 3 is blank then don't show?
>
> > Can anyone help me write a Perl script to acocmplish this ?
>
> Sure. We can indeed help. Best place to start would be by showing
> what you have so far, so that we can guide you towards improving and
> repairing it.
>
> In the meantime, here's a brief pseudo-code of what I gather you want
> to do:
> read a file line by line
> for each line,
> obtain the fields separated by hyphens
> if the number of fields equals 3
> print the line to a new file
> endif
> endfor
> replace the old file with the new one
>
> Paul Lalli
Good Day
Thanks Paul
Ok, I have absolutely zero So far.
Two days ago I opened the Learning Perl book and Have been trying to
learn it
Its not as hard as I thought, but I am trying to learn it as I work.
lol
Honestly the whole thing is we get a file...As the above snippet I
pasted.
And The script is only supposed to show the field that has a full line
Hence when we run the script I would only see
FIELD1 2 Field3
6081703039~1~My Own Company
> > 3081709039~1~DeweyCheetham&Howe
> > 9081710039~1~One Bad Firm
> > 2081757039~1~IRSUSUCK
Again I apologize if my whole message was written wrong.
I am still learning this, mind you I only picked up the book on Monday
Thank you for your patience.
------------------------------
Date: Thu, 28 Feb 2008 18:15:30 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Help with script
Message-Id: <6TCxj.48980$w57.16042@edtnps90>
Andy wrote:
>
> I am pretty new here, tyring to learn as I go.
>
> I have a lil project I am trying to setup
>
> Basically : below is a piece of the file
>
> Has three fields Seperated by ~
>
> 6081703039~1~My Own Company
> 3081709039~1~DeweyCheetham&Howe
> 9081710039~1~One Bad Firm
> 2081757039~1~IRSUSUCK
> 1082445039~1~
>
>
> Basically I need the file to only show the Field that has all data
>
> I am new so not sure if my syntax is correct
>
> If field 3 is blank then don't show?
>
> Can anyone help me write a Perl script to acocmplish this ?
while ( <FH> ) {
chomp;
my @fields = split /~/, $_, -1;
if ( 3 != @fields ) {
warn "Error: should be 3 fields, record contains " . @fields .
" fields instead.\n";
next;
}
if ( 3 != grep length, @fields ) {
warn "Error: one of the fields is empty.\n";
next;
}
# Or, just the third field:
unless ( length $fields[ 2 ] ) {
warn "Error: the third field is empty.\n";
next;
}
# process the data
}
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Thu, 28 Feb 2008 10:54:23 -0800 (PST)
From: Andy <Ramroop@gmail.com>
Subject: Re: Help with script
Message-Id: <bd43c9b4-3149-4f80-874e-d6ea704378be@n77g2000hse.googlegroups.com>
On Feb 28, 1:15 pm, "John W. Krahn" <some...@example.com> wrote:
> Andy wrote:
>
> > I am pretty new here, tyring to learn as I go.
>
> > I have a lil project I am trying to setup
>
> > Basically : below is a piece of the file
>
> > Has three fields Seperated by ~
>
> > 6081703039~1~My Own Company
> > 3081709039~1~DeweyCheetham&Howe
> > 9081710039~1~One Bad Firm
> > 2081757039~1~IRSUSUCK
> > 1082445039~1~
>
> > Basically I need the file to only show the Field that has all data
>
> > I am new so not sure if my syntax is correct
>
> > If field 3 is blank then don't show?
>
> > Can anyone help me write a Perl script to acocmplish this ?
>
> while ( <FH> ) {
> chomp;
> my @fields = split /~/, $_, -1;
>
> if ( 3 != @fields ) {
> warn "Error: should be 3 fields, record contains " . @fields .
> " fields instead.\n";
> next;
> }
>
> if ( 3 != grep length, @fields ) {
> warn "Error: one of the fields is empty.\n";
> next;
> }
> # Or, just the third field:
> unless ( length $fields[ 2 ] ) {
> warn "Error: the third field is empty.\n";
> next;
> }
>
> # process the data
> }
>
> John
> --
> Perl isn't a toolbox, but a small machine shop where you
> can special-order certain sorts of tools at low cost and
> in short order. -- Larry Wall
John
Thank you Very Much
I take it I have to turn around and
Add
!#/usr/bin/perl -w
Question How does the script know that I want it to Scrub a particular
file.
In this case the Above snippet is from a file called
msus.dat
?
------------------------------
Date: Thu, 28 Feb 2008 19:26:39 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Help with script
Message-Id: <PVDxj.48989$w57.989@edtnps90>
Andy wrote:
> On Feb 28, 1:15 pm, "John W. Krahn" <some...@example.com> wrote:
>> Andy wrote:
>>
>>> I am pretty new here, tyring to learn as I go.
>>> I have a lil project I am trying to setup
>>> Basically : below is a piece of the file
>>> Has three fields Seperated by ~
>>> 6081703039~1~My Own Company
>>> 3081709039~1~DeweyCheetham&Howe
>>> 9081710039~1~One Bad Firm
>>> 2081757039~1~IRSUSUCK
>>> 1082445039~1~
>>> Basically I need the file to only show the Field that has all data
>>> I am new so not sure if my syntax is correct
>>> If field 3 is blank then don't show?
>>> Can anyone help me write a Perl script to acocmplish this ?
>> while ( <FH> ) {
>> chomp;
>> my @fields = split /~/, $_, -1;
>>
>> if ( 3 != @fields ) {
>> warn "Error: should be 3 fields, record contains " . @fields .
>> " fields instead.\n";
>> next;
>> }
>>
>> if ( 3 != grep length, @fields ) {
>> warn "Error: one of the fields is empty.\n";
>> next;
>> }
>> # Or, just the third field:
>> unless ( length $fields[ 2 ] ) {
>> warn "Error: the third field is empty.\n";
>> next;
>> }
>>
>> # process the data
>> }
>
> John
>
> Thank you Very Much
>
> I take it I have to turn around and
>
> Add
>
> !#/usr/bin/perl -w
Better to add:
#!/usr/bin/perl
use warnings;
use strict;
> Question How does the script know that I want it to Scrub a particular
> file.
It doesn't. The example posted is incomplete.
> In this case the Above snippet is from a file called
>
> msus.dat
Open the file first:
open FH, '<', 'msus.dat' or die "Cannot open 'msus.dat' $!";
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: 28 Feb 2008 20:04:30 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Help with script
Message-Id: <Xns9A528F2EF459Ccastleamber@130.133.1.4>
Andy <Ramroop@gmail.com> wrote:
> Basically : below is a piece of the file
>
> Has three fields Seperated by ~
>
> 6081703039~1~My Own Company
> 3081709039~1~DeweyCheetham&Howe
> 9081710039~1~One Bad Firm
> 2081757039~1~IRSUSUCK
> 1082445039~1~
>
>
> Basically I need the file to only show the Field that has all data
>
> I am new so not sure if my syntax is correct
what syntax?
> If field 3 is blank then don't show?
perl -ne "/~$/ or print;" yf.txt
or
perl -ne "print unless /~$/" yf.txt
(yf.txt is your file :-) )
(assuming Windows, otherwise you might want to use single quotes)
Note: this assumes that the 3rd field can never end in ~
and that the 3rd field blank means empty.
--
John
http://johnbokma.com/mexit/2008/02/
------------------------------
Date: Thu, 28 Feb 2008 12:41:00 -0800 (PST)
From: Andy <Ramroop@gmail.com>
Subject: Re: Help with script
Message-Id: <c642309c-6b6e-47ae-af42-f9dadc033391@n58g2000hsf.googlegroups.com>
On Feb 28, 3:04 pm, John Bokma <j...@castleamber.com> wrote:
> Andy <Ramr...@gmail.com> wrote:
> > Basically : below is a piece of the file
>
> > Has three fields Seperated by ~
>
> > 6081703039~1~My Own Company
> > 3081709039~1~DeweyCheetham&Howe
> > 9081710039~1~One Bad Firm
> > 2081757039~1~IRSUSUCK
> > 1082445039~1~
>
> > Basically I need the file to only show the Field that has all data
>
> > I am new so not sure if my syntax is correct
>
> what syntax?
>
> > If field 3 is blank then don't show?
>
> perl -ne "/~$/ or print;" yf.txt
>
> or
>
> perl -ne "print unless /~$/" yf.txt
>
> (yf.txt is your file :-) )
>
> (assuming Windows, otherwise you might want to use single quotes)
>
> Note: this assumes that the 3rd field can never end in ~
> and that the 3rd field blank means empty.
>
> --
> John
>
> http://johnbokma.com/mexit/2008/02/
John
thank you that worked wonderfully
although I am trying to understand why.
But as I was playing around I removed some characters from the file
and it prints data from lines that I removed the ~1~ For instance the
1
Can u explain some of this ,
Pardon if I am asking to much, but I am curious.
I have been wanting to delve into perl for a long while.
------------------------------
Date: Thu, 28 Feb 2008 08:48:37 -0800
From: pauls <pauls@nospam.off>
Subject: Re: how to remove the letter n from a line of text
Message-Id: <08KdnZnDT9ZveFvanZ2dnUVZ_oesnZ2d@seanet.com>
Jürgen Exner wrote:
> pauls <pauls@nospam.off> wrote:
>> I want to replace all occurances of the letter n in a line of text.
>> The confusion I am having is due to the fact that n denotes a new line
>> in reg expressions.
>
> No, it doesn't. "\n" denotes a newline when interpolated in a double quoted
> string.
>
>> I tried to do this:
>> s/n/fred/; to replace the letter n with fred. But, it did not happen.
>
> Works for me
>
> use strict; use warnings;
> $_ = 'banana';
> s/n/fred/g;
> print;
>
> C:\tmp>t.pl
> bafredafreda
>
> jue
Let me be more clear and correct myself:
What I was actually trying was this:
$my_variable =~ s/n/e-9/;
where the variable $my_variable has this in it: 3.5n
and I was hoping to change it to:
3.5e-9
when I read-in the data and do the following (below) on $_
s/n/e-9/;
it works!
But if I do it like this:
$my_variable =~ s/n/e-9/;
The n is removed but not replaced by the e-9
Thanks
P.
------------------------------
Date: 28 Feb 2008 16:59:43 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: how to remove the letter n from a line of text
Message-Id: <Xns9A526FDA8E974castleamber@130.133.1.4>
pauls <pauls@nospam.off> wrote:
> Let me be more clear and correct myself:
> What I was actually trying was this:
>
> $my_variable =~ s/n/e-9/;
I doubt it. Please always post a minimal working Perl program that shows
the issue. A lot of problems are solved that way before they have to be
posted to Usenet in the first place. And if it doesn't, at least it
doesn't waste *everbody's* time (including yours) with a game of "guess
the error".
perl -e "my $mv='3.5n'; $mv =~ s/n/e-9/; print $mv"
3.5e-9
--
John
http://johnbokma.com/mexit/2008/
------------------------------
Date: Thu, 28 Feb 2008 18:27:39 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: how to remove the letter n from a line of text
Message-Id: <huuds3tugfqqrj2k2v0plvvh6gmmr26d2e@4ax.com>
pauls <pauls@nospam.off> wrote:
>Let me be more clear and correct myself:
>What I was actually trying was this:
>
>$my_variable =~ s/n/e-9/;
>
>where the variable $my_variable has this in it: 3.5n
>
>
>and I was hoping to change it to:
>
>3.5e-9
>
>
>when I read-in the data and do the following (below) on $_
>
>s/n/e-9/;
>
>it works!
>
>But if I do it like this:
>
>$my_variable =~ s/n/e-9/;
>
>The n is removed but not replaced by the e-9
Again, I cannot reproduce your problem based on your verbal description:
C:\tmp>type t.pl
use warnings; use strict;
my $my_variable = '3.5n';
$my_variable =~ s/n/e-9/;
print $my_variable;
C:\tmp>t.pl
3.5e-9
Is there a specific reason why you don't post a minimal self-contained
script that produces your problem as recommended in the posting guidelines?
jue
------------------------------
Date: 28 Feb 2008 18:08:22 GMT
From: xhoster@gmail.com
Subject: Re: subroutines vs method vs function
Message-Id: <20080228130824.625$cR@newsreader.com>
BH <Benson.Hoi@googlemail.com> wrote:
> Hi,
>
> Can someone clarify the 3 terms wrt Perl providing with some examples?
"subroutine" and "function" are basically interchangeable. There is a
tendency to use "function" for built-in ones and "subroutine" for
user-defined ones, but that is a tendency, not a law.
Methods are subroutines invoked in an object-oriented way.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Thu, 28 Feb 2008 16:47:57 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: unicode via DBI on linux to sql server 2005?
Message-Id: <13sdpdueas57rab@corp.supernews.com>
bugbear wrote:
> I'm not really sure which forum to post this on!
>
> I am attempting to retrieve data from an sql server 2005 database, hosted,
> store and manipulated on a Windows box.
>
> My code is running on a Linux box, and I have been given
> read-only access to the DB server.
>
> Connection via DBI is working well, but I am failing
> to extract unicode data from the DB, which I understand
> from googling is stored internally as UCS2.
> (I can get ascii data and numeric data fine)
>
> I am using perl, DBI, and the DBD::Sybase driver.
>
> So - has anyone retrieved "international" data
> in the same (or similar) circumstances as this?
Ye - me! It turns out the client character
set, into which the connection attempts to encode
the data, is NOT set from the DBI connection string
http://search.cpan.org/~mewp/DBD-Sybase-1.08/Sybase.pm
i.e. charset=utf-8
but in the freedts.conf file, which is part of the connection.
http://www.freetds.org/userguide/freetdsconf.htm
as the "client charset" parameter.
So I added
client charset = UTF8
And my code did what I needed.
Hoping this helps someone else...
BugBear
------------------------------
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 V11 Issue 1317
***************************************
