[28556] in Perl-Users-Digest
Perl-Users Digest, Issue: 9920 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 2 11:06:05 2006
Date: Thu, 2 Nov 2006 08:05: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, 2 Nov 2006 Volume: 10 Number: 9920
Today's topics:
Re: "Did not find leading dereferencer" - new findings <ro.naldfi.scher@gmail.com>
Re: Abysmal performance of Net::SFTP (and I have GMP & <sfandino@gmail.com>
Re: how do i update one section of a page leaving rest? <bik.mido@tiscalinet.it>
Re: how do i update one section of a page leaving rest? <bik.mido@tiscalinet.it>
Re: Information about file systems. <joe@inwap.com>
Re: Interesting behaviour with lexical variable <bol@adv.magwien.gv.at>
Re: Interesting behaviour with lexical variable <bol@adv.magwien.gv.at>
Re: Interesting behaviour with lexical variable <bik.mido@tiscalinet.it>
Re: longest common substring <Peter@PSDT.com>
Re: LWP::UserAgent and non-default outgoing IP (Randal L. Schwartz)
Re: max # of threads <bol@adv.magwien.gv.at>
Re: Perl equivalent to unix script <rvtol+news@isolution.nl>
Re: Putting a line in a specific place in a file <bryan@worldspice.net>
Re: question about output <wahab@chemie.uni-halle.de>
Re: question about output <joe@inwap.com>
Re: regular expression consecutive numbers or letters <rvtol+news@isolution.nl>
Re: SQLPlus with Perl neil.shadrach@corryn.com
Re: SQLPlus with Perl <natlee75@yahoo.com>
Re: SQLPlus with Perl xhoster@gmail.com
Re: SQLPlus with Perl neil.shadrach@corryn.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 2 Nov 2006 07:46:13 -0800
From: "Ronny" <ro.naldfi.scher@gmail.com>
Subject: Re: "Did not find leading dereferencer" - new findings to an old puzzle
Message-Id: <1162482373.409323.10850@f16g2000cwb.googlegroups.com>
Ferry Bolhar schrieb:
> > In this case, it is imported from an other module, but this has nothing
> > to do with the "Dereferencer" error, because on the first example I
> > mentioned, I got that error message in the context of Perl standard
>
> This error is reported by the "Text::Balancer" module, it doesn't
> come from the Perl core:
>
> "Did not find leading dereferencer":
> "extract_variable" was expecting one of '$', '@', or '%' at the
> start of a variable, but didn't find any of them.
>
> Maybe this will help you?
This doesn't make any sense. First, I don't include in my programs any
Text:: stuff. Second, this would not explain why the error message
changes to the real one, if, say, I remove one comment line from the
source code.
Ronald
------------------------------
Date: 2 Nov 2006 07:00:12 -0800
From: "salva" <sfandino@gmail.com>
Subject: Re: Abysmal performance of Net::SFTP (and I have GMP & Pari)
Message-Id: <1162479611.849977.124980@h54g2000cwb.googlegroups.com>
usenet@DavidFilmer.com wrote:
> Greetings.
>
> I am having terrible problems with very poor performance when using
> Net::SFTP. Specifically, it takes about 10 seconds for a machine to
> transfer a 1 MB file to itself (localhost), and this is a brand new,
> very FAST, lightly loaded server (and I can replicate this problem on
> other machines as well). Using ordinary FTP takes 0.4 seconds, and
> doing the same thing with commandline sftp completes the task in the
> blink of an eye.
have you tried Net::SFTP::Foreign? it is much faster, similar to the
sftp command.
Cheers,
- Salva
------------------------------
Date: Thu, 02 Nov 2006 11:05:36 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: how do i update one section of a page leaving rest?
Message-Id: <9fgjk2tnokav5fnn2bt93f7as4f7fusrpc@4ax.com>
<premise>
For reference, On 26 Oct 2006 14:21:22 -0700, "DJ Stunks"
<DJStunks@gmail.com> had written:
>> Why do you hate to do so? We're not here advertise broken code. My
>> mistake, I stand corrected:
[snip]
>just because this is a stupid thread started by an even stupider troll
>and because I know you know better :)
</premise>
On 1 Nov 2006 20:56:43 -0800, "gavino" <bootiack@yahoo.com> wrote:
>Today I got aolserver installed.
Chewbacca defense?!? Not going to work here... all your base are
belong to us!
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 02 Nov 2006 11:11:00 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: how do i update one section of a page leaving rest?
Message-Id: <1hgjk2h5c4lbm7d4lilo06j3psaqueqkg8@4ax.com>
On 1 Nov 2006 22:44:23 -0800, "gavino" <bootiack@yahoo.com> wrote:
>> > How Do i updae one section of a page leaving the rest?
>>
>> You could open that page in your favourite editor, delete the section you
>> don't like, and type in the new content.
[snip]
>thanks dude
>The idea is to make cool web apps that are fast
>A statik site wouldn't do well.
Oh, you should have specified these details in the first place. Then
it would have been easier to help you. So here's another try: open the
sources for that web app in your favourite editor and write some code
that will delete the section you don't like, and update it with the
new content.
>Remember to vote republican.
I will remember. I won't do it. I couldn't anyway. So, it doesn't make
a difference.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 02 Nov 2006 02:14:20 -0800
From: Joe Smith <joe@inwap.com>
Subject: Re: Information about file systems.
Message-Id: <2NydneRdi4HZWNTYnZ2dnUVZ_oSdnZ2d@comcast.com>
dcruncher4@aim.com wrote:
> How can I get a list of file systems and find out whether it is a local
> FS or NFS.
use Sys::Filesystem;
http://search.cpan.org/~nicolaw/Sys-Filesystem-1.22/lib/Sys/Filesystem.pm
------------------------------
Date: Thu, 2 Nov 2006 11:10:40 +0100
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: Interesting behaviour with lexical variable
Message-Id: <1162462243.278015@proxy.dienste.wien.at>
Anno:
> Not necessarily. There are two steps involved in th creation of a
> Perl sub. One is compilation, creating code from source text. That
> step happens only once for every Perl sub, named or anonymous. Another
> step, which has been called sub dispatch, establishes the connection
> of the sub with its lexical environment. This step happens at least
> once, but with anonymous subs it can happen any number of times.
Sounds very interesting. I always thought somewhat similar - for
perfomance reasons, compilation of a closure (its code) - even when
assigned at run-time - will occur only once, but what you've named
"sub dispatch" (the point where lexicals get "frozen" with their current
values in the closure) must occur whenever "assignment" of the close
takes place.
Is there more about this "sub dispatching" in the Perl docs (or in some
O'Reilly books)? I didn't found somewhat about that.
> I'm not sure exactly what action triggers sub dispatch but obviously
> assignment has to do with it.
Not necessarily the assignment, but the fact that "sub" is used as an
operator (which returns a reference to an anonymous function), and
not as a declarator for the compiler. For example, the "sub dispach"
occurs - without immediate assignment - in the following code as well:
sub f {
my $x = shift;
sub {print "$x\n"} # Without assignment and _not_ a declaration!
} # It's the return 'value' of f()
*p1 = f(1); # These are "named" closures - they can, but
*p2 = f(2); # do not have to be anonymous!
p1(); # print 1
p2(); # print 2
> The difference disappears when the code returned by gensub() doesn't
> actually access (close over) a lexical variable. After changing the
> last line of gensub() to "sub {}", all six coderefs turn out identical.
Could this be some kind of optimization Perl is able to do when
creation and access of the lexical are within the same scope (e.g,
the pad entry allocated for the lexical is simply re-used for each
iteration)?
Greetings, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: Thu, 2 Nov 2006 11:31:38 +0100
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: Interesting behaviour with lexical variable
Message-Id: <1162463498.470042@proxy.dienste.wien.at>
Michele Dondi:
> Now, I don't find that confusing. What would you have expected? Note
> that it wouldn't be different with
>
> {
> my $r = 1;
> my $f = sub { print $r };
> $f->(); $r++; $f->();
> }
This is a run-time assignment wherein "sub" is used as operator
which returns, as you posted, a code ref. In my code
{
my $r = 1;
sub f { print $r }
f(); # print 1
$r++;
f(); # print 2
}
however, "sub" is used as declarator and gets evaluated at
compile time. As this thread shows, many differences exist
between these constructs.
The reason for my question should be obvious - as discussed
earlier, in code like
while (...) {
my $x = ..; # a value which changes for each loop iteration
sub f {
$x + $x; # $x will return the _first_ value within the function
} # body, Perl issues the "will not stay share" message
print f();
}
$x gets copied after the first loop iteration completes. But in
{
my $x = 1;
sub f {
$x + $x;
}
print f();
$x++;
print f();
}
$x doesn't get copied (although Perl will complain about this!).
So what's the difference between these code constructs?
Greetings, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: Thu, 02 Nov 2006 15:03:44 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Interesting behaviour with lexical variable
Message-Id: <6fujk2l10iviu4cd881f2tcv1n9hi3rm4p@4ax.com>
On Thu, 2 Nov 2006 11:31:38 +0100, "Ferry Bolhar"
<bol@adv.magwien.gv.at> wrote:
>> Now, I don't find that confusing. What would you have expected? Note
>> that it wouldn't be different with
>>
>> {
>> my $r = 1;
>> my $f = sub { print $r };
>> $f->(); $r++; $f->();
>> }
>
>This is a run-time assignment wherein "sub" is used as operator
>which returns, as you posted, a code ref. In my code
>
>{
> my $r = 1;
> sub f { print $r }
> f(); # print 1
> $r++;
> f(); # print 2
>}
>
>however, "sub" is used as declarator and gets evaluated at
>compile time. As this thread shows, many differences exist
>between these constructs.
Yes, many differences exist between them. But both DWIM. Also, it does
not get *evaluated* at compile time. I guess it is parsed and made
into suitable bytecode. How the latter is possibly linked with a
lexical environment is another story, and one that goes beyond my
knowledge. But for sure as we've seen it does happen at runtime.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 02 Nov 2006 14:24:22 GMT
From: Peter Scott <Peter@PSDT.com>
Subject: Re: longest common substring
Message-Id: <pan.2006.11.02.14.24.22.219881@PSDT.com>
On Wed, 01 Nov 2006 10:28:05 -0500, Henry Townsend wrote:
> Is there a standard algorithm or module which finds the N longest common
> substrings in a set of text files?
http://search.cpan.org/~gray/Tree-Suffix-0.14/lib/Tree/Suffix.pm
--
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/
------------------------------
Date: 02 Nov 2006 04:56:56 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: LWP::UserAgent and non-default outgoing IP
Message-Id: <86mz7aknvr.fsf@blue.stonehenge.com>
>>>>> "Tomek" == Tomek <balrog2000@o2.pl> writes:
Tomek> How to force LWP::UserAgent to connect to remote hosts from IP
Tomek> 192.168.0.3 ? I couldn't find it in the manual of LWP :(
Tomek> Now, it always connects from the first and default IP: 192.168.0.1 :(
Tomek> How to bind other outgoing address?
The secret is in the source code of LWP::Protocol::http. See the
@EXTRA_SOCK_OPTS variable defined there, and note how it is used. I'm not
sure why it's not documented... maybe it's not well tested yet. But it works.
print "Just another Perl hacker,"; # the original!
--
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!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 2 Nov 2006 10:00:42 +0100
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Re: max # of threads
Message-Id: <1162458042.791611@proxy.dienste.wien.at>
<gmlvsk2@gmail.com> wrote:
> 295
> Thread creation failed: pthread_create returned 12 at tmp.pl line 5.
Have you tried to find out what the return value 12 actually means?
BTW: Perl isn't JVM!
Greetings, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: Thu, 2 Nov 2006 09:00:48 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Perl equivalent to unix script
Message-Id: <eiccbo.8o.1@news.isolution.nl>
Dan Mercer schreef:
> usenet:
>> Mike:
>>> cat tempfile1 | sort > newfile2;
>>
>> That's rather convoluted even for UNIX scripting. Why not:
>> sort tempfile1 > newfile2;
>
> Even that's too convoluted - why not just
> sort -o file file
Because that is not equivalent. For example you can't tell from what is
presented whether tempfile1 is still needed for something else, after
the sort.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 2 Nov 2006 06:18:25 -0800
From: "samasama" <bryan@worldspice.net>
Subject: Re: Putting a line in a specific place in a file
Message-Id: <1162477105.631473.168350@i42g2000cwa.googlegroups.com>
> while ( <FH> ) {
> ( $. == $magic_line_number .. /gpgkey/ ) =~ /E/
> && print "found on line $.\n";
> }
>
>
I like that little number there... and it works too.
Now I need to figure it out : )
$. == the line matched earlier loop until gpgkey ?
--
samasama
------------------------------
Date: Thu, 02 Nov 2006 10:06:46 +0100
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: question about output
Message-Id: <eiccnv$d3o$1@mlucom4.urz.uni-halle.de>
Thus spoke opmn (on 2006-11-02 05:48):
> The output of my program is messed up.
> This is the code for output:
> -------------------------------
> printf("%5d Q0 %15s %5d %.10f Exp\n", $query_id,
> $docidmap{$docid}, $rank, $scores{$docid});
> ------------------------------
>
> The output is expected to have 6 columns. But actually, I got only last
> 3. I did debugging and here is what I get:
Your input looks with 99.99% confidence like
...
$docid = 'id0';
$query_id = 152;
$docidmap{$docid} = "DOE1-62-0080\r";
$rank = 1;
$scores{$docid} = 1.05;
...
You get the point?
Regards
Mirco
------------------------------
Date: Thu, 02 Nov 2006 01:54:15 -0800
From: Joe Smith <joe@inwap.com>
Subject: Re: question about output
Message-Id: <B9udnTwBa6EQXdTYnZ2dnUVZ_v6dnZ2d@comcast.com>
opmn wrote:
> Problem solved... some stupid bug... never mind...
The failure to use chomp() or the equivalent is a programmer
error, not "some stupid bug".
------------------------------
Date: Thu, 2 Nov 2006 09:49:15 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: regular expression consecutive numbers or letters
Message-Id: <eicf0e.13k.1@news.isolution.nl>
Ilya Zakharevich schreef:
> # These strings may overlap:
> my @prohibited = (['01234567890', 4],
> ['31415926', 4],); # Add more elements if needed
Like ['~!@#$%^&*()_+', 4],
['`1234567890-=', 4],
['QWERTYUIOP{}|', 4],
['qwertyuiop[]\\', 4],
['ASDFGHJKL:"', 4],
["asdfghjkl;'", 4],
['ZXCVBNM<>?', 4],
['zxcvbnm,./', 4],
etc.
And of course a check on the reversed too.
For a while I used passwords that are shapes on my keyboard, like
'4rfghy65'. So another check would be that the password doesn't contain
longish strings of neighbours on the keyboard.
I now like to create passwords from sentences with is/and/or and
numerics and stress capitalization:
Et5/A=aNd Every 25th of April is a Nice day
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 2 Nov 2006 00:35:05 -0800
From: neil.shadrach@corryn.com
Subject: Re: SQLPlus with Perl
Message-Id: <1162456505.061145.270560@m73g2000cwd.googlegroups.com>
The alMIGHTY N wrote:
> How would I go about executing SQLplus calls and assigning the results
> to a Perl string or array?
for ( split( /\n/, qx(su - $unix_user "-c echo \\"${sql}\\" |
$ORACLE_HOME/bin/sqlplus -S $ora_name/$ora_password\@$ora_sid") ) )
{
print "$_\n";
}
------------------------------
Date: 2 Nov 2006 06:28:53 -0800
From: "The alMIGHTY N" <natlee75@yahoo.com>
Subject: Re: SQLPlus with Perl
Message-Id: <1162477733.620956.227310@h48g2000cwc.googlegroups.com>
neil.shadrach@corryn.com wrote:
> The alMIGHTY N wrote:
>
> > How would I go about executing SQLplus calls and assigning the results
> > to a Perl string or array?
>
> for ( split( /\n/, qx(su - $unix_user "-c echo \\"${sql}\\" |
> $ORACLE_HOME/bin/sqlplus -S $ora_name/$ora_password\@$ora_sid") ) )
> {
> print "$_\n";
> }
Thanks for the response! Is there any chance you'd be able to explain
the code to me? I've kind of been pulled back into this coding (I'm an
interface designer and developer by trade) and I have only rudimentary
knowledge of the Perl programming language.
Here's the code that currently exists in the Perl file so you can see
how SQLplus is running.
SQL="UPDATE my_table SET my_variable = $theValue WHERE another_variable
= $anotherValue;"
export SQL
echo "Running this query:"
echo $SQL
sqlplus username/password@DATABASENAME 2>&1 <<EOF
set wra off
set pages 999
set lin 999
$SQL
commit;
EOF
I just want to be able to change the SQL statement to a SELECT
statement and then cram the results into some sort of array.
I think the part that's really getting me is the UNIX portion. The Perl
code I need to run will be part of a script that generates an HTML page
as opposed to being run from a command line interface. Would that
change how the code is written?
I assume $ora_name and $ora_password correspond to the username and
password to log into the database and $ora_sid corresponds to the name
of the database I'm trying to connect to. Are these correct
assumptions?
Thanks for all your help!
NL
------------------------------
Date: 02 Nov 2006 15:11:31 GMT
From: xhoster@gmail.com
Subject: Re: SQLPlus with Perl
Message-Id: <20061102101148.645$rp@newsreader.com>
"The alMIGHTY N" <natlee75@yahoo.com> wrote:
> Hi all,
>
> I've been assigned a project involving SQLplus calls to an Oracle
> database within Perl code. I have examples of how to perform insert and
> update statements that don't return anything back to the code, but I
> now need to perform a select statement to check values in the database.
>
> How would I go about executing SQLplus calls and assigning the results
> to a Perl string or array?
SQL*Plus is Oracle's command line user interface for a *human* to connect
to and use an Oracle database. Perl is not a human. 99+% of the time,
you should use DBI and DBD::Oracle, not SQL*Plus, to connect Perl to an
Oracle database server. It might take a little more work to get
DBD::Oracle installed and set up, but from then on it will be much better
than hacking things together with SQL*Plus.
That said, you could run sqlplus in backticks and parse the returned
value.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 2 Nov 2006 08:04:31 -0800
From: neil.shadrach@corryn.com
Subject: Re: SQLPlus with Perl
Message-Id: <1162483471.465094.28490@k70g2000cwa.googlegroups.com>
Ysgrifennodd The alMIGHTY N:
> neil.shadrach@corryn.com wrote:
> > The alMIGHTY N wrote:
> >
> > > How would I go about executing SQLplus calls and assigning the results
> > > to a Perl string or array?
> >
> > for ( split( /\n/, qx(su - $unix_user "-c echo \\"${sql}\\" |
> > $ORACLE_HOME/bin/sqlplus -S $ora_name/$ora_password\@$ora_sid") ) )
> > {
> > print "$_\n";
> > }
>
> Thanks for the response! Is there any chance you'd be able to explain
> the code to me? I've kind of been pulled back into this coding (I'm an
> interface designer and developer by trade) and I have only rudimentary
> knowledge of the Perl programming language.
The stuff within qx() is a UNIX command string. It runs the unix
commands within double quotes as a different user. Those commands pipe
the sql to sqlplus. The split command breaks the output of the unix
commands into lines and the loop prints each one. You could replace
this by assignment to an array. As Xho has pointed out you wouldn't
normally want to work this way. The DBI module is the proper way. This
allows you to write stuff like ( from the CPAN page ):
$sth = $dbh->prepare("SELECT foo, bar FROM table WHERE baz=?");
$sth->execute( $baz );
while ( @row = $sth->fetchrow_array ) {
print "@row\n";
}
> Here's the code that currently exists in the Perl file so you can see
> how SQLplus is running.
>
> SQL="UPDATE my_table SET my_variable = $theValue WHERE another_variable
> = $anotherValue;"
> export SQL
> echo "Running this query:"
> echo $SQL
> sqlplus username/password@DATABASENAME 2>&1 <<EOF
> set wra off
> set pages 999
> set lin 999
> $SQL
> commit;
> EOF
That's ksh or similar not perl!
> I just want to be able to change the SQL statement to a SELECT
> statement and then cram the results into some sort of array.
>
> I think the part that's really getting me is the UNIX portion. The Perl
> code I need to run will be part of a script that generates an HTML page
> as opposed to being run from a command line interface. Would that
> change how the code is written?
Not necessarily but everything you say makes me think you'd be better
off going down the CPAN module route.
> I assume $ora_name and $ora_password correspond to the username and
> password to log into the database and $ora_sid corresponds to the name
> of the database I'm trying to connect to. Are these correct
> assumptions?
More or less. The $ora_sid is the Oracle SID, a unique instance ID
> Thanks for all your help!
>
> NL
------------------------------
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 9920
***************************************
