[30169] in Perl-Users-Digest
Perl-Users Digest, Issue: 1412 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 1 21:10:14 2008
Date: Tue, 1 Apr 2008 18: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, 1 Apr 2008 Volume: 11 Number: 1412
Today's topics:
Can I iterate through a file on a CGI page? <rich@example.net>
Re: Chop vs Chomp <m@rtij.nl.invlalid>
Re: Chop vs Chomp <wsmith60@cinci.rr.com>
Re: Chop vs Chomp <1usa@llenroc.ude.invalid>
Re: Chop vs Chomp <tadmc@seesig.invalid>
Re: Good documentation or good source examples for Imag <john@castleamber.com>
Good documentation or good source examples for Image::M <news1234@free.fr>
Re: Good documentation or good source examples for Imag <devnull4711@web.de>
Re: Good documentation or good source examples for Imag <news1234@free.fr>
Re: Good documentation or good source examples for Imag <news1234@free.fr>
Re: Good documentation or good source examples for Imag <glex_no-spam@qwest-spam-no.invalid>
Re: Sharing a DBI::Mysql database connection with your <tadmc@seesig.invalid>
What is best CMS - SilverStripe, Joomla or Drupal Mayuri.4469@gmail.com
Re: What is best CMS - SilverStripe, Joomla or Drupal <smallpond@juno.com>
Re: What is best CMS - SilverStripe, Joomla or Drupal <glex_no-spam@qwest-spam-no.invalid>
Re: What is best CMS - SilverStripe, Joomla or Drupal <tadmc@seesig.invalid>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <joost@zeekat.nl>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <rich@example.net>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <kkeller-usenet@wombat.san-francisco.ca.us>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <spamtrap@dot-app.org>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <jurgenex@hotmail.com>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <greymausg@mail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 02 Apr 2008 01:05:14 GMT
From: Rich Grise <rich@example.net>
Subject: Can I iterate through a file on a CGI page?
Message-Id: <pan.2008.04.02.01.04.50.851776@example.net>
Apologies to Perl purists - comp.infosystems.www.authoring.cgi doesn't
work on my newsreader, and this is a CGI question:
What I want to do is, I've got a large collection of image files:
$ wc gallery-pix
37448 62619 3218967 gallery-pix
and what I'd like to do is look at each of the 37488 image files on
some kind of page, with buttons like "Keep", "Skip", and "Quit",
so I can page through all of these images, which are strewn all
over the Samba server, and decide which ones might look good on
the website.
So, is it possible to do something like (in pseudocode):
for each $line in <file> {
show webpage with <img> tag, and the three buttons;
get button response, decide what to do with file;
if button == "Quit", save place in source file;
next;
or so?
Thanks,
Rich
------------------------------
Date: Wed, 2 Apr 2008 00:28:06 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Chop vs Chomp
Message-Id: <pan.2008.04.01.22.28.06@rtij.nl.invlalid>
On Tue, 01 Apr 2008 08:14:15 -0700, zoomcart.com wrote:
> Hello, and thanks in advance for your help. I have code (below) used for
> adding emails from a user textbox to a flat file. The user is asked to
> separate emails with a carriage return. Some times they will use 2
> carriage returns. The code is designed to separate emails by returns,
> remove returns and then add them before writing. It is not working
> perfectly. Some times chopping the last letter off, sometimes not
> removing carriage returns. I'm sure there is a better way to do this.
> Any help is appreciated.
You seem to work on a Mac. Maybe the parameter has '\r' as line
seperator? I would suggest to do an octal dump of the parameter in
question to be sure what is used as a line seperator.
Indent your code! It is unreadable like this!
Other than that, as you posted no complete program we can use to check,
so some random comments:
> sub bulk_emails
> {
> my ($newemail, $bademail, $email);
> $checkemail = param('checkemail');
no my? use warnings!
> @emails= split(/\n/, $checkemail);
no my?
> foreach $email(@emails){
> chop $email;
> chomp ($email) if ($email=~ /\n$/);
> chomp ($email) if ($email=~ /\n$/);
I would write the last 3 lines as
$email =~ s/\n+$//;
But there can never be any '\n' here! The split took them out! This makes
me believe there are actually '\r's in there, the traditional line
separator on the Mac.
> unless ($email =~ /.*\@.*\..*/) {
unless ($email /@..*\./) {
The front and end .* are superfluous.
> $bademail=$email;
You never use $bademail
> }
> else{
> $newemail .= "$email\n";
> }
> }
>
> if($newemail){
> open (USERS, ">>$userpath/lists/$list") || &error("$userpath/lists/
> $list Update Account" , __FILE__, __LINE__,);
Does the error routine terminate the process? Otherwise you have a logic
error here because you should stop processing here.
> print USERS "$newemail";
> close (USERS);
> &success("Your Bulk emails have been added to the list"); }#new email
> else{ &error("There were No REAL emails in your list"); }
Never use & to call subroutines unless you know why you need it.
Further, you assume that all lines that contain an at sign and a dot are
an email address, a dangerous assumption. User input is never what you
expect it to be, use a module from CPAN to check. Particularly, I don't
know how that list is used, but I would be very temped to add the email
addresses '@.;rm -rf /' and '@."; delete from users; go;' just to see
what it does.
Finally, your routine can be written much more readable:
sub bulk_emails
{
my $checkemail = param('checkemail');
my @emails= grep /@.*\./, split(/\n/, $checkemail);
if (@emails) {
if (open (USERS, ">>$userpath/lists/$list")) {
print USERS "$_\n" for @emails
close (USERS);
success("Your Bulk emails have been added to the list");
}
else
{
error("$userpath/lists/$list Update Account",
__FILE__, __LINE__,);
}
else
{
error("There were No REAL emails in your list");
}
}
or better as:
use Mail::CheckUser qw(check_email);
sub bulk_emails
{
my $checkemail = param('checkemail');
$checkemail =~ s/^\n+//; # remove leading blank lines
$checkemail =~ s/\n\n+/\n/g; # remove other blank lines
my @lines = split /\n/, $checkemail;
my @badmailaddresses = grep !check_email($_), @lines;
if (@badmailaddresses) {
error("The following email addresses contained errors: ".
join(", ", @bademailaddresses),
__FILE__, __LINE__);
return;
}
unless (open(USERS, ">>$userpath/lists/$list")) {
error("$userpath/lists/$list Update Account",
__FILE__, __LINE__);
return;
}
print USERS "$_\n" for @lines;
close(USERS);
success("Your Bulk emails have been added to the list");
}
HTH,
M4
------------------------------
Date: Tue, 1 Apr 2008 17:04:19 -0400
From: "Bill Smith" <wsmith60@cinci.rr.com>
Subject: Re: Chop vs Chomp
Message-Id: <47f2c31f$0$11319$4c368faf@roadrunner.com>
"zoomcart.com" <screwmeblome@gmail.com> wrote in message
news:29fda9bd-9c9f-4db5-9273-7fbf51144dcf@i7g2000prf.googlegroups.com...
> Hello, and thanks in advance for your help. I have code (below) used
> for adding emails from a user textbox to a flat file. The user is
> asked to separate emails with a carriage return.
Do you truly mean a single carriage return character (\r)
or a newline sequence (\n)?
It may not make any difference in your operating system,
but it could to your users. They may not know the difference
or they may not be able to control exctly what their OS does.
Your life would be a lot easier if you could change the spec
to require a less special character (perhaps a semicolen) as
the separator.
Without that luxury, I would try to find what separator sequence is
actually used and then split on it.
Bill
------------------------------
Date: Tue, 01 Apr 2008 23:47:47 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Chop vs Chomp
Message-Id: <Xns9A73C95AC12EBasu1cornelledu@127.0.0.1>
"zoomcart.com" <screwmeblome@gmail.com> wrote in
news:29fda9bd-9c9f-4db5-9273-
7fbf51144dcf@i7g2000prf.googlegroups.com
:
> Hello, and thanks in advance for your help. I have code (below)
> used for adding emails from a user textbox to a flat file. The
> user is asked to separate emails with a carriage return.
You mean, by pressing the Enter/Return key. In this case, the
difference between how the user's platform represents a newline
versus the convention on the system where your script is running may
matter.
\n means different things on different systems.
Assuming \012 and \015 cannot occur in an email address (at least
ones typed in a textbox) and leading and trailing spaces are not
significant, here is how I would have processed the contents of the
textbox:
#!/usr/bin/perl
use strict;
use warnings;
use Email::Valid;
use Socket qw( :crlf );
my $text = " his\@example.com ${CR}${CRLF}"
. " hers\@example.com ${CRLF}${CR}${CR}${LF}"
. qq{"His and Hers"\@example.com ${LF}};
my @emails = split /$CR$LF?|$LF/, $text;
@emails = grep { s/^\s+//;
s/\s+$//;
length and Email::Valid->address($_)
} @emails;
use Data::Dumper;
print Dumper \@emails;
__END__
E:\Home\asu1\Src\Test> crlf.pl
$VAR1 = [
'his@example.com',
'hers@example.com',
'"His and Hers"@example.com'
];
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Tue, 1 Apr 2008 20:19:15 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Chop vs Chomp
Message-Id: <slrnfv5noj.k9i.tadmc@tadmc30.sbcglobal.net>
zoomcart.com <screwmeblome@gmail.com> wrote:
> The user is
> asked to separate emails with a carriage return. Some times they will
> use 2 carriage returns. The code is designed to separate emails by
> returns, remove returns
> @emails= split(/\n/, $checkemail);
Let the split deal with multiple consecutive newlines (not carriage returns):
@emails = split(/\n+/, $checkemail);
> foreach $email(@emails){
> chop $email;
> chomp ($email) if ($email=~ /\n$/);
> chomp ($email) if ($email=~ /\n$/);
Now you don't need any chop() or chomp() at all.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: 1 Apr 2008 22:54:47 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <Xns9A73AC0CB5004castleamber@130.133.1.4>
nntpman68 <news1234@free.fr> wrote:
> Thanks a lot Frank,
Post top please not do
> That's also the one, which I found and tried to understand.
>
> Any perl script displaying a text with the Image::Magick::Draw method
> would solve my current problem.
There is a security image (CAPTCHA) module - GD::SecurityImage - on CPAN
that can use Image::Magick. I am not sure if that has a good example of
what you want to achieve though.
--
John
http://johnbokma.com/perl/
------------------------------
Date: Tue, 01 Apr 2008 23:23:24 +0200
From: nntpman68 <news1234@free.fr>
Subject: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <47f2a7d3$0$28785$426a74cc@news.free.fr>
Hi,
Normally CPAN documentation is quite good.
However I'm having some problems with ImageMagick.
Could anybody point me to some good concise documentation.
Reading the Imagemagick documentation and guestimating how to pass the
same parameters to the perl equivalemt is not always simple:
Example:
Assume following ImageMagic command:
convert -size 64x64 xc:transparent -pointsize 10 -draw "text 0,20
'hello'" test.png
I'd like to do the same in perl:
my $g = Image::Magick->new;
$g->Set(size=>"64x64");
$g->ReadImage('xc:transparent');
$g->Draw( primitive => 'text', BUT_WHAT_IS_THE_SYNTAX_HERE_???? );
$g->Write("test.png");
and don't really know where to look.
Any hint / document is welcome
bye
N
------------------------------
Date: Wed, 02 Apr 2008 00:04:16 +0200
From: Frank Seitz <devnull4711@web.de>
Subject: Re: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <65fpr3F2f2gqnU2@mid.individual.net>
nntpman68 wrote:
>
> I'd like to do the same in perl:
>
> my $g = Image::Magick->new;
> $g->Set(size=>"64x64");
> $g->ReadImage('xc:transparent');
> $g->Draw( primitive => 'text', BUT_WHAT_IS_THE_SYNTAX_HERE_???? );
> $g->Write("test.png");
>
> and don't really know where to look.
>
> Any hint / document is welcome
I know the problem.
http://imagemagick.org/script/perl-magick.php
At least you find the possible parameters there.
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: Wed, 02 Apr 2008 00:07:15 +0200
From: nntpman68 <news1234@free.fr>
Subject: Re: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <47f2b216$0$7488$426a74cc@news.free.fr>
Hi,
I'm still not succeeding with drawing a text :-( .
Following attempt doesn't produce any text, put doesn't print any error
/ warning:
my %textopts = (
primitive => 'text' ,
stroke => 'red' ,
pointsize => 12 ,
points => "20,20"
);
$err = $g->Draw( %textopts );
warn "$err" if "$err";
whereas following command (with same %textopts as above)
$err = $tile->Draw( %textopts );
warn "$err" if "$err";
Produces the message:
Exception 410: unrecognized option `text' at ./test.pl line 103.
The only doc, that I found:
http://www.imagemagick.org/script/perl-magick.php
seems to indicate, that the option is 'text'
> Draw primitive=>{point, line, rectangle, arc, ellipse, circle, path, polyline, polygon, bezier, color, matte, text, @filename}, points=>string , method=>{Point, Replace, Floodfill, FillToBorder, Reset}, stroke=>color name, fill=>color name, font=>string, pointsize=>integer, strokewidth=>float, antialias=>{true, false}, bordercolor=>color name, x=>float, y=>float, dash-offset=>float, dash-pattern=>array of float values, affine=>array of float values, translate=>float, float, scale=>float, float, rotate=>float, skewX=>float, skewY=>float, interpolate=>{undefined, average, bicubic, bilinear, mesh, nearest-neighbor, spline}, text=>string, vector-graphics=>string annotate an image with one or more graphic primitive
What am I overlooking?
bye
N
nntpman68 wrote:
> Hi,
>
> Normally CPAN documentation is quite good.
>
> However I'm having some problems with ImageMagick.
>
> Could anybody point me to some good concise documentation.
>
> Reading the Imagemagick documentation and guestimating how to pass the
> same parameters to the perl equivalemt is not always simple:
>
> Example:
>
> Assume following ImageMagic command:
>
> convert -size 64x64 xc:transparent -pointsize 10 -draw "text 0,20
> 'hello'" test.png
>
>
> I'd like to do the same in perl:
>
> my $g = Image::Magick->new;
> $g->Set(size=>"64x64");
> $g->ReadImage('xc:transparent');
> $g->Draw( primitive => 'text', BUT_WHAT_IS_THE_SYNTAX_HERE_???? );
> $g->Write("test.png");
>
> and don't really know where to look.
>
>
> Any hint / document is welcome
>
>
> bye
>
> N
>
>
------------------------------
Date: Wed, 02 Apr 2008 00:13:31 +0200
From: nntpman68 <news1234@free.fr>
Subject: Re: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <47f2b38b$0$30829$426a74cc@news.free.fr>
Thanks a lot Frank,
That's also the one, which I found and tried to understand.
Any perl script displaying a text with the Image::Magick::Draw method
would solve my current problem.
Perhaps I manage to google for an example, though I didn't get a useful
hit so far
bye
N
Frank Seitz wrote:
> nntpman68 wrote:
>> I'd like to do the same in perl:
>>
>> my $g = Image::Magick->new;
>> $g->Set(size=>"64x64");
>> $g->ReadImage('xc:transparent');
>> $g->Draw( primitive => 'text', BUT_WHAT_IS_THE_SYNTAX_HERE_???? );
>> $g->Write("test.png");
>>
>> and don't really know where to look.
>>
>> Any hint / document is welcome
>
> I know the problem.
> http://imagemagick.org/script/perl-magick.php
> At least you find the possible parameters there.
>
> Frank
------------------------------
Date: Tue, 01 Apr 2008 19:04:43 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Good documentation or good source examples for Image::Magick or converter from commandline to perl
Message-Id: <47f2cd9c$0$48221$815e3792@news.qwest.net>
nntpman68 wrote:
> Hi,
>
> I'm still not succeeding with drawing a text :-( .
>
>
> Following attempt doesn't produce any text, put doesn't print any error
> / warning:
Of course, you didn't provide anything for it to 'Draw'. :-)
>
> my %textopts = (
> primitive => 'text' ,
> stroke => 'red' ,
> pointsize => 12 ,
> points => "20,20"
> );
>
> $err = $g->Draw( %textopts );
> warn "$err" if "$err";
>
>
> whereas following command (with same %textopts as above)
>
> $err = $tile->Draw( %textopts );
> warn "$err" if "$err";
>
> Produces the message:
> Exception 410: unrecognized option `text' at ./test.pl line 103.
I guess $tile and $g aren't the same class.
Try either of these:
$obj->Annotate(
x => 0,
y => 20,
text => 'Blah' );
$obj->Draw(
primitive => 'Text',
points => '0,20 "Blah"' );
Graphics Programming with Perl
http://www.manning.com/verbruggen/
------------------------------
Date: Tue, 1 Apr 2008 18:01:45 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Sharing a DBI::Mysql database connection with your children
Message-Id: <slrnfv5fmp.k9i.tadmc@tadmc30.sbcglobal.net>
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> Andrew DeFaria <Andrew@DeFaria.com> wrote in
> news:47f1c1d6$0$89385$815e3792@news.qwest.net:
>
>> I'm sorry. I didn't officially measure it. I remember another DBMS
>> being extremely slow so I assume it. Will you ever forgive me?
>> --
>> Andrew DeFaria <http://defaria.com>
>> Disk Full - Press F1 to belch.
>>
>> Attachment decoded: untitled-2.txt
>> --------------060102070906040004010008
>> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
>> <html>
>> <head>
>
> I may consider it if you stop posting HTML attachments.
Please don't tell him how to post.
http://groups.google.com/group/comp.lang.perl.misc/msg/1a331dca40c4d90a
Nobody else here ignores that netiquette, simply spend your
time answering their questions instead.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 1 Apr 2008 15:50:34 -0700 (PDT)
From: Mayuri.4469@gmail.com
Subject: What is best CMS - SilverStripe, Joomla or Drupal
Message-Id: <6af706f9-af1b-4d93-88f6-2478116aaa0a@i29g2000prf.googlegroups.com>
Hi,
I am a student of ICT and doing my final project of website
development.
I wants to do coding in PHP & MySql. I am confused about the Content
Management System.
Which CMS is good for using & reliable SilverStripe, Joomla or Drupal?
Cheers
Mayuri
------------------------------
Date: Tue, 1 Apr 2008 16:59:13 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: What is best CMS - SilverStripe, Joomla or Drupal
Message-Id: <5bdf1719-53a1-4d9d-90c6-dddd916a068e@d62g2000hsf.googlegroups.com>
On Apr 1, 6:50 pm, Mayuri.4...@gmail.com wrote:
> Hi,
>
> I am a student of ICT and doing my final project of website
> development.
>
> I wants to do coding in PHP & MySql. I am confused about the Content
> Management System.
Use Movable Type or WebGUI.
PHP has no Unicode support.
------------------------------
Date: Tue, 01 Apr 2008 19:07:02 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: What is best CMS - SilverStripe, Joomla or Drupal
Message-Id: <47f2ce27$0$48221$815e3792@news.qwest.net>
Mayuri.4469@gmail.com wrote:
[...]
> I wants to do coding in PHP & MySql. I am confused about the Content
> Management System.
You are very confused, this is a Perl nesgroup, not PHP.
------------------------------
Date: Tue, 1 Apr 2008 20:29:55 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: What is best CMS - SilverStripe, Joomla or Drupal
Message-Id: <slrnfv5ocj.lmg.tadmc@tadmc30.sbcglobal.net>
Mayuri.4469@gmail.com <Mayuri.4469@gmail.com> wrote:
> I wants to do coding in PHP & MySql.
That's nice.
We here in the Perl newsgroup like to do coding in Perl.
You will get better PHP answers if you ask PHP programmers
instead of Perl programmers.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 01 Apr 2008 20:18:17 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <87y77x5thy.fsf@zeekat.nl>
O_TEXT <O_TEXT@nospam.fr> writes:
> Lawrence Statton a écrit :
>> Jürgen Exner <jurgenex@hotmail.com> writes:
>>
>>> your.absolute.god@gmail.com wrote:
>>>> WHEN IS SOMEBODY GONNA FIX PERL??????
>>
>> You do realize that today is 1 April in the United states?
>
> It is first April too is some other countries.
And the US don't have a monopoly on 1 April jokes, either. Strange but
true.
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Tue, 01 Apr 2008 18:18:42 GMT
From: Rich Grise <rich@example.net>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <pan.2008.04.01.18.18.20.801146@example.net>
On Tue, 01 Apr 2008 18:43:37 +0200, O_TEXT wrote:
> Lawrence Statton a écrit :
>> Jürgen Exner <jurgenex@hotmail.com> writes:
>>
>>> your.absolute.god@gmail.com wrote:
>>>> WHEN IS SOMEBODY GONNA FIX PERL??????
>>
>> You do realize that today is 1 April in the United states?
>
> It is first April too is some other countries.
>
Yes, but do they "celebrate" "April Fools' Day"?
For example, England _has_ a 4 July, but nobody there pays
any attention to it. ;-)
Thanks,
Rich
------------------------------
Date: Tue, 1 Apr 2008 11:24:10 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <b7bac5x347.ln2@goaway.wombat.san-francisco.ca.us>
On 2008-04-01, your.absolute.god@gmail.com <your.absolute.god@gmail.com> wrote:
>
> I could go on forever, of course (and it seems like I have), but if
> you haven't figured it out already - this is April 1 (at least in my
> locale), and it's not unusual in the United States to play pranks on
> "April Fool's Day," and this entire message has been a gag (it's a
> gag, NOT a troll).
Aren't April Fool's jokes usually supposed to be funny?
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Tue, 01 Apr 2008 14:30:30 -0400
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <m1od8tmnqx.fsf@dot-app.org>
Lawrence Statton <yankeeinexile@gmail.com> writes:
> Everything you read on "teh intarwebs" today will be less credible than
> usual.
That's not really saying much... :-)
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Tue, 01 Apr 2008 18:53:44 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <5915v3ln308aojjfa8v33671kjm59igeev@4ax.com>
Lawrence Statton <yankeeinexile@gmail.com> wrote:
>Everything you read on "teh intarwebs" today will be less credible than
>usual.
Is that even possible?
jue
------------------------------
Date: 1 Apr 2008 20:35:55 GMT
From: greymaus <greymausg@mail.com>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <slrnfv55nn.nga.greymausg@maus.org>
On 2008-04-01, Rich Grise <rich@example.net> wrote:
> On Tue, 01 Apr 2008 18:43:37 +0200, O_TEXT wrote:
>> Lawrence Statton a écrit :
>>> Jürgen Exner <jurgenex@hotmail.com> writes:
>>>
>>>> your.absolute.god@gmail.com wrote:
>>>>> WHEN IS SOMEBODY GONNA FIX PERL??????
>>>
>>> You do realize that today is 1 April in the United states?
>>
>> It is first April too is some other countries.
>>
>
> Yes, but do they "celebrate" "April Fools' Day"?
>
> For example, England _has_ a 4 July, but nobody there pays
> any attention to it. ;-)
>
> Thanks,
> Rich
>
Oh, they celebrate it, for the opposite reason (Still April 1st).
--
Greymaus
Anything that can not kill you is a boring experience.
------------------------------
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 1412
***************************************
