[30961] in Perl-Users-Digest
Perl-Users Digest, Issue: 2206 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 12 14:09:43 2009
Date: Thu, 12 Feb 2009 11:09:08 -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, 12 Feb 2009 Volume: 11 Number: 2206
Today's topics:
Re: A good data structure to store INI files. <bmb@mail.libs.uga.edu>
Re: A good data structure to store INI files. <bmb@mail.libs.uga.edu>
dbi mysql problem with placeholders and the default key <michaelgang@gmail.com>
Re: dbi mysql problem with placeholders and the default <devnull4711@web.de>
Re: dbi mysql problem with placeholders and the default xhoster@gmail.com
Re: Getting the name of a variable reference <nomail@not.net>
Re: Getting the name of a variable reference <nomail@not.net>
Re: Getting the name of a variable reference <smallpond@juno.com>
Re: Getting the name of a variable reference <tadmc@seesig.invalid>
Re: Getting the name of a variable reference <jurgenex@hotmail.com>
Re: Getting the name of a variable reference xhoster@gmail.com
Re: Problem using Net::SSH::Perl <zentara@highstream.net>
Re: Problem using Net::SSH::Perl <schaitan@gmail.com>
Re: Problem using Net::SSH::Perl <schaitan@gmail.com>
Re: Problem using Net::SSH::Perl <syscjm@sumire.gwu.edu>
Re: Problem using Net::SSH::Perl <syscjm@sumire.gwu.edu>
Re: Problem using Net::SSH::Perl <schaitan@gmail.com>
Re: Problem using Net::SSH::Perl <zentara@highstream.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 12 Feb 2009 11:34:38 -0500
From: Brad Baxter <bmb@mail.libs.uga.edu>
Subject: Re: A good data structure to store INI files.
Message-Id: <dbYkl.2963$qa.1058@bignews4.bellsouth.net>
Marc Lucksch wrote:
> How would you for example set the second fuse of the third ship
> (section?) An operation likely to occour...
>
> my @ships=$ini->get_values( "Ships" );
> my $third=$ships[2];
> my @fuses=$third->get_pos("fuse");
> $third->set_pos("fuse",["fusename",0,10],$fuses[1]);
my @ships=$ini->get_values( "Ship" );
my $third=$ships[2];
my @fuses=$third->get_pos("fuse");
$third->set("fuse",["fusename",0,10],$fuses[1]);
Yes, that's about it. But I'm not suggesting this is
the best approach for you. My point was just that ini
file data can be faithfully represented this way.
In your case, I think you need to separate the general
case of reading/writing ini files from your specific
needs. That is, read the configuration file into
whatever structure works best for your program, whether
or not that structure is general enough to work for
any ini file. Then if you need to write the data
back out, just make a routine for that.
--
Brad
------------------------------
Date: Thu, 12 Feb 2009 12:47:30 -0500
From: Brad Baxter <bmb@mail.libs.uga.edu>
Subject: Re: A good data structure to store INI files.
Message-Id: <XeZkl.2988$qa.34@bignews4.bellsouth.net>
Marc Lucksch wrote:
> I want it more like:
>
> $ini->{Ship}->[2]->{"fuse"}->[1]=["fusename",0,10];
I think this would accomplish that. I doubt you really
care about retaining the order of the keys.
Comments are left as an exercise ...
Brad
#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;
my %ini;
my $current;
while( <DATA> ) {
chomp;
if( /^\[(\w+)]/ ) {
my $section = $1;
$current = {};
push @{$ini{$section}}, $current;
}
elsif( /^(\w+)\s*=\s*(.*)/ ) {
my( $key, $val ) = ( $1, $2 );
$val = [ split /\s*,\s*/, $val ] if $val =~ /,/;
push @{$current->{$key}}, $val;
}
}
$ini{Ship}[2]{"fuse"}[1]=["fusename",0,10];
# view internal structure
print Dumper \%ini;
# rewrite the ini file data
for my $section ( keys %ini ) {
for my $href ( @{$ini{$section}} ) {
print "[$section]\n";
for my $key ( keys %$href ) {
for my $val ( @{$href->{ $key }} ) {
$val = join( ', ', @$val ) if ref $val eq 'ARRAY';
print "$key = $val\n";
}
}
print "\n";
}
}
__DATA__
[Ship]
ids_name = 237033
ids_info = 66567
ids_info1 = 66567
ship_class = 1
nickname = li_elite
LODranges = 0, 75, 150, 1300
fuse = intermed_damage_smallship01, 0.000000, 400
fuse = intermed_damage_smallship02, 0.000000, 200
;#Well its a lot more in one section, but this proves the point.
[Ship]
ids_name = 237033
ids_info = 66567
ship_class = 1
nickname = li_elite2
LODranges = 0, 175, 150, 1300
fuse = intermed_damage_smallship01, 0.000000, 400
fuse = intermed_damage_smallship02, 0.000000, 200
fuse = intermed_damage_smallship03, 0.000000, 133
;.... (about 250kb of this)
[Ship]
ids_name = 237033
ids_info = 66567
ship_class = 1
nickname = li_elite2
LODranges = 0, 175, 150, 1300
fuse = intermed_damage_smallship01, 0.000000, 400
fuse = intermed_damage_smallship02, 0.000000, 200
fuse = intermed_damage_smallship03, 0.000000, 133
;.... (about 250kb of this)
------------------------------
Date: Thu, 12 Feb 2009 07:21:48 -0800 (PST)
From: david <michaelgang@gmail.com>
Subject: dbi mysql problem with placeholders and the default keyword
Message-Id: <b21b528a-9afe-4043-8244-18b7370cbb7e@v15g2000yqn.googlegroups.com>
Hi all,
I have the following question:
in my sql i write
UPDATE A SET B = DEFAULT
WHERE C = 1;
In mysql i write:
my $sth = $dbh->prepare('UPDATE A SET B = ? WHERE C = ?');
and then
$sth->execute('DEFAULT',1);
The problem is that when column B is a text the word DEFAULT will be
inserted instead the default of the column.
Has someone a solution for the problem ?
Thanks,
David
------------------------------
Date: Thu, 12 Feb 2009 18:44:21 +0100
From: Frank Seitz <devnull4711@web.de>
Subject: Re: dbi mysql problem with placeholders and the default keyword
Message-Id: <6vj5fdFkb258U1@mid.individual.net>
david wrote:
>
> my $sth = $dbh->prepare('UPDATE A SET B = ? WHERE C = ?');
> and then
> $sth->execute('DEFAULT',1);
>
> The problem is that when column B is a text the word DEFAULT will be
> inserted instead the default of the column.
>
> Has someone a solution for the problem ?
You need another statement handle to achieve this:
my $sth2 = $dbh->prepare('UPDATE A SET B = DEFAULT WHERE C = ?');
$sth2->execute(1);
A SQL placeholder stands for a value, not an expression.
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
------------------------------
Date: 12 Feb 2009 18:15:05 GMT
From: xhoster@gmail.com
Subject: Re: dbi mysql problem with placeholders and the default keyword
Message-Id: <20090212132004.602$vs@newsreader.com>
david <michaelgang@gmail.com> wrote:
> Hi all,
>
> I have the following question:
> in my sql i write
> UPDATE A SET B = DEFAULT
> WHERE C = 1;
>
> In mysql i write:
> my $sth = $dbh->prepare('UPDATE A SET B = ? WHERE C = ?');
> and then
> $sth->execute('DEFAULT',1);
>
> The problem is that when column B is a text the word DEFAULT will be
> inserted instead the default of the column.
DEFAULT is syntax, not data.
> Has someone a solution for the problem ?
Don't use place holders for syntax, use them for data.
$dbh->prepare('UPDATE A SET B = DEFAULT WHERE C = ?');
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, 12 Feb 2009 07:50:41 -0500
From: Dave Stallard <nomail@not.net>
Subject: Re: Getting the name of a variable reference
Message-Id: <rqmdnfyug722hgnUnZ2dnUVZ_uydnZ2d@giganews.com>
Tad J McClellan wrote:
> The comp.lang.perl newsgroup was rmgroup'd over a decade ago...
It looks like my news server didn't quite get the message, since it has
posts from sometime 2003 to as recently as yesterday. But point taken;
it's defunct.
Dave
------------------------------
Date: Thu, 12 Feb 2009 07:55:39 -0500
From: Dave Stallard <nomail@not.net>
Subject: Re: Getting the name of a variable reference
Message-Id: <ZqGdnYpbD43QgQnUnZ2dnUVZ_rjinZ2d@giganews.com>
smallpond wrote:
> In almost every case where you think you want to access a
> variable's name you are better off using a hash and key.
>
> my $cur = $hash{$name};
> if (defined $cur) {
> die "Mismatched value for $name: $cur vs. $value"
> unless $cur == $value;
> } else {
> $hash{$name} = $value;
> }
Sorry, I don't agree. It's bulkier syntax, and worse, Perl won't warn
me if I misspell the key. I like variables.
Let's try another tack; is there a way to get from a string
"numClusters" to the variable '$numClusters'? That would work for me too.
Dave
------------------------------
Date: Thu, 12 Feb 2009 07:12:20 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Getting the name of a variable reference
Message-Id: <099c306a-7948-48f5-8907-4f12d5c298f4@w34g2000yqm.googlegroups.com>
On Feb 12, 7:55 am, Dave Stallard <nom...@not.net> wrote:
> smallpond wrote:
> > In almost every case where you think you want to access a
> > variable's name you are better off using a hash and key.
>
> > my $cur = $hash{$name};
> > if (defined $cur) {
> > die "Mismatched value for $name: $cur vs. $value"
> > unless $cur == $value;
> > } else {
> > $hash{$name} = $value;
> > }
>
> Sorry, I don't agree. It's bulkier syntax, and worse, Perl won't warn
> me if I misspell the key. I like variables.
>
> Let's try another tack; is there a way to get from a string
> "numClusters" to the variable '$numClusters'? That would work for me too.
>
> Dave
Who cares how bulky the syntax is if it is inside one sub?
if (exists $hash{$name}) {
my $cur = $hash{$name};
if (defined $cur) {
die "Mismatched value for $name: $cur vs. $value"
unless $cur == $value;
} else {
$hash{$name} = $value;
}
} else
die "No such key as $key";
}
Your last question is a FAQ:
perldoc -q "variable name"
------------------------------
Date: Thu, 12 Feb 2009 08:30:28 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Getting the name of a variable reference
Message-Id: <slrngp8ck4.50f.tadmc@tadmc30.sbcglobal.net>
Dave Stallard <nomail@not.net> wrote:
> smallpond wrote:
>
>> In almost every case where you think you want to access a
>> variable's name you are better off using a hash and key.
That is the conventional wisdom.
> Sorry, I don't agree.
You just haven't been bitten by it.
Yet.
That's how conventional wisdom becomes conventional...
> It's bulkier syntax,
cost: more typing
benefit: insert less hard-to-find-bugs
Hmmm.
> is there a way to get from a string
> "numClusters" to the variable '$numClusters'?
perldoc -q variable
How can I use a variable as a variable name?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 12 Feb 2009 08:06:46 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Getting the name of a variable reference
Message-Id: <l4i8p41t097hbtus6qrhm1nacu56pr1qvb@4ax.com>
Dave Stallard <nomail@not.net> wrote:
>Let's try another tack; is there a way to get from a string
>"numClusters" to the variable '$numClusters'? That would work for me too.
That's called a symbolic reference. You may want to check the archive
for previous discussions and in-detail explanations about why this is
almost always a _VERY_ bad idea and what to do instead.
jue
------------------------------
Date: 12 Feb 2009 18:30:12 GMT
From: xhoster@gmail.com
Subject: Re: Getting the name of a variable reference
Message-Id: <20090212133511.601$k0@newsreader.com>
Dave Stallard <nomail@not.net> wrote:
> So I have this handy function that is called like this
>
> setVar(\$someVar,$someValue);
>
> I use it to check and enforce consistency when multiple functions might
> want to set $someVar. It's defined something like this:
>
> sub setVar {
> my ($var,$value) = @_;
> my $cur = $$var;
> $$var = $value unless defined($cur);
Wouldn't you also want to return in the above? Otherwise, you can never
change a undefined value to anything other than zero.
> die "Mismatched value for $var: $cur vs. $value" unless $cur ==
> $value; }
I assume you know the difference between == and eq and have made this
choice carefully.
> The problem is I get this expression "<SCALAR-REF>#111" or whatever,
> instead of the variable name I want to appear in the die message.
If you use Carp::croak rather the die, at least you'll know which line
of the code invoked setVar in the fatal way. Chances are good that looking
at that line will tell you the name of the variable. For example, if the
line that croaks is:
setVar(\$someVar,$someValue);
Then $someVar is the thing that was being set.
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, 12 Feb 2009 06:39:33 -0500
From: zentara <zentara@highstream.net>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <a928p4hqcq0s9jjrg00k7oke2mu4176is4@4ax.com>
On Thu, 12 Feb 2009 01:01:27 -0800 (PST), Krishna Chaitanya
<schaitan@gmail.com> wrote:
>Hi all,
>
>Am trying to run a program called "1.pl" on a linux box with IP
>10.0.75.201. Contents of "1.pl":
>
>use Net::SSH::Perl;
>
>my $ssh = Net::SSH::Perl->new("10.0.75.201", debug => 1, protocol =>
>'2,1', identity_files => ['/root/.ssh/id_rsa']);
>$ssh->login("root","<root passwd goes here>");
>my ($stdout,$stderr,$exit_status) = $ssh->cmd("ls -l");
>
>print "Stdout is $stdout\n\nStderr is $stderr\n\nExit Status is
>$exit_status\n\n";
>
>Am running as root user and want to connect as root user. Following is
>the debug output:
>
My guess is that a common security setup on the server....to disallow
remote root ssh logins....is enabled. If you can change that it means
you are root on the machine you are accessing? Bad bad hacker....!!!!
You probably need to log in via a normal user via ssh, then su to root,
and you may be blocked there with control lists.
zentara
--
I'm not really a human, but I play one on earth.
http://www.zentara.net/~zentaran/Remember_How_Lucky_You_Are.html
------------------------------
Date: Thu, 12 Feb 2009 05:14:42 -0800 (PST)
From: Krishna Chaitanya <schaitan@gmail.com>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <89974084-0299-4f1f-a908-b21d9db140e2@d36g2000prf.googlegroups.com>
Hi, I've tried all combinations after I wrote my first post. Not
succeeding with root and non-root users. Same problem. :( I need quick
help...
------------------------------
Date: Thu, 12 Feb 2009 05:17:04 -0800 (PST)
From: Krishna Chaitanya <schaitan@gmail.com>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <4bef2ebd-b9e5-4afc-a87d-75605af23ba7@w1g2000prk.googlegroups.com>
BTW, the business case I am trying to solve INVOLVES running this
script as root and connecting to a lot of remote linux boxes as root.
It's for installing software on those boxes remotely, and this
particular software can ONLY be installed as root user.
------------------------------
Date: Thu, 12 Feb 2009 08:09:51 -0600
From: Chris Mattern <syscjm@sumire.gwu.edu>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <slrngp8bdf.845.syscjm@sumire.gwu.edu>
On 2009-02-12, Krishna Chaitanya <schaitan@gmail.com> wrote:
> Hi all,
>
> Am trying to run a program called "1.pl" on a linux box with IP
> 10.0.75.201. Contents of "1.pl":
>
> ------------------------
>
> #!/usr/bin/perl -w
use warnings; # instead of -w
>
> use Net::SSH::Perl;
use strict; # always
>
> my $ssh = Net::SSH::Perl->new("10.0.75.201", debug => 1, protocol =>
> '2,1', identity_files => ['/root/.ssh/id_rsa']);
> $ssh->login("root","<root passwd goes here>");
> my ($stdout,$stderr,$exit_status) = $ssh->cmd("ls -l");
>
> print "Stdout is $stdout\n\nStderr is $stderr\n\nExit Status is
> $exit_status\n\n";
>
> ------------------------
>
> So...the attempt is to connect to this own IP....I generated rsa
> keypair using ssh-keygen -t rsa with empty paraphrase and mentioned
> path of id_rsa to identity_files as you can see above in the
> constructor.
>
> Am running as root user and want to connect as root user.
This is a really, really bad idea.
> Following is
> the debug output:
>
> -------------------------------------------------------
>
> SSLES10-SP2-32:~/packages # perl 1.pl
> SSLES10-SP2-32: Reading configuration data /root/.ssh/config
> SSLES10-SP2-32: Reading configuration data /etc/ssh_config
> SSLES10-SP2-32: Allocated local port 1023.
> SSLES10-SP2-32: Connecting to 10.0.75.201, port 22.
> SSLES10-SP2-32: Remote protocol version 1.99, remote software version
> OpenSSH_4.2
> SSLES10-SP2-32: Net::SSH::Perl Version 1.34, protocol version 2.0.
> SSLES10-SP2-32: No compat match: OpenSSH_4.2.
> SSLES10-SP2-32: Connection established.
> SSLES10-SP2-32: Sent key-exchange init (KEXINIT), wait response.
> SSLES10-SP2-32: Algorithms, c->s: 3des-cbc hmac-sha1 none
> SSLES10-SP2-32: Algorithms, s->c: 3des-cbc hmac-sha1 none
> SSLES10-SP2-32: Entering Diffie-Hellman Group 1 key exchange.
> SSLES10-SP2-32: Sent DH public key, waiting for reply.
> SSLES10-SP2-32: Received host key, type 'ssh-dss'.
> SSLES10-SP2-32: Host '10.0.75.201' is known and matches the host key.
> SSLES10-SP2-32: Computing shared secret key.
> SSLES10-SP2-32: Verifying server signature.
> SSLES10-SP2-32: Waiting for NEWKEYS message.
> SSLES10-SP2-32: Send NEWKEYS.
> SSLES10-SP2-32: Enabling encryption/MAC/compression.
> SSLES10-SP2-32: Sending request for user-authentication service.
> SSLES10-SP2-32: Service accepted: ssh-userauth.
> SSLES10-SP2-32: Trying empty user-authentication request.
> SSLES10-SP2-32: Authentication methods that can continue:
> publickey,keyboard-interactive.
> SSLES10-SP2-32: Next method to try is publickey.
> SSLES10-SP2-32: Trying pubkey authentication with key file '/root/.ssh/
> id_rsa'
> SSLES10-SP2-32: Authentication methods that can continue:
> publickey,keyboard-interactive.
> SSLES10-SP2-32: Next method to try is publickey.
> SSLES10-SP2-32: Trying pubkey authentication with key file '/root/.ssh/
> id_rsa'
> SSLES10-SP2-32: Authentication methods that can continue:
> publickey,keyboard-interactive.
> SSLES10-SP2-32: Next method to try is publickey.
> Permission denied at 1.pl line 6
>
> ---------------------------------------------------------
>
> Why is this happening? I've no clue, frankly. The configuration files
> it tried reading - /root/.ssh/config and /etc/ssh_config both don't
> exist. Instead, there's a configuration file /etc/ssh/ssh_config.
>
> Can anyone help me please? I've installed all the Crypt:: modules
> required for Net::SSH::Perl to succeed.
>
> Regards,
> Chaitanya
Can you connect as root from the command line?
--
Christopher Mattern
NOTICE
Thank you for noticing this new notice
Your noticing it has been noted
And will be reported to the authorities
------------------------------
Date: Thu, 12 Feb 2009 08:11:16 -0600
From: Chris Mattern <syscjm@sumire.gwu.edu>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <slrngp8bg4.845.syscjm@sumire.gwu.edu>
On 2009-02-12, Krishna Chaitanya <schaitan@gmail.com> wrote:
> BTW, the business case I am trying to solve INVOLVES running this
> script as root and connecting to a lot of remote linux boxes as root.
> It's for installing software on those boxes remotely, and this
> particular software can ONLY be installed as root user.
You do not need to connect as root in order to issue commands as root.
--
Christopher Mattern
NOTICE
Thank you for noticing this new notice
Your noticing it has been noted
And will be reported to the authorities
------------------------------
Date: Thu, 12 Feb 2009 06:16:37 -0800 (PST)
From: Krishna Chaitanya <schaitan@gmail.com>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <c69780f7-814b-46e2-ab68-86122e8048d0@l33g2000pri.googlegroups.com>
Hi Christopher,
I can connect as root.....the password prompt appears at which I type
in the password. Since there is no authorized_keys file in ~/.ssh ,
password prompting is inevitable.
My requirement is to accept IP addresses and passwords of a set of
machines and then install a software remotely on them. For doing it, I
thought of using Net::SSH::Perl since it's the only module I know
which provides facility to accept passwords.
If you think this is really bad idea, can you pls. help by pointing
out better ideas? I am open for trying out the safest way that works
given the user input of IP addresses and passwords.
Thanks a lot,
Chaitanya
------------------------------
Date: Thu, 12 Feb 2009 12:37:23 -0500
From: zentara <zentara@highstream.net>
Subject: Re: Problem using Net::SSH::Perl
Message-Id: <q2n8p41mf0olpho2c44ecbme1bl3tjonke@4ax.com>
On Thu, 12 Feb 2009 06:16:37 -0800 (PST), Krishna Chaitanya
<schaitan@gmail.com> wrote:
>Hi Christopher,
>
>I can connect as root.....the password prompt appears at which I type
>in the password. Since there is no authorized_keys file in ~/.ssh ,
>password prompting is inevitable.
>
>My requirement is to accept IP addresses and passwords of a set of
>machines and then install a software remotely on them. For doing it, I
>thought of using Net::SSH::Perl since it's the only module I know
>which provides facility to accept passwords.
>
>If you think this is really bad idea, can you pls. help by pointing
>out better ideas? I am open for trying out the safest way that works
>given the user input of IP addresses and passwords.
>
>Thanks a lot,
>Chaitanya
Check the configuration files in somewhere like /etc/ssh/ssh_config
and look thru the options,for something like ROOTLOGIN = 0, or google
for "ssh allow root login".
If that isn't your problem, try to better module Net::SSH2.
Net::SSH2 is the newer module, intending to replace Net::SSH::Perl,
and it's hassles with Math module dependencies.
It takes passwords. See:
http://perlmonks.org?node_id=569657
http://perlmonks.org?node_id=702508
You might want to look at it's shell()
Zentara
--
I'm not really a human, but I play one on earth.
http://www.zentara.net/~zentaran/My_Petition_to_the_Great_Cosmic_Conciousness.html
------------------------------
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 2206
***************************************
