[31148] in Perl-Users-Digest
Perl-Users Digest, Issue: 2393 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 5 16:09:44 2009
Date: Tue, 5 May 2009 13:09: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, 5 May 2009 Volume: 11 Number: 2393
Today's topics:
"Summer Of Love" Translucent Wide Body Pen Set faisal4jabbar@gmail.com
"Summer Of Love" Translucent Wide Body Pen Set faisal4jabbar@gmail.com
Re: Capture only first match in regular expression <http://joecosby.com/code/mail.pl>
Google Executive Combo Pen Set faisal4jabbar@gmail.com
Google Icon Vase Speaker - White faisal4jabbar@gmail.com
Google Icon Vase Speaker - White faisal4jabbar@gmail.com
HELP - Spreadsheet::ParseExce - Can't call method "valu <Ansher.M@gmail.com>
Help using Spreadsheet::ParseExcel Module - Can't call <Ansher.M@gmail.com>
Re: Help using Spreadsheet::ParseExcel Module - Can't c <glex_no-spam@qwest-spam-no.invalid>
Re: Help with Net::ftp not downloading <glex_no-spam@qwest-spam-no.invalid>
Re: Help with Net::ftp not downloading <edMbj@aes-intl.com>
Re: Help with Net::ftp not downloading <glex_no-spam@qwest-spam-no.invalid>
Re: Help with Net::ftp not downloading <edMbj@aes-intl.com>
passing "#" into subroutine <ela@yantai.org>
Re: passing "#" into subroutine <tadmc@seesig.invalid>
Re: Perl 5.10: Safety of experimental features? <ben@morrow.me.uk>
Re: <juha@debtor.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 5 May 2009 03:12:00 -0700 (PDT)
From: faisal4jabbar@gmail.com
Subject: "Summer Of Love" Translucent Wide Body Pen Set
Message-Id: <c62a9b6c-8f95-4e8f-96e0-dfe0eef2e994@w31g2000prd.googlegroups.com>
"Like pocket-size lava lamps, these wide body pens in an array of
stunning colors spread peace and joy wherever they appear
for more info
http://www.googleiloveu.blogspot.com/
------------------------------
Date: Tue, 5 May 2009 03:16:28 -0700 (PDT)
From: faisal4jabbar@gmail.com
Subject: "Summer Of Love" Translucent Wide Body Pen Set
Message-Id: <ec10cc72-d38a-4da4-8eaf-e82625cefd98@n7g2000prc.googlegroups.com>
Like pocket-size lava lamps, these wide body pens in an array of
stunning colors spread peace and joy wherever they appear
for more info
http://www.googleiloveu.blogspot.com/
------------------------------
Date: Tue, 05 May 2009 12:40:11 -0700
From: Zapanaz <http://joecosby.com/code/mail.pl>
Subject: Re: Capture only first match in regular expression
Message-Id: <0f5105h5mfnsc30rpa0h5ul3iddhhatqsm@4ax.com>
Thanks for the help on this, bye the way, I appreciate it.
Peter Tuente hunched over a computer, typing feverishly;
Thunder crashed, Peter Tuente laughed madly, then wrote:
>Hi Zapanaz,
>
>the default behaviour of regular expression terms is to be "greedy", so to
>suppress this behaviour to become "not greedy" you have to apply a single
>question mark "?" right after the desired expression(s). Sounds some kind of
>complex, but I hope you get me ;-)
>
>In your case the following should be sufficient:
>
> # old: if($content =~ /.*(<a.*<\/a>).*/i){
> $anchorContent = $1;
>
> # new:
> if($content =~ /.*?(<a.*?<\/a>).*/i){
> $anchorContent = $1;
>
>The effect is, that the first expression ".*" becomes not so greedy eating
>all the possible chars (incl. one/some "<a" chars that prefix the last
>occurrence of "<a" in the current line). Same with the second ".*".
>
>Hope this helps ;-)
>
>Bye.
>
>PiT
>
>"Zapanaz" <http://joecosby.com/code/mail.pl> schrieb im Newsbeitrag
>news:bsl2u4p32s3dgdngliv98ig7a99hfrko0j@4ax.com...
>> Excuse the cross-post, my server doesn't carry comp.lang.perl.misc but
>> it looks like there is more activity there.
>>
>>
>> The answer to this is probably staring me in the face ...
>>
>> I am parsing/page scraping some HTML. I know the first anchor tag <a>
>> contains information I want.
>>
>> So I do this:
>>
>> if($content =~ /.*(<a.*<\/a>).*/i){
>> $anchorContent = $1;
>>
>> This basically works the way I want, it matches an anchor tag and
>> captures the content of it.
>>
>> But there are multiple anchor tags in the HTML. What I want is the
>> first one, but what I get is the last one.
>>
>> I think I should be using one of these
>>
>> * Match 0 or more times
>> + Match 1 or more times
>> ? Match 1 or 0 times
>> {n} Match exactly n times
>> {n,} Match at least n times
>> {n,m} Match at least n but not more than m times
>>
>> To be honest, I really don't know how (n) is actually supposed to
>> look. Would I actually use /a(1)/ to match "a" only one time?
>>
>>
>>
>> --
>> Zapanaz
>> International Satanic Conspiracy
>> Customer Support Specialist
>> http://joecosby.com/
>> Despite the strange appearance of the scooters, the Chinese ant-terror
>> police are lethal in action.
>>
>> :: Currently listening to No 21 in C major K467 Allegro maestoso, 1785, by
>> Mozart, from "Piano Concertos - Vladimir Ashkenazy"
>
--
Joe Cosby
http://joecosby.com/
then, one night while watching cartoons, it hit me like a throbbing
pork obelisk
- Morose, aka Doktor Holocaust
:: Currently listening to TFS, 1983, by Herbie Hancock, from "Future Shock"
------------------------------
Date: Tue, 5 May 2009 03:25:17 -0700 (PDT)
From: faisal4jabbar@gmail.com
Subject: Google Executive Combo Pen Set
Message-Id: <cfdaeb90-de0c-4c42-adb7-6423f58ef37c@f1g2000prb.googlegroups.com>
This set comprises a ballpoint pen and mechanical pencil made from
sustainable wood with a chrome clip
for more info
http://www.googleiloveu.blogspot.com/
------------------------------
Date: Tue, 5 May 2009 03:27:24 -0700 (PDT)
From: faisal4jabbar@gmail.com
Subject: Google Icon Vase Speaker - White
Message-Id: <da770f1b-0a1c-4ae8-8249-01e22af11fef@y33g2000prg.googlegroups.com>
Many computer speakers have a rather grim look and too many wires, so
consider this sound alternative: a single 2-way surround sound speaker
with innovative audio lens technology, a tweeter tuned for clarity.
for more info
http://www.googleiloveu.blogspot.com/
------------------------------
Date: Tue, 5 May 2009 03:29:13 -0700 (PDT)
From: faisal4jabbar@gmail.com
Subject: Google Icon Vase Speaker - White
Message-Id: <3ee8944e-df3c-4c46-b42d-dd59b459114b@u9g2000pre.googlegroups.com>
Many computer speakers have a rather grim look and too many wires, so
consider this sound alternative: a single 2-way surround sound speaker
with innovative audio lens technology, a tweeter tuned for clarity.
for more info
http://www.googleiloveu.blogspot.com/
------------------------------
Date: Tue, 5 May 2009 11:45:45 -0700 (PDT)
From: perl Newbie <Ansher.M@gmail.com>
Subject: HELP - Spreadsheet::ParseExce - Can't call method "value" on an undefined value
Message-Id: <49205ada-5c18-4de7-9bf0-4b41292f38ad@n4g2000vba.googlegroups.com>
Hi,
I am getting an error message Can't call method "value" on an
undefined value at ....
I have used a print stmt print "RowL: $rowL ", $worksheet->get_cell
($rowL,6)->value(), "\n";
just to check the values it is working perfectly. But the array @qids
values are not printed in op, I think it is something to do with above
error message. Could someone please explain me what is wrong with my
code.
__CODE__
use strict;
use warnings;
use Spreadsheet::ParseExcel;
my $excelfilename="data.xls";
my $datasheet="data";
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->Parse($excelfilename);
my $worksheet = $workbook->Worksheet($datasheet);
my ( $row_min, $row_max ) = $worksheet->row_range();
my $row;
my $rowL;
my @qids;
for $row ($row_min .. $row_max) {
if ($worksheet->get_cell($row,3)->value() =~/single choice/i)
{
$rowL=$row+1;
until ($worksheet->get_cell($rowL,0)->value()=~/
question/) {
if ($worksheet->get_cell($rowL,0)->value()=~/
column/) {
print "RowL: $rowL ", $worksheet-
>get_cell($rowL,6)->value(), "\n";
push @qids, $worksheet->get_cell
($rowL,6)->value();
}
$rowL++;
}
}
}
foreach my $l (@qids) {
print $l, "\n";
}
------------------------------
Date: Tue, 5 May 2009 11:02:37 -0700 (PDT)
From: perl Newbie <Ansher.M@gmail.com>
Subject: Help using Spreadsheet::ParseExcel Module - Can't call method "value" on an undefined value
Message-Id: <2c8d54eb-0669-4694-a6f9-2ec09db25aa0@m24g2000vbp.googlegroups.com>
Hi,
Please help me understand why I am getting error { Can't call method
"value" on an undefined value excelRead.pl line 34. }
Line 34 in my script is $qval = $qcell->value();
When I checked the excel file, there are no blank rows in column 1,
then how come it is throwing an error -undefined value?
Thanks!
__CODE__
use strict;
use warnings;
use Spreadsheet::ParseExcel;
my $excelfilename="Data2.xls";
my $datasheet="data";
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->Parse($excelfilename);
my $worksheet = $workbook->Worksheet($datasheet);
my ( $row_min, $row_max ) = $worksheet->row_range();
my $row;
my $cell;
my $cell_value;
my $qcell;
my $qval;
my @qids;
for $row ($row_min .. $row_max) {
$cell = $worksheet->get_cell($row,3);
$cell_value = $cell->value();
if ($cell_value =~/single choice/i) {
$qcell = $worksheet->get_cell($row+1,0);
$qval = $qcell->value();
until ($qval =~/question/) {
$qcell = $worksheet->get_cell($row
+1,0);
$qval = $qcell->value();
push @qids, $worksheet->get_cell($row
+1,1)->value();
$row++;
}
}
}
foreach my $l (@qids) {
print $l, "\n";
}
------------------------------
Date: Tue, 05 May 2009 13:25:18 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Help using Spreadsheet::ParseExcel Module - Can't call method "value" on an undefined value
Message-Id: <4a00848e$0$89385$815e3792@news.qwest.net>
perl Newbie wrote:
> Hi,
>
> Please help me understand why I am getting error { Can't call method
> "value" on an undefined value excelRead.pl line 34. }
>
> Line 34 in my script is $qval = $qcell->value();
>
> When I checked the excel file, there are no blank rows in column 1,
> then how come it is throwing an error -undefined value?
[...]
> my $row;
> my $cell;
> my $cell_value;
>
> my $qcell;
> my $qval;
> my @qids;
Define the variable in the smallest possible scope.
>
> for $row ($row_min .. $row_max) {
for my $row ( $row_min .. $row_max) {
> $cell = $worksheet->get_cell($row,3);
my $cell = $worksheet->get_cell($row,3);
etc.
> $cell_value = $cell->value();
>
> if ($cell_value =~/single choice/i) {
> $qcell = $worksheet->get_cell($row+1,0);
What happens when $row equals $row_max.. e.g. what's in ($row_max+1, 0)?
You could use another for loop, which would make your code much cleaner.
for my $next_row ( $row+1 .. $row_max ) {
# get the values you're after..
last if $qval =~ /question/;
}
> $row++;
Be careful modifying a variable you use in your for loop. In
this case perl saves you, but you should avoid doing it.
FYI: You can add print statements to your code, to help you debug things
on your own.
------------------------------
Date: Tue, 05 May 2009 10:28:36 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <4a005b25$0$48214$815e3792@news.qwest.net>
Ed Jay wrote:
>> J. Gleixner wrote:
>>
>>> Ed Jay wrote:
>>> I'm still a novice at Perl. I'm trying to develop a simple script to
>>> download a set of files from my server to my local drive. Although I'm not
>>> getting any error messages, the script isn't performing. Help, please!
>>>
>>> (BTW, using this script I have been able to change and delete file names
>>> on the server, so I know I'm properly logged in.)
[...]
>>> chdir($localDir);
>> What if that fails?
>>
> Hammer meet nail! I added the error message trap, an lo, I get an error
> message saying it can't change the local directory. Doesn't tell me why,
> only what the path is on the server.
[...]
If you die with the reason, which is set in $!, you'll usually
get a pretty good explanation why it failed.
chdir( $localDir ) or die "Can't cd to $localDir: $!";
------------------------------
Date: Tue, 05 May 2009 08:58:15 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <83o00511f04i8a645qqcr8lf1oe5jajcev@4ax.com>
J. Gleixner wrote:
>Ed Jay wrote:
>>> J. Gleixner wrote:
>>>
>>>> Ed Jay wrote:
>>>> I'm still a novice at Perl. I'm trying to develop a simple script to
>>>> download a set of files from my server to my local drive. Although I'm not
>>>> getting any error messages, the script isn't performing. Help, please!
>>>>
>>>> (BTW, using this script I have been able to change and delete file names
>>>> on the server, so I know I'm properly logged in.)
>[...]
>>>> chdir($localDir);
>>> What if that fails?
>>>
>> Hammer meet nail! I added the error message trap, an lo, I get an error
>> message saying it can't change the local directory. Doesn't tell me why,
>> only what the path is on the server.
>[...]
>
>If you die with the reason, which is set in $!, you'll usually
>get a pretty good explanation why it failed.
>
>chdir( $localDir ) or die "Can't cd to $localDir: $!";
Without the CGI module installed, I get no error message. The script just
dies at the cd directive. With the CGI module installed and fatals to the
screen, after setting $localDir = C:\, I receive the error message,
chdir( $localDir ) or die "Can't cd to $localDir: $!"; I'm sure that must
be telling, but I can't fathom what it's telling me...I do have a drive C.
--
Ed Jay (remove 'M' to reply by email)
Win the War Against Breast Cancer.
Knowing the facts could save your life.
http://www.breastthermography.info
------------------------------
Date: Tue, 05 May 2009 11:31:18 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <4a0069d7$0$87079$815e3792@news.qwest.net>
Ed Jay wrote:
> J. Gleixner wrote:
>
>> Ed Jay wrote:
>>>> J. Gleixner wrote:
>>>>
>>>>> Ed Jay wrote:
>>>>> I'm still a novice at Perl. I'm trying to develop a simple script to
>>>>> download a set of files from my server to my local drive. Although I'm not
>>>>> getting any error messages, the script isn't performing. Help, please!
>>>>>
>>>>> (BTW, using this script I have been able to change and delete file names
>>>>> on the server, so I know I'm properly logged in.)
>> [...]
>>>>> chdir($localDir);
>>>> What if that fails?
>>>>
>>> Hammer meet nail! I added the error message trap, an lo, I get an error
>>> message saying it can't change the local directory. Doesn't tell me why,
>>> only what the path is on the server.
>> [...]
>>
>> If you die with the reason, which is set in $!, you'll usually
>> get a pretty good explanation why it failed.
>>
>> chdir( $localDir ) or die "Can't cd to $localDir: $!";
>
> Without the CGI module installed, I get no error message. The script just
> dies at the cd directive. With the CGI module installed and fatals to the
> screen, after setting $localDir = C:\, I receive the error message,
> chdir( $localDir ) or die "Can't cd to $localDir: $!"; I'm sure that must
> be telling, but I can't fathom what it's telling me...I do have a drive C.
>
Hu? That looks like it's not executing the script. You shouldn't
see your code, in the browser. If you're running it via your
Web server, then 'use CGI' will help, otherwise you'll have
to print the header and HTML yourself.
Maybe the output is in your Web server's error log?
When in doubt, simplify the code to exactly what you're
trying to test.
use CGI qw(:standard);
# without the next line, die output will be found in your
# server's error log. Use this only when debugging.
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $localDir = 'C:/somedir'; #change that to the appropriate location
print header,
"Changing directory to $localDir.<br>";
chdir( $localDir ) or die "Can't cd to $localDir: $!";
print "Change to $localDir successful.<br>";
------------------------------
Date: Tue, 05 May 2009 10:48:42 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Re: Help with Net::ftp not downloading
Message-Id: <fsu0055qadj8ba1agfiealmsosnv8tpfe2@4ax.com>
J. Gleixner wrote:
>Ed Jay wrote:
>> J. Gleixner wrote:
>>
>>> Ed Jay wrote:
>>>>> J. Gleixner wrote:
>>>>>
>>>>>> Ed Jay wrote:
>>>>>> I'm still a novice at Perl. I'm trying to develop a simple script to
>>>>>> download a set of files from my server to my local drive. Although I'm not
>>>>>> getting any error messages, the script isn't performing. Help, please!
>>>>>>
>>>>>> (BTW, using this script I have been able to change and delete file names
>>>>>> on the server, so I know I'm properly logged in.)
>>> [...]
>>>>>> chdir($localDir);
>>>>> What if that fails?
>>>>>
>>>> Hammer meet nail! I added the error message trap, an lo, I get an error
>>>> message saying it can't change the local directory. Doesn't tell me why,
>>>> only what the path is on the server.
>>> [...]
>>>
>>> If you die with the reason, which is set in $!, you'll usually
>>> get a pretty good explanation why it failed.
>>>
>>> chdir( $localDir ) or die "Can't cd to $localDir: $!";
>>
>> Without the CGI module installed, I get no error message. The script just
>> dies at the cd directive. With the CGI module installed and fatals to the
>> screen, after setting $localDir = C:\, I receive the error message,
>> chdir( $localDir ) or die "Can't cd to $localDir: $!"; I'm sure that must
>> be telling, but I can't fathom what it's telling me...I do have a drive C.
>>
>
>Hu? That looks like it's not executing the script. You shouldn't
>see your code, in the browser. If you're running it via your
>Web server, then 'use CGI' will help, otherwise you'll have
>to print the header and HTML yourself.
>
>Maybe the output is in your Web server's error log?
>
>When in doubt, simplify the code to exactly what you're
>trying to test.
>
>use CGI qw(:standard);
># without the next line, die output will be found in your
># server's error log. Use this only when debugging.
>use CGI::Carp qw(fatalsToBrowser);
>use strict;
>
>my $localDir = 'C:/somedir'; #change that to the appropriate location
>
>print header,
> "Changing directory to $localDir.<br>";
>
>chdir( $localDir ) or die "Can't cd to $localDir: $!";
>
>print "Change to $localDir successful.<br>";
The above represents the entire script I used. Got the same message (Can't
cd to C:/: No such file or directory at brca_download.pl), and there is
nothing showing in the server's error log.
--
Ed Jay (remove 'M' to reply by email)
Win the War Against Breast Cancer.
Knowing the facts could save your life.
http://www.breastthermography.info
------------------------------
Date: Wed, 6 May 2009 00:15:08 +0800
From: "ela" <ela@yantai.org>
Subject: passing "#" into subroutine
Message-Id: <gtpomc$ine$1@ijustice.itsc.cuhk.edu.hk>
I find $commenttag prints out nothing, what's the problem? I have to escape
pound....?
open( my $FPM, '<', "inputfile.txt");
$lineM = <$FPM>;
while (&Nextline($lineM, "#", "<Models>")) {
$lineM = <$FPM>;
}
sub Nextline {
my ($line, $commenttag, $pattern) = @_;
print "C:$commentag"; print $pattern;<STDIN>;
if ($line =~ /^$commenttag/) {
return 1;
}
if ($line =~ /$pattern/) {
return 0;
} else {
return 1;
}
}
------------------------------
Date: Tue, 5 May 2009 11:35:41 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: passing "#" into subroutine
Message-Id: <slrnh00qmt.hf7.tadmc@tadmc30.sbcglobal.net>
ela <ela@yantai.org> wrote:
> I find $commenttag prints out nothing,
Your code does not attempt to output $commenttag.
Your code outputs $commentag.
If you had "use strict" turned on, then perl would have found this bug for you.
> what's the problem?
You have not enabled warnings and strictures.
use warnings;
use strict;
This has been pointed out to you before.
You should start doing it.
> I have to escape
> pound....?
Did it start working when you escaped pound?
No?
Then that is not the problem.
> open( my $FPM, '<', "inputfile.txt");
You should always, yes *always*, check the return value from open():
open my $FPM, '<', 'inputfile.txt'
or die "could not open 'inputfile.txt' $!';
> while (&Nextline($lineM, "#", "<Models>")) {
You should not use ampersands on subroutine calls unless you know
what it means, and what it means is what you want. It seldom is.
while ( Nextline($lineM, '#', '<Models>') ) {
> my ($line, $commenttag, $pattern) = @_;
> print "C:$commentag"; print $pattern;<STDIN>;
perl would have found the bug for you, if you had only asked it to.
Have you seen the Posting Guidelines that are posted here frequently?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 5 May 2009 20:23:53 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Perl 5.10: Safety of experimental features?
Message-Id: <9bg6d6-2g2.ln1@osiris.mauzo.dyndns.org>
Quoth Shmuel (Seymour J.) Metz <spamtrap@library.lspace.org.invalid>:
> Perl 5.10.0 has been out long enough that it is no longer bleeding edge.
> Some of the useful new features are labelled as experimental, suggesting
> that they not be used in production code. However, the enhancements that
> I'm interested in are also in Perl 6, albeit with different syntax.
>
> Does anybody have a feel for which experimental features might plausibly
> be removed in a hypothetical Perl 5.11 and which have been solid enough or
> won enough acceptance that removal is unlikely?
I know for certain that smartmatch (and therefore 'when') will have
significantly different semantics in the future. I'm not sure whether
these changes will go into 5.10.1, but they'll certainly go into .2.
Beyond that, I suspect you'd be better off asking
perl5-porters@perl.org.
Ben
------------------------------
Date: Tue, 05 May 2009 05:28:11 -0500
From: Juha Lindberg <juha@debtor.de>
Subject: Re:
Message-Id: <eudfl.14177$yr3.4271@oe202145.lpu-e.uhecco.nl>
Eikö tosiaan kaltaiseni asiaa ja kunnollista ja vähäistä materiaalia
tuottava saa olla heidän häiriköinneiltään vapaata nettisivustoa enää
mistään?
Eikö tosiaan saada näitä ties mitä torimyyntikokouksiaan pitäviä
"Fallström&kump" padottua pois tai edes rajattua asiaankuulumattominme
juttuhaahuiluine nyyssiin.
Heillä kun tuntuu olevan SUOPO-verorahoitteinen luulo siitä, että saavat
häiriköidä asiaa-aiheisiin kuulumattomilla kirjoituksillaan
nettiaiheosastoissa missä vaan! Onko tosiaan nettimme valjastettu tällaisten
"rahasta sensuuriohjelmiaan ja ties mitä moskansa" myyvien, tyrkyttävien
trollien
Ja minusta on viimeistään nyt pantava myös valtioneuvostossa huomioon, ettei
heidän häirintänsä rajoitu enää edes nettiin. Vaan ovat hyväkkäät alkaneet
ottaa laajastin hampaisiinsa asiallisen ydinkritiikin YVA-TEM tiedostojen
kaltaista valtion materiaalia myös. Terveiset nyt suoraan Sisäminmisteriöön
asti! Niin kauan kun tässä ydin-SUPO turvottamassa Suomessamme on
demokratialle tilaa on syytä panna tällaiselle sikailukehitystaantumiselle
tiukat suitset. Kun maamme oikeusministeri Tuija Brax haikailee maamme
saattamiseksi takaisin demokratian uomaan jokainen ymmärtää, että tällaisia
edellämainittuja ydinpainostusryppäitä ei saa antaa mellastaa kuin siat
pellossa!
------------------------------
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 2393
***************************************
