[24386] in Perl-Users-Digest
Perl-Users Digest, Issue: 6574 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 17 14:05:58 2004
Date: Mon, 17 May 2004 11:05:11 -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 Mon, 17 May 2004 Volume: 10 Number: 6574
Today's topics:
how to clear the terminal <egoist99NO@SPAMyahoo.de>
Re: how to clear the terminal <usenet@morrow.me.uk>
Initiate perl script in linux from a Windows VBA progra (b wreath)
Re: Initiate perl script in linux from a Windows VBA pr <usenet@morrow.me.uk>
Re: IO::Socket problem <someone@somewhere.com>
Re: IO::Socket problem <ThomasKratz@REMOVEwebCAPS.de>
Re: Passing params from cli/sh <takesmore--nospam--thanthat@hotmale.com>
Perl/CGI IIS setup issues and problems (Stephen)
Re: Perl/CGI IIS setup issues and problems <usenet@morrow.me.uk>
Re: print all combinations <bik.mido@tiscalinet.it>
Re: print all combinations <bik.mido@tiscalinet.it>
Re: print all combinations <dwall@fastmail.fm>
Re: print all combinations <dwall@fastmail.fm>
Re: print all combinations (Randal L. Schwartz)
Re: Random Integer (Anno Siegel)
Style question. moller@notvalid.se
Re: Using Perl in Windows / Dreamweaver <noreply@gunnar.cc>
Writing a module comprised of several files? <ahc@jhu.edu>
XML::Simple Example perl help needed <davezx1@yahoo.com>
Re: XML::Simple Example perl help needed <remorse@partners.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 May 2004 18:16:02 +0200
From: Robert Meyer <egoist99NO@SPAMyahoo.de>
Subject: how to clear the terminal
Message-Id: <pan.2004.05.17.16.16.02.824151@SPAMyahoo.de>
Hi NG,
sorry for my question, but i didn't found anything about how to clear the
terminal.
I try `clear`; in the script but this does not work.
Any ideas?
thx
Robert
--
There are only 10 types of people in the world:
Those who understand binary, and those who don't.
http://www.one-m.de
http://www.lugbz.org/documents/smart-questions_de.html
------------------------------
Date: Mon, 17 May 2004 16:41:48 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: how to clear the terminal
Message-Id: <c8aq0c$238$2@wisteria.csv.warwick.ac.uk>
Quoth Robert Meyer <egoist99NO@SPAMyahoo.de>:
> sorry for my question, but i didn't found anything about how to clear the
> terminal.
> I try `clear`; in the script but this does not work.
See Term::ANSIScreen from CPAN.
Ben
--
Like all men in Babylon I have been a proconsul; like all, a slave ... During
one lunar year, I have been declared invisible; I shrieked and was not heard,
I stole my bread and was not decapitated.
~ ben@morrow.me.uk ~ Jorge Luis Borges, 'The Babylon Lottery'
------------------------------
Date: 17 May 2004 09:02:48 -0700
From: bearwreath@yahoo.ca (b wreath)
Subject: Initiate perl script in linux from a Windows VBA program
Message-Id: <4ce1b1cd.0405170802.6e92e833@posting.google.com>
Hi,
I would appreciate help with the following. I would like to be able
to initiate a perl script that is residing on a linux server from an
Excel workbook. I am working on the Excel workbook in Windows. I
would appreciate any pointers, sample code for accomplishing this in
VBA or some other method.
The perl script that I am trying to call will take the information
from the
from a mysql database and update the Excel sheet.
The script will also take information from the Excel sheet and update
the
database.
thanks very much.
------------------------------
Date: Mon, 17 May 2004 16:41:17 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Initiate perl script in linux from a Windows VBA program
Message-Id: <c8apvd$238$1@wisteria.csv.warwick.ac.uk>
Quoth bearwreath@yahoo.ca (b wreath):
> I would appreciate help with the following. I would like to be able
> to initiate a perl script that is residing on a linux server from an
> Excel workbook. I am working on the Excel workbook in Windows. I
> would appreciate any pointers, sample code for accomplishing this in
> VBA or some other method.
>
> The perl script that I am trying to call will take the information from the
> from a mysql database and update the Excel sheet. The script will also take
> information from the Excel sheet and update the database.
Well, the first question here is 'what ways are there of initiating a
connection with another machine in VBA?'. Can you open sockets? Can you
make HTTP requests? XMLRPC requests? Until we know this we can't help
with the perl side.
If you can make HTTP requests, then this is probably the easiest answer.
Set up a web server on the linux box, with your perl script as a CGI,
and have the VBA perform a POST request which sends the pertinant(sp?)
data from the spreadsheet and receives the data from the database back.
If you can't make any sort of connection from within Excel, then I
reckon the best way forward is to install Perl on the windows machine as
well, and have the VBA invoke a perl script. This script can then get at
the open workbook using Win32::OLE, and communicate with the other
machine in any way reasonable: say, you have inetd listen on a given
port and invoke your perl script on the linux box, and the script on the
windows machine can then open a socket and pass the data back and forth
as needed.
You will need to design a protocol for these transactions; make sure you
think hard about it, so that it's properly extensible when you need it
to be. You will also need to think about security: how is the windows
machine going to prove to the linux machine that it is who it claims it
is, and vice versa (just as important in a case like this)? Is the data
concerned sensitive, so that you need to use SSL or whatever to encrypt
the transaction?
Modules to look at:
Win32::OLE for talking to Excel
IO::Socket::INET for opening sockets
IO::Socket::SSL for opening encrypted SSL sockets
DBI and DBD::mysql for talking to MySQL
maybe Storable, for 'freezing' perl data structures so they can be sent
to another perl process on a different machine
CGI or CGI::Lite for writing CGI scripts
Ben
--
It will be seen that the Erwhonians are a meek and long-suffering people,
easily led by the nose, and quick to offer up common sense at the shrine of
logic, when a philosopher convinces them that their institutions are not based
on the strictest morality. [Samuel Butler, paraphrased] ben@morrow.me.uk
------------------------------
Date: Mon, 17 May 2004 16:45:01 +0100
From: "Bigus" <someone@somewhere.com>
Subject: Re: IO::Socket problem
Message-Id: <c8amlv$1a10@newton.cc.rl.ac.uk>
"Thomas Kratz" <ThomasKratz@REMOVEwebCAPS.de> wrote in message
news:40a4f19e.0@juno.wiesbaden.netsurf.de...
> Bigus wrote:
>
> [...]
>
> >
> > The "send command" block is the bit I'm having problems with. The
response
> > from the server, to the command I'm issuing, results in multiple lines
so
> > I'm trying to catch it with the $lsv->getlines method into an array.
> > However, the cursor just hangs and nothing is printed. If I change the
"send
> > command" block to:
> >
> > # Send command
> > $lsv->print("$cmd\n");
> > while(my $line = $lsv->getline){
> > print $line;
> > }
> >
> > That works to the extent that all the expected lines are printed but the
> > script seems to get stuck in the while. In others it hangs at the end of
the
> > command response.
>
> That's because you call $lsv->getline one time to often and it blocks,
> because there is nothing to read anymore.
>
> > If I stick a:
> >
> > last if eof($line);
> >
> > line into the while loop after the print line, it prints *only* the
first
> > line of the command output and then exits properly.
>
> eof($line)? Surely you mean $lsv->eof(), don't you. But this should also
> block because in checking for eof you still have to read from the socket.
>
> Have a look at IO::Select and the can_read() method. You will be able to
> tell if a subsequent read will be successfull or not.
I can't seem to get it to work.. I'll hunt around for some more examples.
Thanks
Bigus
------------------------------
Date: Mon, 17 May 2004 18:51:24 +0200
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: IO::Socket problem
Message-Id: <40a8ef05.0@juno.wiesbaden.netsurf.de>
Bigus wrote:
>
> I can't seem to get it to work.. I'll hunt around for some more examples.
Try this [modified original script]:
(untested)
====================
use strict;
use warnings;
my $email = "blah\@blah.com";
my $cmd = "some command";
# Connect to Listserv
use IO::Socket;
my $lsv = new IO::Socket::INET( PeerAddr => 'localhost',
PeerPort => 2306,
Proto => 'tcp');
$lsv or die "Connection problem :$!";
# Send command header & check return code
my $len = length($email)+length($cmd)+1;
my $bin =
pack("a*CCCa*","\r\n",int($len/256),$len-(int($len/256)*256),length($email),
$email);
$lsv->print("1B".$bin);
my $msg = $lsv->getline;
exit if $msg !~ /^250/;
use IO::Select;
my $sel = IO::Select->new();
$sel->add($lsv);
# Send command
$lsv->print("$cmd\n");
my @lines;
while ( $sel->can_read(0.1) ) {
last if $lsv->eof;
my $line = $lsv->getline;
push @lines, $line;
}
print "@lines";
# Close socket
close $lsv;
====================
This should not block and print all lines available.
Thomas
--
open STDIN,"<&DATA";$=+=14;$%=50;while($_=(seek( #J~.> a>n~>>e~.......>r.
STDIN,$:*$=+$,+$%,0),getc)){/\./&&last;/\w| /&&( #.u.t.^..oP..r.>h>a~.e..
print,$_=$~);/~/&&++$:;/\^/&&--$:;/>/&&++$,;/</ #.>s^~h<t< ..~. ...c.^..
&&--$,;$:%=4;$,%=23;$~=$_;++$i==1?++$,:_;}__END__#....>>e>r^..>l^...>k^..
------------------------------
Date: Mon, 17 May 2004 13:02:31 GMT
From: idis <takesmore--nospam--thanthat@hotmale.com>
Subject: Re: Passing params from cli/sh
Message-Id: <Xns94EC5AE64293Cx@65.24.7.150>
Joe Smith <Joe.Smith@inwap.com> wrote in
news:KI%pc.22909$6f5.2312726@attbi_s54:
> idis wrote:
>
>> looked at the man pages and the conflicting examples from book to pc
>> only served to make things worse.. The book is history..
>
> Do you have the most recent version of perl installed on the PC?
> http://www.perl.org/ says the latest source version is 5.8.4 and
> http://www.perl.org/get.html mentions 5.8.3 binaries (Win32 & Linux &
> more).
>
5.8.3-16 is the freshist that im getting from apt..
-i
------------------------------
Date: 17 May 2004 06:36:16 -0700
From: photochop@comcast.net (Stephen)
Subject: Perl/CGI IIS setup issues and problems
Message-Id: <6a32f4e7.0405170536.4fc35df6@posting.google.com>
Hey all! I have a server on our local intranet that I'm setting up to
run perl scripts and cgi scripts. When loading the file from the
server itself (http://localhost/cgi-bin/test.cgi) it works fine,
however, if I load the page from another computer on the local
intranet, I get the following message:
"Windows cannot open this file:
File: test[1].cgi
To open this file, Windows needs to know what program created it.
Windows can go online to look it up automatically...etc...etc...etc"
This leads me to believe that there's a problem with the application
mapping for the .pl and .cgi extensions. Any idea of where I need to
start looking?
Thanks a lot,
-Steve
------------------------------
Date: Mon, 17 May 2004 14:19:11 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Perl/CGI IIS setup issues and problems
Message-Id: <c8ahkv$p52$1@wisteria.csv.warwick.ac.uk>
Quoth photochop@comcast.net (Stephen):
> Hey all! I have a server on our local intranet that I'm setting up to
> run perl scripts and cgi scripts. When loading the file from the
> server itself (http://localhost/cgi-bin/test.cgi) it works fine,
> however, if I load the page from another computer on the local
> intranet, I get the following message:
>
> "Windows cannot open this file:
> File: test[1].cgi
> To open this file, Windows needs to know what program created it.
> Windows can go online to look it up automatically...etc...etc...etc"
>
> This leads me to believe that there's a problem with the application
> mapping for the .pl and .cgi extensions. Any idea of where I need to
> start looking?
The configuration for your webserver. This problem has nothing to do
with perl, and would be better asked in
comp.infosystems.www.servers.ms-windows or some Microsoft forum.
As a (fairly random) guess, is your script printing an appropriate
Content-type: header...?
Ben
--
I've seen things you people wouldn't believe: attack ships on fire off
the shoulder of Orion; I watched C-beams glitter in the dark near the
Tannhauser Gate. All these moments will be lost, in time, like tears in rain.
Time to die. ben@morrow.me.uk
------------------------------
Date: Mon, 17 May 2004 14:13:26 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: print all combinations
Message-Id: <5e6ha0hno4antrinkn4ro3bf303hfc24do@4ax.com>
On 16 May 2004 18:48:00 -0700, charley@pulsenet.com (Chris Charley)
wrote:
>You can use this feature of glob(), (or <>).
>
>for(<{B}{V,X}{1,2,3,4,5,6,7,8}{A,B,C,D,E,F,G}>) {
> print "$_\n";
> }
>
>Note that I don't have the full alphabet and only A to G for demo
>purposes.
>Thats because the full alphabet wouldn't fit on one line here in
>Google. But if you supply the full alphabet, it will print all 416
Well, but then, if one *really* wants to use glob(), there's a nice
interpolating facility:
#!/usr/bin/perl -l
# ...
{
local $"=',' ;
print for glob "B{V,X}{@{[1..8]}}{@{['A'..'Z']}}";
}
PS: We're *not* "here in google" ;-)
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Mon, 17 May 2004 14:13:27 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: print all combinations
Message-Id: <rv4ha0pcsp796g4v5fg6jebggdb7815pkv@4ax.com>
On Sat, 15 May 2004 10:16:58 +0800, Dan Jacobson <jidanni@jidanni.org>
wrote:
>Let's say our country's radio callsigns look like the output of
>for $a('B'){for $b(qw{V X}){for $c(1..8){for $d('A'..'Z'){print "$a$b$c$d\n"}}}}
BTW: surprising as it may be $a, $b are not (well, *may not be*) good
as generic purpose variables. See 'perldoc perlvar'.
>It bothers me that even though I can describe those callsigns
>with regexp /B[VX][1-8][A-Z]/, in printing them out one needs to write
>for loops for each element. Isn't there some
>sub combinations(){print all the combinations of all the elements of
>the array (not permutations)} that I can write?
Well, as another poster suggested, you can use glob() for that, but
IMHO it's an overkill, and not particularly elegant.
I'd rather go the multiple 'for', or map() for what it matters, way.
Though if you find yourself doing this kind of things quite frequently
you may roll your own sub for this kind of things. In one case I
did...
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Mon, 17 May 2004 14:09:18 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: print all combinations
Message-Id: <Xns94EC674CCFBB4dkwwashere@216.168.3.30>
Dan Jacobson <jidanni@jidanni.org> wrote:
> Let's say our country's radio callsigns look like the output of
> for $a('B'){for $b(qw{V X}){for $c(1..8){for $d('A'..'Z'){print
> "$a$b$c$d\n"}}}} It bothers me that even though I can describe
> those callsigns with regexp /B[VX][1-8][A-Z]/, in printing them
> out one needs to write for loops for each element. Isn't there
> some sub combinations(){print all the combinations of all the
> elements of the array (not permutations)} that I can write?
Here's one way.
sub combos {
return @{$_[0]} if @_ == 1;
my $aref = shift;
my @result;
for my $element ( combos(@_) ) {
push @result, map { $_ . $element } @$aref;
}
return @result;
}
print join "\n", combos(['B'], ['V','X'], [1..8], ['A'..'Z']);
This seems familar. I suspect there has been a previous thread about
it here sometime, but I don't feel like searching Google for it.
------------------------------
Date: Mon, 17 May 2004 14:19:58 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: print all combinations
Message-Id: <Xns94EC691C12044dkwwashere@216.168.3.30>
I wrote:
[snip]
> This seems familar.
s/familar/familiar/
------------------------------
Date: Mon, 17 May 2004 15:10:31 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: print all combinations
Message-Id: <1088407749e7be554b602335e2b48031@news.teranews.com>
>>>>> "Dan" == Dan Jacobson <jidanni@jidanni.org> writes:
Dan> Let's say our country's radio callsigns look like the output of
Dan> for $a('B'){for $b(qw{V X}){for $c(1..8){for $d('A'..'Z'){print
Dan> "$a$b$c$d\n"}}}} It bothers me that even though I can describe
Dan> those callsigns with regexp /B[VX][1-8][A-Z]/, in printing them
Dan> out one needs to write for loops for each element. Isn't there
Dan> some sub combinations(){print all the combinations of all the
Dan> elements of the array (not permutations)} that I can write?
my @all_combos = glob
join "",
map "{".join(",", @$_)."}",
['B'], ['V', 'X'], [1..8], ['A'..'Z'];
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 17 May 2004 10:36:30 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Random Integer
Message-Id: <c8a4je$egv$1@mamenchi.zrz.TU-Berlin.DE>
Jeff 'japhy' Pinyan <pinyaj@rpi.edu> wrote in comp.lang.perl.misc:
> On 14 May 2004, Walter Roberson wrote:
>
> >In article <qz7pc.67201$P35.13308@newssvr25.news.prodigy.com>,
> >Ala Qumsieh <notvalid@email.com> wrote:
> >:Iain Chalmers wrote:
> >
> >:> $num=sprintf "%u",rand($n+1);
> >
> >:Hmmm .. what's wrong with int()?
> >
> >int() truncates. sprintf rounds. See the perl documentation for int,
> >which suggests "usually" sprintf over int.
>
> Um, I've seen %.0f used to round, but never %u. That just truncates. And
> %.0f is imperfect:
>
> printf "%.0f %.0f", 1.5, 2.5; # 2 2
That's IEEE rounding. When the fractional part is exactly 0.5, round
to the neighboring *even* number.
Anno
------------------------------
Date: Mon, 17 May 2004 12:41:51 GMT
From: moller@notvalid.se
Subject: Style question.
Message-Id: <ubrknfcno.fsf@notvalid.se>
What is the best practice regarding 'use module' statments.
Should they be put at the top of the file or
at the top of the sub using it?
Or both?
------------------------------
Date: Mon, 17 May 2004 14:16:22 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Using Perl in Windows / Dreamweaver
Message-Id: <2groo7F605o7U1@uni-berlin.de>
gomerpyl3 wrote:
> I am unsure how I would go about including perl / cgi scripts in
> dreamweaver - can anyone shed any light on this?
>
> In particular, I would be looking to make my own input forms &
> maybe a basic bulletin board.
Can you shed any light on what it is that makes Dreamweaver so special
that you found a need to ask?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 17 May 2004 13:55:52 -0400
From: Andrew Crabb <ahc@jhu.edu>
Subject: Writing a module comprised of several files?
Message-Id: <c8atvp$rj2$1@news.hcf.jhu.edu>
I'm making a module that I'd like to put into CPAN eventually. The code
does not lend itself to being in one file - for instance, there is a
data dictionary 2,000 lines long that seems it should be in its own
file. Also I'm trying to make it as OO as possible, and there are
subclasses that have no real utility outside of the context of being
used in the main module. So they're extra files, too.
Question: Say my module is called Image::Munge. So my main file is
called Image/Munge.pm. Where do I put the other files - in
Image/Munge/UtilityFile.pm etc? And if my module (class) Image::Munge
uses a utility class UtilityClass, it'd be called
Image::Munge::UtilityClass right? And its file would be
Image/Munge/UtilityClass.pm. But this utility class is not useful on
its own - can I prevent it from being 'visible' so that people do not
inadvertantly try to use it?
Hope I've made this as clear as mud.
Andy
------------------------------
Date: Mon, 17 May 2004 12:41:40 -0400
From: "David Staschover" <davezx1@yahoo.com>
Subject: XML::Simple Example perl help needed
Message-Id: <dW5qc.244$ri.29178@dfw-read.news.verio.net>
Hi,
Can someone help me get this working?
Sample XML File test.xml:
<top1>
<field>
<value1>100</value1>
<value2>test value1</value2>
</field>
<field>
<value1>107</value1>
<value2>test value2</value2>
</field>
</top1>
This program gets and prints the values for value1 and value2 without a
problem:
#!/usr/bin/perl
use XML::Simple;
$simple = XML::Simple->new();
$struct = $simple->XMLin("test.xml", forcearray => 1, keeproot => 1);
for (@{$struct->{top1}->[0]->{field}})
{
print "
$_->{value1}->[0]
$_->{value2}->[0]
";
}
How can I get the same output using this XML file (I added <top>)?
<top>
<top1>
<field>
<value1>100</value1>
<value2>test value1</value2>
</field>
<field>
<value1>107</value1>
<value2>test value2</value2>
</field>
</top1>
<top>
Thanks in advanced!
David
------------------------------
Date: Mon, 17 May 2004 14:03:17 -0400
From: Richard Morse <remorse@partners.org>
Subject: Re: XML::Simple Example perl help needed
Message-Id: <remorse-AC8BA7.14031717052004@plato.harvard.edu>
In article <dW5qc.244$ri.29178@dfw-read.news.verio.net>,
"David Staschover" <davezx1@yahoo.com> wrote:
> Hi,
>
> Can someone help me get this working?
>
> Sample XML File test.xml:
>
> <top1>
> <field>
> <value1>100</value1>
> <value2>test value1</value2>
> </field>
> <field>
> <value1>107</value1>
> <value2>test value2</value2>
> </field>
> </top1>
>
>
> This program gets and prints the values for value1 and value2 without a
> problem:
>
> #!/usr/bin/perl
> use XML::Simple;
> $simple = XML::Simple->new();
> $struct = $simple->XMLin("test.xml", forcearray => 1, keeproot => 1);
> for (@{$struct->{top1}->[0]->{field}})
> {
> print "
> $_->{value1}->[0]
> $_->{value2}->[0]
> ";
> }
>
> How can I get the same output using this XML file (I added <top>)?
>
> <top>
> <top1>
> <field>
> <value1>100</value1>
> <value2>test value1</value2>
> </field>
> <field>
> <value1>107</value1>
> <value2>test value2</value2>
> </field>
> </top1>
> <top>
Off the top of my head, probably by changing the for loop to be:
for (@{$struct->{top}->{top1}->[0]->{field}}) {
HTH,
Ricky
--
Pukku
------------------------------
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 6574
***************************************
