[28043] in Perl-Users-Digest
Perl-Users Digest, Issue: 9407 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 29 14:10:14 2006
Date: Thu, 29 Jun 2006 11:10:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 29 Jun 2006 Volume: 10 Number: 9407
Today's topics:
prematurely closed filehandle <jmoon@uab.edu>
Re: prematurely closed filehandle <rvtol+news@isolution.nl>
Re: prematurely closed filehandle <jmoon@uab.edu>
Re: prematurely closed filehandle <jmoon@uab.edu>
Re: prematurely closed filehandle <please.reply@to.group>
Re: prematurely closed filehandle <rvtol+news@isolution.nl>
Professional IDE for a cross-platform Perl application <catdogbeloved@yahoo.com>
Re: Professional IDE for a cross-platform Perl applicat <rvtol+news@isolution.nl>
Re: Professional IDE for a cross-platform Perl applicat <catdogbeloved@yahoo.com>
Re: puting an excel file into a perl data structure <hjp-usenet2@hjp.at>
Re: reading in a nested formatted data structure with q <rvtol+news@isolution.nl>
Re: replacement of slow unpack <u8526505@gmail.com>
Re: validating data before trusting to use in a system guser@packetstorm.org
Re: WIN32 PPM and perldoc problems jovo.miskin@sciatl.com
Re: WIN32 PPM and perldoc problems <rvtol+news@isolution.nl>
Re: WIN32 PPM and perldoc problems jovo.miskin@sciatl.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Jun 2006 08:02:43 -0700
From: "Jim" <jmoon@uab.edu>
Subject: prematurely closed filehandle
Message-Id: <1151593363.560251.226410@75g2000cwc.googlegroups.com>
Hi,
The problem description is below. I would like for Script 2 to work
within IIS. Any feedback would be greatly appreciated. Thanks!
Jim
Windows XP SP2
ActivePerl 5.8.2 Build 808
Script 1
Run from the command line, this script works just fine, with or without
#!/usr/local/bin/perl -w
#!/usr/local/bin/perl -w
use CGI qw(:standard);
use Win32::OLE;
open RUNBLAST2, "| C:\\Inetpub\\wwwroot\\port\\blast\\blastall -e .01
-p blastp -d C:\\Inetpub\\wwwroot\\port\\blast\\db\\gbpoxpep -F F -m 7
-o C:\\Inetpub\\wwwroot\\webtemp\\152895786322021484375.xml ";
print RUNBLAST2 ">CNPV-WC93:007\nMKSYDDKVKE LYSAIESNDK";
close RUNBLAST2 ;
exit(0);
Script2
Accessed via IIS, this script has a problem:
print() on closed filehandle RUNBLAST2 at
c:\inetpub\wwwroot\port\blast\blast_xml_run_p.pl line 8.
If I remove #!/usr/local/bin/perl -w, the script still doesn't work,
but no error message is returned.
#!/usr/local/bin/perl -w
use CGI qw(:standard);
use Win32::OLE;
print header(), start_html(-title=>'Test',
#-BACKGROUND=>'pebblebackgrd.gif',
-BGCOLOR=>'#FFFFFF');
open RUNBLAST2, "| C:\\Inetpub\\wwwroot\\port\\blast\\blastall -e .01
-p blastp -d C:\\Inetpub\\wwwroot\\port\\blast\\db\\gbpoxpep -F F -m 7
-o C:\\Inetpub\\wwwroot\\webtemp\\152895786322021484376.xml ";
print RUNBLAST2 ">CNPV-WC93:007\nMKSYDDKVKE LYSAIESNDK";
close RUNBLAST2 ;
print end_html();
exit(0);
------------------------------
Date: Thu, 29 Jun 2006 17:27:08 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: prematurely closed filehandle
Message-Id: <e812i9.1cc.1@news.isolution.nl>
Jim schreef:
> open RUNBLAST2, "| C:\\Inetpub\\wwwroot\\port\\blast\\blastall -e .01
> -p blastp -d C:\\Inetpub\\wwwroot\\port\\blast\\db\\gbpoxpep -F F -m 7
> -o C:\\Inetpub\\wwwroot\\webtemp\\152895786322021484375.xml ";
You should always check for the open to succeed.
#!perl
use strict ;
use warnings ;
use CGI qw(:standard) ;
use Win32::OLE ;
my $root = 'C:/Inetpub/wwwroot' ;
my $blast = "$root/port/blast" ;
open RUNBLAST2,
"| $blast/blastall" .
" -e .01" .
" -p blastp" .
" -d $blast/db/gbpoxpep" .
" -F F" .
" -m 7" .
" -o $root/webtemp/152895786322021484375.xml"
or die "Ouch: $!" ;
etc.
(untested)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 29 Jun 2006 08:53:30 -0700
From: "Jim" <jmoon@uab.edu>
Subject: Re: prematurely closed filehandle
Message-Id: <1151596410.098953.128670@p79g2000cwp.googlegroups.com>
Dr.Ruud wrote:
> Jim schreef:
>
> > open RUNBLAST2, "| C:\\Inetpub\\wwwroot\\port\\blast\\blastall -e .01
> > -p blastp -d C:\\Inetpub\\wwwroot\\port\\blast\\db\\gbpoxpep -F F -m 7
> > -o C:\\Inetpub\\wwwroot\\webtemp\\152895786322021484375.xml ";
>
> You should always check for the open to succeed.
>
> #!perl
> use strict ;
> use warnings ;
> use CGI qw(:standard) ;
> use Win32::OLE ;
>
> my $root = 'C:/Inetpub/wwwroot' ;
> my $blast = "$root/port/blast" ;
>
> open RUNBLAST2,
> "| $blast/blastall" .
> " -e .01" .
> " -p blastp" .
> " -d $blast/db/gbpoxpep" .
> " -F F" .
> " -m 7" .
> " -o $root/webtemp/152895786322021484375.xml"
> or die "Ouch: $!" ;
>
> etc.
>
> (untested)
>
> --
> Affijn, Ruud
>
> "Gewoon is een tijger."
Dr. Ruud,
Thank you for the reply and the advice!
This script (below) runs fine from the command line, but not in IIS,
when browsed to from Internet Explorer. The error message is:
Ouch: Bad file descriptor at
c:\inetpub\wwwroot\port\blast\blast_xml_run_p.pl line 13.
Might you have any idea what causes the "Bad file descriptor" message?
Jim
#!perl
use strict;
use warnings;
use CGI qw(:standard);
use Win32::OLE;
my $root = 'C:/Inetpub/wwwroot' ;
my $blast = "$root/port/blast" ;
print header(), start_html(-title=>'Invalid Form Variables',
#-BACKGROUND=>'pebblebackgrd.gif',
-BGCOLOR=>'#FFFFFF');
open RUNBLAST2,
"| $blast/blastall" .
" -e .01" .
" -p blastp" .
" -d $blast/db/gbpoxpep" .
" -F F" .
" -m 7" .
" -o $root/webtemp/1528957863220214843.xml"
or die "Ouch: $!" ;
print RUNBLAST2 ">CNPV-WC93:007\nMKSYDDKVKE LYSAIESNDK";
close RUNBLAST2 ;
print end_html();
exit(0);
------------------------------
Date: 29 Jun 2006 09:14:00 -0700
From: "Jim" <jmoon@uab.edu>
Subject: Re: prematurely closed filehandle
Message-Id: <1151597640.291342.315110@j72g2000cwa.googlegroups.com>
Jim wrote:
> Dr.Ruud wrote:
> > Jim schreef:
> >
> > > open RUNBLAST2, "| C:\\Inetpub\\wwwroot\\port\\blast\\blastall -e .01
> > > -p blastp -d C:\\Inetpub\\wwwroot\\port\\blast\\db\\gbpoxpep -F F -m 7
> > > -o C:\\Inetpub\\wwwroot\\webtemp\\152895786322021484375.xml ";
> >
> > You should always check for the open to succeed.
> >
> > #!perl
> > use strict ;
> > use warnings ;
> > use CGI qw(:standard) ;
> > use Win32::OLE ;
> >
> > my $root = 'C:/Inetpub/wwwroot' ;
> > my $blast = "$root/port/blast" ;
> >
> > open RUNBLAST2,
> > "| $blast/blastall" .
> > " -e .01" .
> > " -p blastp" .
> > " -d $blast/db/gbpoxpep" .
> > " -F F" .
> > " -m 7" .
> > " -o $root/webtemp/152895786322021484375.xml"
> > or die "Ouch: $!" ;
> >
> > etc.
> >
> > (untested)
> >
> > --
> > Affijn, Ruud
> >
> > "Gewoon is een tijger."
>
> Dr. Ruud,
>
> Thank you for the reply and the advice!
>
> This script (below) runs fine from the command line, but not in IIS,
> when browsed to from Internet Explorer. The error message is:
>
> Ouch: Bad file descriptor at
> c:\inetpub\wwwroot\port\blast\blast_xml_run_p.pl line 13.
>
> Might you have any idea what causes the "Bad file descriptor" message?
>
> Jim
>
>
> #!perl
> use strict;
> use warnings;
> use CGI qw(:standard);
> use Win32::OLE;
> my $root = 'C:/Inetpub/wwwroot' ;
> my $blast = "$root/port/blast" ;
> print header(), start_html(-title=>'Invalid Form Variables',
> #-BACKGROUND=>'pebblebackgrd.gif',
> -BGCOLOR=>'#FFFFFF');
> open RUNBLAST2,
> "| $blast/blastall" .
> " -e .01" .
> " -p blastp" .
> " -d $blast/db/gbpoxpep" .
> " -F F" .
> " -m 7" .
> " -o $root/webtemp/1528957863220214843.xml"
> or die "Ouch: $!" ;
> print RUNBLAST2 ">CNPV-WC93:007\nMKSYDDKVKE LYSAIESNDK";
> close RUNBLAST2 ;
> print end_html();
> exit(0);
**************
Clarification:
The "line 13" from the error message corresponds to the "open
BLASTRUN2,..." line.
Jim
------------------------------
Date: Thu, 29 Jun 2006 11:34:26 -0500
From: "Jim Moon" <please.reply@to.group>
Subject: Re: prematurely closed filehandle
Message-Id: <e80vek$bbf$1@SonOfMaze.dpo.uab.edu>
"Jim" <jmoon@uab.edu> wrote in message
news:1151597640.291342.315110@j72g2000cwa.googlegroups.com...
>
> Jim wrote:
>> Dr.Ruud wrote:
>> > Jim schreef:
>> >
>> > > open RUNBLAST2, "| C:\\Inetpub\\wwwroot\\port\\blast\\blastall -e .01
>> > > -p blastp -d C:\\Inetpub\\wwwroot\\port\\blast\\db\\gbpoxpep -F F -m
>> > > 7
>> > > -o C:\\Inetpub\\wwwroot\\webtemp\\152895786322021484375.xml ";
>> >
>> > You should always check for the open to succeed.
>> >
>> > #!perl
>> > use strict ;
>> > use warnings ;
>> > use CGI qw(:standard) ;
>> > use Win32::OLE ;
>> >
>> > my $root = 'C:/Inetpub/wwwroot' ;
>> > my $blast = "$root/port/blast" ;
>> >
>> > open RUNBLAST2,
>> > "| $blast/blastall" .
>> > " -e .01" .
>> > " -p blastp" .
>> > " -d $blast/db/gbpoxpep" .
>> > " -F F" .
>> > " -m 7" .
>> > " -o $root/webtemp/152895786322021484375.xml"
>> > or die "Ouch: $!" ;
>> >
>> > etc.
>> >
>> > (untested)
>> >
>> > --
>> > Affijn, Ruud
>> >
>> > "Gewoon is een tijger."
>>
>> Dr. Ruud,
>>
>> Thank you for the reply and the advice!
>>
>> This script (below) runs fine from the command line, but not in IIS,
>> when browsed to from Internet Explorer. The error message is:
>>
>> Ouch: Bad file descriptor at
>> c:\inetpub\wwwroot\port\blast\blast_xml_run_p.pl line 13.
>>
>> Might you have any idea what causes the "Bad file descriptor" message?
>>
>> Jim
>>
>>
>> #!perl
>> use strict;
>> use warnings;
>> use CGI qw(:standard);
>> use Win32::OLE;
>> my $root = 'C:/Inetpub/wwwroot' ;
>> my $blast = "$root/port/blast" ;
>> print header(), start_html(-title=>'Invalid Form Variables',
>> #-BACKGROUND=>'pebblebackgrd.gif',
>> -BGCOLOR=>'#FFFFFF');
>> open RUNBLAST2,
>> "| $blast/blastall" .
>> " -e .01" .
>> " -p blastp" .
>> " -d $blast/db/gbpoxpep" .
>> " -F F" .
>> " -m 7" .
>> " -o $root/webtemp/1528957863220214843.xml"
>> or die "Ouch: $!" ;
>> print RUNBLAST2 ">CNPV-WC93:007\nMKSYDDKVKE LYSAIESNDK";
>> close RUNBLAST2 ;
>> print end_html();
>> exit(0);
>
> **************
> Clarification:
> The "line 13" from the error message corresponds to the "open
> BLASTRUN2,..." line.
>
> Jim
>
I have determined the cause of the error. It was a permissions issue.
Hence "Bad file descriptor". I rarely work with Perl, so my familiarity is
minimal. It is an interesting and useful language though!
--Jim
------------------------------
Date: Thu, 29 Jun 2006 19:09:28 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: prematurely closed filehandle
Message-Id: <e818i1.m8.1@news.isolution.nl>
Jim schreef:
> [IIS, open pipe]
> Ouch: Bad file descriptor at
> c:\inetpub\wwwroot\port\blast\blast_xml_run_p.pl line 13.
>
> Might you have any idea what causes the "Bad file descriptor" message?
google: perl iis "bad file descriptor"
will find you stuff like:
http://mail.pm.org/pipermail/spug-list/2006-May/007247.html
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 29 Jun 2006 10:00:31 -0700
From: "Bob" <catdogbeloved@yahoo.com>
Subject: Professional IDE for a cross-platform Perl application
Message-Id: <1151600431.002440.285310@x69g2000cwx.googlegroups.com>
Hello,
I have a 15 years old application that I have written in perl without
any IDE. This
application has a PostgreSQL database as server side, a tk-based
client, and
both run on linux only. I feel trapped, because
- the client is not compiled, and thus runs slowly;
- the client must now run also on osx and windows, natively;
- the client's tk-based gui is limited, but I have no clue about
cross-platform alternatives;
- each time I try to port it to windows or osx I get missing components
and misbehaviours.
How do I reshape the client so that I can develop it in one machine and
generate
reliable and installable executables for other platforms?
Regards,
Bob
------------------------------
Date: Thu, 29 Jun 2006 19:20:12 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Professional IDE for a cross-platform Perl application
Message-Id: <e819g9.1d0.1@news.isolution.nl>
Bob schreef:
> I have a 15 years old application that I have written in perl without
> any IDE. This
> application has a PostgreSQL database as server side, a tk-based
> client, and
> both run on linux only. I feel trapped, because
>
> - the client is not compiled, and thus runs slowly;
> - the client must now run also on osx and windows, natively;
> - the client's tk-based gui is limited, but I have no clue about
> cross-platform alternatives;
> - each time I try to port it to windows or osx I get missing
> components and misbehaviours.
>
> How do I reshape the client so that I can develop it in one machine
> and generate
> reliable and installable executables for other platforms?
wxWidgets, I suppose.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 29 Jun 2006 10:48:47 -0700
From: "Bob" <catdogbeloved@yahoo.com>
Subject: Re: Professional IDE for a cross-platform Perl application
Message-Id: <1151603327.775251.18940@i40g2000cwc.googlegroups.com>
> wxWidgets, I suppose.
I tried it last year. It was being ported into osx, which is my main
platform at this time,
so it was in alpha stage. It may solve the GUI side, but I still have
the chief problem of
generating executables for other platforms. I need an IDE that takes
care of the porting,
and generates an installable stand-alone application, possibily in
binary form.
Bob
------------------------------
Date: Thu, 29 Jun 2006 15:42:10 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: puting an excel file into a perl data structure
Message-Id: <ibl08e.8gj.ln@teal.hjp.at>
KaZ wrote:
> I have a script which make a lot of searches into an excel file. I use
> Spreadsheet::ParseExcel to read it everytime but it is slow. So I want
> to (thanks to Peter J. Holzer) put it into a perl data structure. I
> tried this:
>
> ------------------
> #! /usr/bin/perl
>
> use strict;
> use warnings;
> use Spreadsheet::ParseExcel;
>
> my $DB_oWkS =
> Spreadsheet::ParseExcel::Workbook->Parse('/path/to/ExcelFile')->{Worksheet}[0];
>
> my %bts_db;
my %attr1_seen;
>
> for (my $iR = 2 ; (defined $DB_oWkS->{MaxRow}) && ($iR <=
> $DB_oWkS->{MaxRow}) ; $iR++) {
> my $first = $DB_oWkS->{Cells}[$iR][0]->Value;
> my $attr1 = $DB_oWkS->{Cells}[$iR][1]->Value;
> my $attr2 = $DB_oWkS->{Cells}[$iR][4]->Value;
> $bts_db{$first}{attr1} = $attr1;
> $bts_db{$first}{attr2} = $attr2;
$attr1_seen{$attr1} = 1;
> }
> ---------
>
> To search for a "first" value, I do, for example:
>
> if (exists $bts_db{"myValue"}) { return $bts_db{"myValue"}{attr2}; }
> else { return 0; }
>
> Now I want to be able to check if a particular attr1 value exists,
> whatever the key value is. How do I best do this? Whith a loop?
That's a possibility, but in general not the fastest one.
> Or is there any other solution?
See above. You use a different hash with $attr1 as the key. Then you can
simply use
if ($attr1_seen{'myAttr'}) { ... }
if you need to know which key(s) have a specific attr1 value, you can
store the keys instead of 1:
push @{$attr1_seen{$attr1}}, $first;
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst w�e der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: Thu, 29 Jun 2006 13:47:43 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: reading in a nested formatted data structure with quirks
Message-Id: <e80lup.1d4.1@news.isolution.nl>
el.dodgero@gmail.com schreef:
> However, there is someone out there who's wanting to answer this in
> some asshole way just to get some smartass comment in for no good
> reason than their own narcissistic joy at seeing the oh-so-clever
> thing they typed. I know this deep in my soul because I know this is
> usenet. So, if you are that person, just get a life instead, ok?
Pot. Kettle. Black.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 29 Jun 2006 06:19:48 -0700
From: "cyl" <u8526505@gmail.com>
Subject: Re: replacement of slow unpack
Message-Id: <1151587188.923834.165050@b68g2000cwa.googlegroups.com>
At last, I wrote the parsing code in C and use swig to wrap it so I can
still use perl to write non-critical parts. The improvement is amazing.
The time is reduced to 1/5.
------------------------------
Date: 29 Jun 2006 10:19:24 -0700
From: guser@packetstorm.org
Subject: Re: validating data before trusting to use in a system call
Message-Id: <1151601564.069983.43230@j72g2000cwa.googlegroups.com>
> This will match only your specified commands, so no, there's no security
> problem there. Of course, if your spec is wrong (e.g. if there are some
> IP addrs you should not be able to specify) that's another matter...
>
Ah thanks for the example. The ip addressess are restricted by a
node_allowed table that gets checked after I have validated what I have
is an actual ip address. I am using net::cidr so I can check multiple
types of address entries.
> > Also the $task variable can be tainted from an outside source as it
> > gets the data from a mysql table for the node ip address. So I also
> > check that after getting it from the table before sending it on to be
> > tasked.
The task variable is built by the program once the data obtained has
been checked. unless all checks pass the task result is nulled. I
should run this in taint mode but right now its just in the idea phase.
Guess it would be better to start with the taint check before I get too
much code written.
> >
> > sub isIP
> > {
> > my $target = shift;
> > print OUT " SUB:isIP: Starting\n" if $debug_arg;
> > if ($target =~ /^\b\d+\.\d+\.\d+\.\d+$/) {
>
> What's the \b for? It's completely redundant with ^.
The idea was to ensure that the match started at the beginning of the
string (^) and then only if the boundry right after the start was
matched \b .....$
that way i do not match things like
1.2.3.4garbage or garbage1.2.3.4 etc.
>
> Use Regexp::Common::net, again.
>
> You don't seem to be untainting your data: are you running perl in taint
> mode? If not, you *really* should be.
>
> 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] benmorrow@tiscali.co.uk
------------------------------
Date: 29 Jun 2006 06:31:45 -0700
From: jovo.miskin@sciatl.com
Subject: Re: WIN32 PPM and perldoc problems
Message-Id: <1151587905.432899.58080@j72g2000cwa.googlegroups.com>
The problem seem to be specific to passing arguments to system call.
Let' say we create a perl script called sys_args.pl that contanis the
next two lines:
#my $opt_exe = "ppm3-bin";
system($opt_exe, @ARGV);
And also we add at the top of ppm3-bin next two lines:
my $numargs = scalar @ARGV;
print "in ppm3_bin, numargs = $numargs\n";
The command line
sys_args.pl
produces output
in ppm3_bin, numargs = 1
The expected output is:
in ppm3_bin, numargs = 0
The command line
sys_args.pl 1 2 3
produces output
in ppm3_bin, numargs = 1
The expected output is:
in ppm3_bin, numargs = 3
Jovo
------------------------------
Date: Thu, 29 Jun 2006 17:07:40 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: WIN32 PPM and perldoc problems
Message-Id: <e811dp.jc.1@news.isolution.nl>
jovo.miskin@sciatl.com schreef:
> Let' say we create a perl script called sys_args.pl that contanis the
> next two lines:
> #my $opt_exe = "ppm3-bin";
> system($opt_exe, @ARGV);
That isn't much of a perl script. The first line is a comment, the
second line tries to run something undefined.
ITYM:
#/usr/bin/perl
use strict ;
use warnings ;
my $opt_exe = q/ppm3-bin/ ;
system $opt_exe, @ARGV == 0
or die qq/Error executing $opt_exe @ARGV $?/ ;
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 29 Jun 2006 09:01:34 -0700
From: jovo.miskin@sciatl.com
Subject: Re: WIN32 PPM and perldoc problems
Message-Id: <1151596894.442720.249910@m73g2000cwd.googlegroups.com>
Sorry for confusion. The first line is not meant to be comment (copy
and past type of the mistake).
This is supposed to be a simple simulation to demonstrate ppm problem,
described in previous messages.
The reason that I am not able to get to ppm prompt on these machines is
that ppm.bat perform next call system($opt_exe, @ARGV); where opt_exe
is previously initialized to "ppm3-bin". So when control is transferred
to ppm3-bin, it sees one argument (on machines, that everything is
fine, it sees 0 arguments) and when it looks at $ARGV[0] it finds
garbage, and then exits.
Thanks for help,
Jovo
------------------------------
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 9407
***************************************
