[22625] in Perl-Users-Digest
Perl-Users Digest, Issue: 4846 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 15 06:10:44 2003
Date: Tue, 15 Apr 2003 03:05:09 -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 Tue, 15 Apr 2003 Volume: 10 Number: 4846
Today's topics:
Accesing machines of a network <kasp@epatra.com>
command user with Net::FTP ? (Dr Trevor Hales)
Re: command user with Net::FTP ? <andrew.rich@bigpond.com>
Re: command user with Net::FTP ? news@roaima.freeserve.co.uk
Re: GD::Graph-How to display string instead of values o (Valerie VANLERBERGHE)
Re: GD::Graph-How to display string instead of values o (Sam Holden)
Re: How to do a regexp to find #'s? <Jeff@aetherweb.co.uk>
Re: How to do a regexp to find #'s? <uri@stemsystems.com>
Re: How to do a regexp to find #'s? <abigail@abigail.nl>
Re: How to do a regexp to find #'s? <uri@stemsystems.com>
Re: How to do a regexp to find #'s? <wasell@bahnhof.se>
Re: How to do a regexp to find #'s? <Jeff@aetherweb.co.uk>
keys function not printing keys in debugger (qanda)
Matrix problem solving in perl (manish)
Matrix problem (manish)
Re: Matrix problem news@roaima.freeserve.co.uk
Re: Method inheritance? <ubl@schaffhausen.de>
Re: My 1st japh!! <bik.mido@tiscalinet.it>
Re: Perlmonks Down? <abigail@abigail.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 15 Apr 2003 14:36:21 +0530
From: "Kasp" <kasp@epatra.com>
Subject: Accesing machines of a network
Message-Id: <b7gi3f$a5f$1@newsreader.mailgate.org>
We have a LAN network within our office that connects various Windows
NT/2000 machines together.
I am to make a Perl script that will access each of these machines and list
down all the files (recursively) that have been shared. I have little
experience with perl modules, which I am sure, I will have to use now to
make life easier. There are so many Net* modules, that I am baffled.
Here are some of the challenges that I have to overcome and request you to
point me to the right direction/modules:
1. Determine the list of computer names...that are present in the network.
How do I do this?
2. Once I know a machine name, I am to connect to it and
authenticate...before I can go on to access it's files.
3. Will I be able to read the directories etc easily? They might have
read-permissions specific to a login and my login may/maynot be able to read
them.
Thanks in advance.
Kasp.
--
"Accept that some days you are the pigeon and some days the statue."
"A pat on the back is only a few inches from a kick in the butt." - Dilbert.
------------------------------
Date: Tue, 15 Apr 2003 07:07:10 GMT
From: t.hales@unimelb.edu.au (Dr Trevor Hales)
Subject: command user with Net::FTP ?
Message-Id: <3e9baf82.15329703@news.unimelb.edu.au>
Greetings,
Has any one been able to use the FTP command user with Net::FTP ?
Thanking you in anticipation.
Regards
Trevor
------------------------------
Date: Tue, 15 Apr 2003 19:30:31 +1000
From: "Andrew Rich" <andrew.rich@bigpond.com>
Subject: Re: command user with Net::FTP ?
Message-Id: <pan.2003.04.15.09.30.31.421117@bigpond.com>
#!/usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new("192.168.0.3", Debug => 1);
$ftp->login("user",'pass');
$ftp->type("I");
$ftp->get("filename");
$ftp->quit;
------------------------------
Date: Tue, 15 Apr 2003 10:33:31 +0100
From: news@roaima.freeserve.co.uk
Subject: Re: command user with Net::FTP ?
Message-Id: <bljg7b.7n1.ln@moldev.cmagroup.co.uk>
Dr Trevor Hales <t.hales@unimelb.edu.au> wrote:
> Has any one been able to use the FTP command user with Net::FTP ?
1. What's wrong with the login function?
2. Quoting from the documentation,
"Net::FTP" inherits from "Net::Cmd" so methods defined in
"Net::Cmd" may be used to send commands to the remote FTP
server.
3. Some (many? most?) FTP servers won't let you re-login during a session
anyway, so there's no point exploring this option in the general case. You
may have a specific situation where it's useful, though.
Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}
------------------------------
Date: 15 Apr 2003 00:18:40 -0700
From: valerie_vanlerberghe@yahoo.fr (Valerie VANLERBERGHE)
Subject: Re: GD::Graph-How to display string instead of values on axis?
Message-Id: <609f743a.0304142318.7a7c2f8a@posting.google.com>
Martien Verbruggen <mgjv@tradingpost.com.au> wrote in message news:<slrnb9mmmu.4ba.mgjv@verbruggen.comdyn.com.au>...
> On 14 Apr 2003 17:56:53 -0700,
> Valerie VANLERBERGHE <valerie_vanlerberghe@yahoo.fr> wrote:
> > Is there a way to display string instead of values on y-axis??
> > I mean, I'd like to display "OK" instead of 1, "Warnings" instead of
> > value 2, "KO"instead of value 3...on the axis
> > I tried to use y_number_format as explained on GDGraph page on
> > CPAN...but I couldn't...I didn't understand how it works...
>
> Something like (untested):
I just tested it: it works...thanks a lot
>
> sub myformat
> {
> my $val = shift;
> my @values = qw/OK Warnings KO/;
> return $values[$val - 1] || "ILLEGAL VALUE";
> }
>
>
> # create a GD::Graph object with the name $my_graph
> # Then set the formatter:
>
> $my_graph->set( y_number_format => \&myformat );
>
> # Then do the plotting
>
> Martien
------------------------------
Date: 15 Apr 2003 07:33:57 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: GD::Graph-How to display string instead of values on axis?
Message-Id: <slrnb9ndf5.h29.sholden@flexal.cs.usyd.edu.au>
On 15 Apr 2003 00:18:40 -0700,
Valerie VANLERBERGHE <valerie_vanlerberghe@yahoo.fr> wrote:
> Martien Verbruggen <mgjv@tradingpost.com.au> wrote in message news:<slrnb9mmmu.4ba.mgjv@verbruggen.comdyn.com.au>...
>> On 14 Apr 2003 17:56:53 -0700,
>> Valerie VANLERBERGHE <valerie_vanlerberghe@yahoo.fr> wrote:
>> > Is there a way to display string instead of values on y-axis??
>> > I mean, I'd like to display "OK" instead of 1, "Warnings" instead of
>> > value 2, "KO"instead of value 3...on the axis
>> > I tried to use y_number_format as explained on GDGraph page on
>> > CPAN...but I couldn't...I didn't understand how it works...
>>
>> Something like (untested):
> I just tested it: it works...thanks a lot
This is the first post in the thread that I actually saw, so sorry if I'm
repeating something... Or if the context means the values are restricted
somewhat.
Not checking the value of $val before indexing into the array will
cause 'KO' to be returned instead of 'ILLEGAL VALUE' when $val is 0.
And 'Warnings' when $val is -1, and 'OK' when $val is -2.
Due to perl's negative indexes access from the end (so -1 is the last
element, -2 the second last, etc).
Safer to check if $val => 0 and $val <= $#value.
>>
>> sub myformat
>> {
>> my $val = shift;
>> my @values = qw/OK Warnings KO/;
>> return $values[$val - 1] || "ILLEGAL VALUE";
>> }
--
Sam Holden
------------------------------
Date: Tue, 15 Apr 2003 07:02:45 +0100
From: "Jeff Snoxell" <Jeff@aetherweb.co.uk>
Subject: Re: How to do a regexp to find #'s?
Message-Id: <b7g78t$90m$1@newsg4.svr.pol.co.uk>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnb9m9jd.ivq.tadmc@magna.augustmail.com...
> Jeff Snoxell <Jeff@aetherweb.co.uk> wrote:
>
> > I'm currently trying to work with this:
> >
> > $value =~ s/#+.*$//;
> >
> > But its not working,
>
> Show us a short and complete Perl program that we can run,
> that duplicates your problem, and we will help you fix it.
>
Um, sorry about all this. It transpired that when I modified my existing
code to cut out comments from parsed lines I also inadvertantly deleted a
character in another nearby line. Subsequently, whatever I tried for a
regexp failed. Abigails original rather rude but helpful post pointed me in
the right direction immediately.
So what's the definitive rule for when a # makes a comment then?
Many thanks,
Jeff Snoxell
Aetherweb Ltd - http://www.bespoke-web-design-uk.co.uk
------------------------------
Date: Tue, 15 Apr 2003 06:30:09 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How to do a regexp to find #'s?
Message-Id: <x7llyc6zny.fsf@mail.sysarch.com>
>>>>> "JS" == Jeff Snoxell <Jeff@aetherweb.co.uk> writes:
JS> So what's the definitive rule for when a # makes a comment then?
when it appears where whitespace could appear.
the poster who said you can't have # in a regex was way off base.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 15 Apr 2003 07:35:50 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: How to do a regexp to find #'s?
Message-Id: <slrnb9ndim.u5s.abigail@alexandra.abigail.nl>
Uri Guttman (uri@stemsystems.com) wrote on MMMDXIV September MCMXCIII in
<URL:news:x7llyc6zny.fsf@mail.sysarch.com>:
## >>>>> "JS" == Jeff Snoxell <Jeff@aetherweb.co.uk> writes:
##
##
## JS> So what's the definitive rule for when a # makes a comment then?
##
## when it appears where whitespace could appear.
Eh, no.
q#Not a comment#
But there could be whitespace after the q.
Abigail
--
tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
sub A::TIESCALAR {bless \my $A => A} # Yet Another silly JAPH by Abigail
sub A::FETCH {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
------------------------------
Date: Tue, 15 Apr 2003 08:00:58 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: How to do a regexp to find #'s?
Message-Id: <x7ades6vgl.fsf@mail.sysarch.com>
>>>>> "A" == Abigail <abigail@abigail.nl> writes:
A> Uri Guttman (uri@stemsystems.com) wrote on MMMDXIV September MCMXCIII in
A> <URL:news:x7llyc6zny.fsf@mail.sysarch.com>:
A> ## >>>>> "JS" == Jeff Snoxell <Jeff@aetherweb.co.uk> writes:
A> ##
A> ##
A> ## JS> So what's the definitive rule for when a # makes a comment then?
A> ##
A> ## when it appears where whitespace could appear.
A> Eh, no.
A> q#Not a comment#
A> But there could be whitespace after the q.
good catch but my point is a rule of thumb. just stripping # to EOL is
not possible with alternate quote ops around.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Tue, 15 Apr 2003 10:13:41 +0200
From: Thomas Wasell <wasell@bahnhof.se>
Subject: Re: How to do a regexp to find #'s?
Message-Id: <MPG.1905dd0cc425f7da9896f2@news.bahnhof.se>
[My appologies to mr. Guttman: I inadvertedly mailed this to him, instead of
following up.]
In article <x7llyc6zny.fsf@mail.sysarch.com>, Uri Guttman
<uri@stemsystems.com> wrote:
>>>>>> "JS" == Jeff Snoxell <Jeff@aetherweb.co.uk> writes:
>
>
> JS> So what's the definitive rule for when a # makes a comment then?
>
>when it appears where whitespace could appear.
>
I'm not quite sure I follow you. Surely you don't mean that replacing a
whitespace with a # will necessarily make comment? Apart from quoted
expressions, regexs, and silly cases like this:
print $ x;
print $#x;
there must loads of cases where a # instead of whitespace doesn't make a
comment!
Or was that joke and I just fell for it?
Maybe we should point out to Jeff Snoxell that IF he is trying to
automatically remove comments from perl code, he WILL fail. (He doesn't say
exactly what he's trying to uncomment.) Perhaps he can let Deparse have a go
at it, but that's not likely to do what he wants.
--
Thomas Wasell | Cats are smarter than dogs. You can't make eight cats
wasell@bahnhof.se | pull a sled through the snow.
------------------------------
Date: Tue, 15 Apr 2003 11:02:42 +0100
From: "Jeff Snoxell" <Jeff@aetherweb.co.uk>
Subject: Re: How to do a regexp to find #'s?
Message-Id: <b7glao$f1m$1@newsg1.svr.pol.co.uk>
> Maybe we should point out to Jeff Snoxell that IF he is trying to
> automatically remove comments from perl code, he WILL fail. (He doesn't
say
> exactly what he's trying to uncomment.) Perhaps he can let Deparse have a
go
> at it, but that's not likely to do what he wants.
>
> --
> Thomas Wasell | Cats are smarter than dogs. You can't make eight cats
> wasell@bahnhof.se | pull a sled through the snow. (no, but you can make
800!)
I have a bunch of windows style .ini files with lines like this:
[section1]
item1=This is item 1 # this item is used for blah blah blah
item2=This is item 2 # this item is used for blah blah blah
item3=This is item 3 # this item is used for blah blah blah
item4=This is item 4 # this item is used for blah blah blah
Just wanted to read in the lines minus the comments.
It's working great now.
Many thanks,
Jeff Snoxell
Aetherweb Ltd - http://www.bespoke-web-design-uk.co.uk
------------------------------
Date: 15 Apr 2003 01:23:30 -0700
From: fumail@freeuk.com (qanda)
Subject: keys function not printing keys in debugger
Message-Id: <62b4710f.0304150023.102b9ff5@posting.google.com>
Sorry, needed longish post to explain problem.
At the moment I have to use Perl 5.005, can anyone explain the
behaviour
of the keys function in the debugger, am I using it incorrectly?
Here's an example script ...
#!/usr/bin/perl -w
use strict;
my %cfg = ( # Common configuration structure.
# Other sub-hashes removed and def_types removed.
def_types => { # Def type structure.
def1 => { # Def1 information.
load =>0, # Load info for this
type.
def_file =>'', # Def file for this
type.
flds =>{}, # Fields required.
},
def2 => { # Def2 information.
load =>0, # Load info for this
type?
def_file =>'', # Def file for this
type.
flds =>{}, # Fields required.
},
},
);
my $dtypes = \%{$cfg{def_types}};
$dtypes->{def1}{load} = 1; # Would normally set from environment.
print STDOUT "Check load def1[$dtypes->{def1}{load}]\n";
sub com_get_def_info {
my $ver = "ver1"; # Set version explicitly for this example.
while( <DATA> ) { # Use DATA for this example (normally use config
file).
for my $dtype ( keys %$dtypes ) {
next unless $dtypes->{$dtype}{load} && /^$ver,$dtype/;
chomp;
my @dc_flds = split /,/;
$dtypes->{$dtype}{def_file} = $dc_flds[2];
print STDOUT "dtype file [$dtypes->{$dtype}{def_file}]\n";
my $flds = \%{$dtypes->{$dtype}{flds}};
print STDOUT "ref:ref $flds\n";
for (3..$#dc_flds) {
$flds->{$dc_flds[$_]} = 0;
#push %$flds, {$dc_flds[$_]=>0};
}
# read type file (fake positions for this exampel)and
record pos.
for my $key (keys %$flds ) {
$flds->{$key} = int rand(256);
print STDOUT "fld:pos[$key:$flds->{$key}]\n";
}
$dtypes->{$dtype}{nflds} = 77; # Fake fields in type
file.
}
} close DATA;
}
&com_get_def_info or
die "Failed to read common definition information - exiting!\n";
print STDOUT "Check at end...\n";
for my $type (keys %$dtypes) {
print STDOUT " type:$type\n";
print STDOUT " load:$dtypes->{$type}{load}\n";
if( $dtypes->{$type}{load} ) {
print STDOUT " nflds[$dtypes->{$type}{nflds}]\n";
$DB::single = 1;
for my $fld (keys %{$dtypes->{$type}{flds}} ) {
print STDOUT "
fld:val[$fld:$dtypes->{$type}{flds}{$fld}]\n";
}
}
}
__DATA__
# comment here
ver1,def1,def1.txt,fld1,field2,fldthree
ver1,def2,defin2.txt,field1,fld2,field3
ver2,def1,def1.txt,Fld1,field2,Fld3
ver2,def2,def2.txt,Field1,fld2,Field3
I run it as normal and everything works OK ...
$ ./hoh5
Name "DB::single" used only once: possible typo at ./hoh5 line 59.
Check load def1[1]
dtype file [def1.txt]
ref:ref HASH(0x129864)
fld:pos[fldthree:105]
fld:pos[field2:233]
fld:pos[fld1:83]
Check at end...
type:def1
load:1
nflds[77]
fld:val[fldthree:105]
fld:val[field2:233]
fld:val[fld1:83]
type:def2
load:0
$
If I then run in debug I don't understand why the keys function
does not print anything ...
$ perl -d ./hoh5
Loading DB routines from perl5db.pl version 1.03
Emacs support available.
Enter h or `h h' for help.
main::(./hoh5:3): my %cfg = ( # Common
configuration structure.
DB<1> c
Check load def1[1]
dtype file [def1.txt]
ref:ref HASH(0x20f834)
fld:pos[fldthree:103]
fld:pos[field2:250]
fld:pos[fld1:220]
Check at end...
type:def1
load:1
nflds[77]
main::(./hoh5:60): for my $fld (keys
%{$dtypes->{$type}{flds}} ) {
DB<1> x $dtypes
0 HASH(0x24d570)
'def1' => HASH(0x205130)
'def_file' => 'def1.txt'
'flds' => HASH(0x20f834)
'field2' => 250
'fld1' => 220
'fldthree' => 103
'load' => 1
'nflds' => 77
'def2' => HASH(0x208cbc)
'def_file' => ''
'flds' => HASH(0x20f828)
empty hash
'load' => 0
DB<2> keys %{$dtypes->{$type}{flds}}
DB<3>
------------------------------
Date: 14 Apr 2003 22:09:25 -0700
From: manish__anand@hotmail.com (manish)
Subject: Matrix problem solving in perl
Message-Id: <1f4ad01d.0304142109.bec35f3@posting.google.com>
Hi !
I am facing a problem in handling the matrices in Perl. I have three
matrices with the following structure :
1 4 3 2
-----------------------------
1 ==> 1 34 21 12
4 ==> 0 1 2 8
3 ==> 0 0 1 21
2 ==> 0 0 0 1
1 8 5
---------------------
1 ==> 1 4 3
8 ==> 0 1 2
5 ==> 0 0 1
This is a hash with the value being a space separated list of values
i.e. something like
$temp{1} = "1 34 21 12 " etc...
I want to club these matrices together .. something like follows :
1 4 3 2 8 5
----------------------------------
1 ==> 1 34 21 12 4 3
4 ==> 0 1 2 8 0 0
3 ==> 0 0 1 21 0 0
2 ==> 0 0 0 1 0 0
8 ==> 0 0 0 0 1 2
5 ==> 0 0 0 0 0 1
I am handling a bulk of data nearly a matrix with around 40000 keys
and approximately same number of values for each key i.e. nearly
1,600,000,000 terms in the matrix. Hence, I am looking for an
efficient method.
I tried using the very inefficient way of creating a matrix with all
possible entries from the 2 matrices. But, this leads to creation of
sparse which takes a lot of memory and hence I was unable to run the
entire analysis.
If there is no efficient way of performing this in perl, please can
anyone suggest a better way in C/C++/Java.
It would be great if somebody could reply to this post at the
earliest.
Thanks in advance,
Manish Anand
------------------------------
Date: 14 Apr 2003 22:10:44 -0700
From: manish__anand@hotmail.com (manish)
Subject: Matrix problem
Message-Id: <1f4ad01d.0304142110.314da999@posting.google.com>
Hi !
I am facing a problem in handling the matrices in Perl. I have three
matrices with the following structure :
1 4 3 2
-----------------------------
1 ==> 1 34 21 12
4 ==> 0 1 2 8
3 ==> 0 0 1 21
2 ==> 0 0 0 1
1 8 5
---------------------
1 ==> 1 4 3
8 ==> 0 1 2
5 ==> 0 0 1
This is a hash with the value being a space separated list of values
i.e. something like
$temp{1} = "1 34 21 12 " etc...
I want to club these matrices together .. something like follows :
1 4 3 2 8 5
----------------------------------
1 ==> 1 34 21 12 4 3
4 ==> 0 1 2 8 0 0
3 ==> 0 0 1 21 0 0
2 ==> 0 0 0 1 0 0
8 ==> 0 0 0 0 1 2
5 ==> 0 0 0 0 0 1
I am handling a bulk of data nearly a matrix with around 40000 keys
and approximately same number of values for each key i.e. nearly
1,600,000,000 terms in the matrix. Hence, I am looking for an
efficient method.
I tried using the very inefficient way of creating a matrix with all
possible entries from the 2 matrices. But, this leads to creation of
sparse which takes a lot of memory and hence I was unable to run the
entire analysis.
If there is no efficient way of performing this in perl, please can
anyone suggest a better way in C/C++/Java.
It would be great if somebody could reply to this post at the
earliest.
Thanks in advance,
Manish Anand
------------------------------
Date: Tue, 15 Apr 2003 10:11:57 +0100
From: news@roaima.freeserve.co.uk
Subject: Re: Matrix problem
Message-Id: <tcig7b.jed.ln@moldev.cmagroup.co.uk>
manish <manish__anand@hotmail.com> wrote:
> I tried using the very inefficient way of creating a matrix with all
> possible entries from the 2 matrices. But, this leads to creation of
> sparse which takes a lot of memory and hence I was unable to run the
> entire analysis.
Have you searched CPAN? It seems to me that there is already a module
for doing maths with sparse matrices (keywords "sparse matrix").
Chris
--
@s=split(//,"Je,\nhn ersloak rcet thuarP");$k=$l=@s;for(;$k;$k--){$i=($i+1)%$l
until$s[$i];$c=$s[$i];print$c;undef$s[$i];$i=($i+(ord$c))%$l}
------------------------------
Date: Tue, 15 Apr 2003 09:00:48 +0200
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: Method inheritance?
Message-Id: <b7gdsf$ev9$1@news.dtag.de>
Matija Papec wrote:
> What should be done when inheriting a class and wanting to be sure that my
> attribute didn't overwrite some of inherited class?
Use delegation || use Class::Delegation
->malte
------------------------------
Date: Tue, 15 Apr 2003 09:41:30 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My 1st japh!!
Message-Id: <eccn9vgnaoo6o35oedl339hhm44l051nq8@4ax.com>
On Mon, 14 Apr 2003 12:05:04 -0400, Benjamin Goldberg
<goldbb2@earthlink.net> wrote:
> pack 'H*','ab5cf4021bafd28972030972b00a218eb9720000'
>
>That's a hexidcimal string, which pack() converts into a much binary
>string (about half that length). I won't show that string, since it
>looks like a mess.
>
> pack 'u', ...
>
>This does uuencoding, which converts binary data into 7-bit ascii clean
>data. It also expands the data slightly. It produces the string:
Well, thanks for the detailed information, but my actual problem was
with pack()s: it seems that I have troubles understanding the docs.
For example I tried to use unpack() to translate a string like
'12AC'
into a list like
(1, 2, 10, 12)
but I couldn't make it work...
Michele
--
$\=q.,.,$_=q.print' ,\g,,( w,a'c'e'h,,map{$_-=qif/g/;chr
}107..q[..117,q)[map+hex,split//,join' ,2B,, w$ECDF078D3'
F9'5F3014$,$,];];$\.=$/,s,q,32,g,s,g,112,g,y,' , q,,eval;
------------------------------
Date: 15 Apr 2003 08:49:00 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Perlmonks Down?
Message-Id: <slrnb9nhrs.9tf.abigail@alexandra.abigail.nl>
Artist (googleartist@yahoo.com) wrote on MMMDXIV September MCMXCIII in
<URL:news:de3ad953.0304141447.14b034ba@posting.google.com>:
)) Found
)) that perlmonks.org
)) perlmonks.com
)) perlmonk.thepen.com
)) all are down.
)) Can we do something about it??
Just flip the red lever. If that doesn't work, trying pushing the
blue button repeatedly, while flipping the red lever.
If that fails as well, call 1-PERLMONKUP.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
------------------------------
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.
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 4846
***************************************
