[30168] in Perl-Users-Digest
Perl-Users Digest, Issue: 1411 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 1 14:09:44 2008
Date: Tue, 1 Apr 2008 11:09:07 -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: 1411
Today's topics:
Chop vs Chomp <screwmeblome@gmail.com>
Re: Chop vs Chomp <glex_no-spam@qwest-spam-no.invalid>
Control actions of DOS in perl <rajendra.prasad@in.bosch.com>
Re: Control actions of DOS in perl <smallpond@juno.com>
Re: every combination of Y/N in 5 positions <noreply@gunnar.cc>
Re: every combination of Y/N in 5 positions <wahab@chemie.uni-halle.de>
Re: every combination of Y/N in 5 positions <someone@example.com>
Re: every combination of Y/N in 5 positions <abigail@abigail.be>
Re: every combination of Y/N in 5 positions <willem@stack.nl>
Re: every combination of Y/N in 5 positions <abigail@abigail.be>
Re: every combination of Y/N in 5 positions <willem@stack.nl>
print variable name not by hash but ref? <ela@yantai.org>
Re: print variable name not by hash but ref? <1usa@llenroc.ude.invalid>
Re: print variable name not by hash but ref? <smallpond@juno.com>
Re: printf: zero pad after the decimal a given amount <tzz@lifelogs.com>
Re: Sharing a DBI::Mysql database connection with your <1usa@llenroc.ude.invalid>
WHEN IS SOMEBODY GONNA FIX PERL?????? your.absolute.god@gmail.com
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <jurgenex@hotmail.com>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <name@yahoo.com>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <yankeeinexile@gmail.com>
Re: WHEN IS SOMEBODY GONNA FIX PERL?????? <O_TEXT@nospam.fr>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 1 Apr 2008 08:14:15 -0700 (PDT)
From: "zoomcart.com" <screwmeblome@gmail.com>
Subject: Chop vs Chomp
Message-Id: <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. 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.
sub bulk_emails
{
my ($newemail, $bademail, $email);
$checkemail = param('checkemail');
@emails= split(/\n/, $checkemail);
foreach $email(@emails){
chop $email;
chomp ($email) if ($email=~ /\n$/);
chomp ($email) if ($email=~ /\n$/);
unless ($email =~ /.*\@.*\..*/) {
$bademail=$email;
}
else{
$newemail .= "$email\n";
}
}
if($newemail){
open (USERS, ">>$userpath/lists/$list") || &error("$userpath/lists/
$list Update Account" , __FILE__, __LINE__,);
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");
}
------------------------------
Date: Tue, 01 Apr 2008 11:54:26 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Chop vs Chomp
Message-Id: <47f268c3$0$33228$815e3792@news.qwest.net>
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.
>
use strict;
use warnings;
> sub bulk_emails
> {
> my ($newemail, $bademail, $email);
> $checkemail = param('checkemail');
my $checkemail = param('checkemail');
> @emails= split(/\n/, $checkemail);
> foreach $email(@emails){
for my $email ( split( /\n+/, $checkemail) ) {
or you can eliminate the variable:
for my $email ( split( /\n+/, param('checkemail') ) ) {
perldoc perlretut
"a+" = match 'a' 1 or more times, i.e., at least once
Then there's no need to chop/chomp anything.
To learn the difference:
perldoc -f chop
perldoc -f chomp
> chop $email;
> chomp ($email) if ($email=~ /\n$/);
> chomp ($email) if ($email=~ /\n$/);
> unless ($email =~ /.*\@.*\..*/) {
Not a terribly useful check since '@.' will match.
perldoc -q "How do I check a valid mail address"
> $bademail=$email;
Which over-writes any previous value in $bademail.
> }
> else{
> $newemail .= "$email\n";
Instead, you could use an array.
perldoc -f push
> }
> }
>
> if($newemail){
> open (USERS, ">>$userpath/lists/$list") || &error("$userpath/lists/
> $list Update Account" , __FILE__, __LINE__,);
open( my $users, '>>', "$userpath/lists/$list" ) || error ("..." );
> print USERS "$newemail";
print $users $newemail;
> close (USERS);
close ( $users );
> &success("Your Bulk emails have been added to the list");
> }#new email
> else{ &error("There were No REAL emails in your list");
> }
>
perldoc -q "What's the difference between calling a function as &foo and
foo()"
------------------------------
Date: Tue, 1 Apr 2008 19:28:55 +0530
From: "rajendra" <rajendra.prasad@in.bosch.com>
Subject: Control actions of DOS in perl
Message-Id: <fstf31$td6$1@news4.fe.internet.bosch.com>
Hello All,
I would like to know is it possible to execute control operations like
Ctrl-C(to abort an action), Ctrl-Q(to mark an email as read) etc in a perl
script.
With Rgds,
Raj
------------------------------
Date: Tue, 1 Apr 2008 11:04:19 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: Control actions of DOS in perl
Message-Id: <7b83478b-fd42-4d16-8b64-29066e9a445d@a1g2000hsb.googlegroups.com>
On Apr 1, 9:58 am, "rajendra" <rajendra.pra...@in.bosch.com> wrote:
> Hello All,
>
> I would like to know is it possible to execute control operations like
> Ctrl-C(to abort an action), Ctrl-Q(to mark an email as read) etc in a perl
> script.
>
> With Rgds,
> Raj
It sounds like you want to stuff characters into the keyboard buffer
and
have them interpreted as though they were typed by the user, like
Sendkeys
in VB.
Win32::GuiTest has a SendKeys interface that may let you do some of
these
things, but I haven't tried it.
If you know what action you want, you can do it another way. You can
use
the kill function to do the equivalent of Ctrl-C for example.
------------------------------
Date: Tue, 01 Apr 2008 10:34:43 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <65eah7F2fa13jU1@mid.individual.net>
Uri Guttman wrote:
>>>>>> "GH" == Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
>
> GH> smallpond wrote:
> >> On Mar 31, 4:57 pm, joemacbusin...@yahoo.com wrote:
> >>> Hi All,
> >>>
> >>> This has probably already been written but I did not see it on CPAN.
> >>> Is there a code snippent that can print every possible combination
> >>> of Y/N's in a 5 position array or string?
> >>>
> >>> For example: Y Y Y Y Y becomes
> >>> N Y Y Y Y
> >>> Y N Y Y Y....
> >>> Y Y N N Y etc.
> >>>
> >> Who gets the credit for doing your homework?
>
> GH> I do, I hope. :)
>
> GH> foreach my $num ( 0 .. 0b11111 ) {
> GH> local *_ = \ sprintf '%05b', $num;
> GH> tr/01/NY/;
> GH> print "$_\n";
> GH> }
>
> ok, now make it a oneliner and golf it! we ain't had a golf thread in
> ages!
I'm not a golfer, but it's easy to write obfuscated code using Perl...
perl -le"do{$_=sprintf'%05b',$_;y/01/NY/;print}for(0..0b11111)"
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 01 Apr 2008 13:17:59 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <fst5l6$1cpg$1@nserver.hrz.tu-freiberg.de>
Gunnar Hjalmarsson wrote:
> I'm not a golfer, but it's easy to write obfuscated code using Perl...
> perl -le"do{$_=sprintf'%05b',$_;y/01/NY/;print}for(0..0b11111)"
Much too wordy ;-)
perl -e' print "$_\n" while glob"{Y,N}"x5'
Regards
M.
------------------------------
Date: Tue, 01 Apr 2008 12:30:28 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <EVpIj.9961$9X3.4846@edtnps82>
Mirco Wahab wrote:
> Gunnar Hjalmarsson wrote:
>> I'm not a golfer, but it's easy to write obfuscated code using Perl...
>> perl -le"do{$_=sprintf'%05b',$_;y/01/NY/;print}for(0..0b11111)"
>
> Much too wordy ;-)
I concur.
> perl -e' print "$_\n" while glob"{Y,N}"x5'
perl -le'print for glob"{Y,N}"x5'
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: 01 Apr 2008 13:32:44 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <slrnfv4ebs.19r.abigail@alexandra.abigail.be>
_
John W. Krahn (someone@example.com) wrote on VCCCXXVII September MCMXCIII
in <URL:news:EVpIj.9961$9X3.4846@edtnps82>:
-: Mirco Wahab wrote:
-: > Gunnar Hjalmarsson wrote:
-: >> I'm not a golfer, but it's easy to write obfuscated code using Perl...
-: >> perl -le"do{$_=sprintf'%05b',$_;y/01/NY/;print}for(0..0b11111)"
-: >
-: > Much too wordy ;-)
-:
-: I concur.
-:
-: > perl -e' print "$_\n" while glob"{Y,N}"x5'
-:
-: perl -le'print for glob"{Y,N}"x5'
Saving 3 chars:
perl -E'say for glob"{Y,N}"x5'
Abigail
--
$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_;
sub _ {push @_ => /::(.*)/s and goto &{ shift}}
sub shift {print shift; @_ and goto &{+shift}}
Hack ("Just", "Perl ", " ano", "er\n", "ther "); # 20080401
------------------------------
Date: Tue, 1 Apr 2008 13:43:39 +0000 (UTC)
From: Willem <willem@stack.nl>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <slrnfv4f0b.2lkv.willem@snail.stack.nl>
Abigail wrote:
) _
) John W. Krahn (someone@example.com) wrote on VCCCXXVII September MCMXCIII
) in <URL:news:EVpIj.9961$9X3.4846@edtnps82>:
) -: Mirco Wahab wrote:
) -: > Gunnar Hjalmarsson wrote:
) -: >> I'm not a golfer, but it's easy to write obfuscated code using Perl...
) -: >> perl -le"do{$_=sprintf'%05b',$_;y/01/NY/;print}for(0..0b11111)"
) -: >
) -: > Much too wordy ;-)
) -:
) -: I concur.
) -:
) -: > perl -e' print "$_\n" while glob"{Y,N}"x5'
) -:
) -: perl -le'print for glob"{Y,N}"x5'
)
) Saving 3 chars:
)
) perl -E'say for glob"{Y,N}"x5'
perl -e'print glob"{Y,N}"x5'
But this is nicer:
perl -e'$,="\n";print glob"{Y,N}"x5'
SaSW, Willem
--
Disclaimer: I am in no way responsible for any of the statements
made in the above text. For all I know I might be
drugged or something..
No I'm not paranoid. You all think I'm paranoid, don't you !
#EOT
------------------------------
Date: 01 Apr 2008 13:52:46 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <slrnfv4fhe.19r.abigail@alexandra.abigail.be>
_
Willem (willem@stack.nl) wrote on VCCCXXVII September MCMXCIII in
<URL:news:slrnfv4f0b.2lkv.willem@snail.stack.nl>:
?? Abigail wrote:
?? ) _
?? ) John W. Krahn (someone@example.com) wrote on VCCCXXVII September MCMXCIII
?? ) in <URL:news:EVpIj.9961$9X3.4846@edtnps82>:
?? ) -: Mirco Wahab wrote:
?? ) -: > Gunnar Hjalmarsson wrote:
?? ) -: >> I'm not a golfer, but it's easy to write obfuscated code using Perl...
?? ) -: >> perl -le"do{$_=sprintf'%05b',$_;y/01/NY/;print}for(0..0b11111)"
?? ) -: >
?? ) -: > Much too wordy ;-)
?? ) -:
?? ) -: I concur.
?? ) -:
?? ) -: > perl -e' print "$_\n" while glob"{Y,N}"x5'
?? ) -:
?? ) -: perl -le'print for glob"{Y,N}"x5'
?? )
?? ) Saving 3 chars:
?? )
?? ) perl -E'say for glob"{Y,N}"x5'
??
?? perl -e'print glob"{Y,N}"x5'
But that doesn't print newlines after each entry.
?? But this is nicer:
??
?? perl -e'$,="\n";print glob"{Y,N}"x5'
But this subthread involves a golfed solution, not a nice necessarely a
nice one...
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Tue, 1 Apr 2008 15:38:44 +0000 (UTC)
From: Willem <willem@stack.nl>
Subject: Re: every combination of Y/N in 5 positions
Message-Id: <slrnfv4lo4.2p77.willem@snail.stack.nl>
Abigail wrote:
) But that doesn't print newlines after each entry.
Oh right, I missed the -l flag. Sorry.
SaSW, Willem
--
Disclaimer: I am in no way responsible for any of the statements
made in the above text. For all I know I might be
drugged or something..
No I'm not paranoid. You all think I'm paranoid, don't you !
#EOT
------------------------------
Date: Tue, 1 Apr 2008 16:05:19 +0800
From: "Ela" <ela@yantai.org>
Subject: print variable name not by hash but ref?
Message-Id: <fssqc1$3f7$1@ijustice.itsc.cuhk.edu.hk>
some day i read a book telling that it may be useful to print a variable
name for debugging purpose. since i was new that moment, i just skipped it.
now when i want to use this feature, i no longer get back where it is.
google search using perl and "print variable name" does not return good
results. And I am not going to use hash because i just want to debug, e..g.
I expect
$var1 = 3;
$ALongVariable = "hahahaha";
debug($var1);
debug($ALongVariable);
sub debug {
$dvar = shift;
some more codes here?
print $dvar;
print "\n";
}
=======
to print out:
$var1 : 3
$ALongVariable : hahahaha
Could anybody help?
------------------------------
Date: Tue, 01 Apr 2008 12:38:41 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: print variable name not by hash but ref?
Message-Id: <Xns9A7357E9D7E2Easu1cornelledu@127.0.0.1>
"Ela" <ela@yantai.org> wrote in
news:fssqc1$3f7$1@ijustice.itsc.cuhk.edu.hk:
> some day i read a book telling that it may be useful to print a
> variable name for debugging purpose. since i was new that moment,
> i just skipped it.
The closest thing I know of is
http://search.cpan.org/~robin/PadWalker-1.7/PadWalker.pm
Read the docs, especially the warnings.
Sinan
--
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 05:40:20 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: print variable name not by hash but ref?
Message-Id: <2137080d-7053-4e8d-9b75-ddeda012f603@m73g2000hsh.googlegroups.com>
On Apr 1, 4:05 am, "Ela" <e...@yantai.org> wrote:
> some day i read a book telling that it may be useful to print a variable
> name for debugging purpose. since i was new that moment, i just skipped it.
> now when i want to use this feature, i no longer get back where it is.
> google search using perl and "print variable name" does not return good
> results. And I am not going to use hash because i just want to debug, e..g.
> I expect
>
> $var1 = 3;
> $ALongVariable = "hahahaha";
>
> debug($var1);
> debug($ALongVariable);
>
> sub debug {
> $dvar = shift;
> some more codes here?
> print $dvar;
> print "\n";
>
> }
>
> =======
> to print out:
>
> $var1 : 3
> $ALongVariable : hahahaha
>
> Could anybody help?
That can't work since only the value is passed to your
debug sub, not the variable.
You can get to package variables through the symbol table
but I don't know how to get to lexicals.
perl -e 'our $foo=5; print join "\n", keys %main::;' |grep foo
foo
perl -e 'my $foo=5; print join "\n", keys %main::;' |grep foo
<== no package variable named 'foo'
------------------------------
Date: Tue, 01 Apr 2008 08:35:34 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: printf: zero pad after the decimal a given amount
Message-Id: <86wsnhofyx.fsf@lifelogs.com>
On Mon, 31 Mar 2008 21:55:16 +0100 Ben Morrow <ben@morrow.me.uk> wrote:
BM> It appears to me the OP wants either 3 s.f. after the point or 3 places,
BM> whichever comes out shorter. Something like
BM> sub fmt {
BM> return
BM> map /(\d*\.\d{3}\d*?)0*$/,
BM> map /(\d*\.0*[1-9]\d\d)/,
BM> map { sprintf "%.308f", $_ }
BM> @_;
BM> }
BM> appears to work, but it's hardly pretty :(. The 308 is the number of
BM> places required to represent DBL_MIN with 53-bit doubles; if your perl
BM> is using 64-bit long doubles you will need 4932 instead.
Is there any harm in always using 4932? I would guess not, except maybe
for wasted CPU cycles.
Ted
------------------------------
Date: Tue, 01 Apr 2008 12:46:26 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Sharing a DBI::Mysql database connection with your children
Message-Id: <Xns9A73593A0F8EDasu1cornelledu@127.0.0.1>
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.
Sinan
--
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 02:23:05 -0700 (PDT)
From: your.absolute.god@gmail.com
Subject: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <d721cb75-1b33-4224-a9ca-89c09378adbd@e10g2000prf.googlegroups.com>
WHEN IS SOMEBODY GONNA FIX PERL?????? I wrote this PERL program
yesterday and PERL does not even work! I had this EXACT same problem
also with another completely different PERL program that I wrote on a
completely different day, so I KNOW the problem is with PERL!!!!
Somebody fix PERL ASAP!!! Here is my program that proves PERL is
broken
@photos = SYSTEM (`dir c:\my pictures\alt.binaries.erotica.children
\*.jpg`)),
for each ('$photo' in '@Photos') [
yada yada yada ...
yada yada yada ...
yada yada yada ...
YOU GET THE POINT!!!!!!!!!!!!
PERL JUST SKIPS ***ALL*** OF THIS!
yada yada yada ...
yada yada yada ...
yada yada yada ...
],
But PERL doesnt work! Try it yourself and you will see that I am
right! The loop never even loops - it skips over ALL of the program in
the loop (I can PROVE it with a textfile, so dont try to tell me PERL
is not broken)! It even gives me a bogus error message about bare
words (I have NO bare words) when it runs, even though I indented it
right! And it gives me the EXACT same bogus message in my other
COMPLETELY DIFFERENT mp3 program. Somebody fix this ASAP! And I dont
mean anybody with those funny names either! I get the feeling this
whole BBS has been outsourced or something!!! I pay a high price to my
ISP for PREMIUM broadband service - I pay my ISP with hard-earned
American Dollars, so I want a REAL American to fix my problem, not one
those rude foreigners with the funny names and bad attitudes!
Send me the fixed PERL as a e-mail attachment (it is OK to send me
attachments - I have PREMIUM broadband service. You do not need to
mail me a disk - that takes too long.). Send me the Windows version,
not the unix version (I am NOT working on a mainframe). And hurry!
This is a EMERGENCY - I need this ASAP!!! If you do not fix this ASAP
I promise that I *WILL* flame your sorry ass and make you look like a
incompetent stupid and lazy bastard before the whole world! I will
REALLY do this!!! And I will report you to my ISP also, and I am
warning you that I am one of their BEST customers with PREMIUM
broadband service and they want to keep me happy!!!
ALSO and I have a question - how do I rename a file??? There is
NOTHING in the PERL book about this!!! Can PERL even do this??? E-
mail me the answer to this question also ASAP!!! And ASO tell me what
is the best kind of wireless network card because I need to get one of
those (it has to be VERY fast to work with my PREMIUM broadband).
And ALSO why does PERL say 'elsif'? That isnt even spelt right!!!!!!
Cant you peeple even spell??? You peeple dont even know how to use
spell check??? Change that to 'elseif' so it doesnt confuse peeple!
THIS IS MESSING UP MY PROGRAMS!!!!!!!!!!!!!!!!
I thought PERL was suppose to be a good language! Now that I have
learnet PERL and now I KNOW that really it SUCKS!!! I will tell you
how to fix PERL, but I will NOT do your work for you! I give you
several things to fix for now. When you finish that, I will probably
have some more things for you to do because I am very sure that there
is more broken stuff in PERL.
But may be instead I will use a different language that is not broken
so that I am not having to be wasting my time telling you how to fix
PERL. I have heard about something called RUBY that is suppose to be
MUCH more better than PERL. What is RUBY? Does it really work? E-
mail me some informations, because I am not an expert about RUBY. Is
there something better than RUBY??? E-mail me about that too. If it
is better then I will get you to convert my PERL programs because I am
very busy and I do not have time to do this conversions myself.
And who keeps spamming me with all these FAQ mails in this BBS???
Stop it!!! I know what all this is, and I can find ALL of these
informations on a website - I do NOT need all this spam! Spam is
against the law, and I WILL report you to Microsoft if you do not
stop!
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). Sadly, though, EVERYTHING here was inspired by
actual posts in this forum over the past few years.
255dbbb33a73698c9adccc5669d09cc3
------------------------------
Date: Tue, 01 Apr 2008 11:02:28 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <0444v3tc2kgm8h505rql86uh1pi22dmjhp@4ax.com>
your.absolute.god@gmail.com wrote:
>WHEN IS SOMEBODY GONNA FIX PERL??????
Why are you yelling? BTW: your question mark key is stuck.
> I wrote this PERL program
Then why are you posting in a Perl NG?
>yesterday and PERL does not even work! I had this EXACT same problem
>also with another completely different PERL program that I wrote on a
>completely different day, so I KNOW the problem is with PERL!!!!
Yeah , right.
>Somebody fix PERL ASAP!!! Here is my program that proves PERL is
>broken
>
>@photos = SYSTEM (`dir c:\my pictures\alt.binaries.erotica.children
>\*.jpg`)),
>for each ('$photo' in '@Photos') [
As I figured. Your PERL must be different programming language then the
Perl that is discussed here. If you were trying to program Perl then
those three lines would contain 5 syntax and 1 context error. There may
be more, but those I found at a quick glimpse.
> yada yada yada ...
> yada yada yada ...
> yada yada yada ...
> YOU GET THE POINT!!!!!!!!!!!!
> PERL JUST SKIPS ***ALL*** OF THIS!
>],
>
>But PERL doesnt work!
Oh, perl works perfectly fine. It's just that the array @photos is
empty. If you are wondering why, the answer can be found in the FAQ
perldoc -q "DOS paths"
>The loop never even loops - it skips over ALL of the program in
>the loop
It behaves exactly like it is supposed to do.
>(I can PROVE it with a textfile, so dont try to tell me PERL
>is not broken)! It even gives me a bogus error message about bare
>words (I have NO bare words) when it runs,
That happens when you try to run a PERL program through the Perl
interpreter. Those are obviously different languages.
>even though I indented it
>right! And it gives me the EXACT same bogus message in my other
>COMPLETELY DIFFERENT mp3 program.
I don't know the programming language mp3. However logic would dictate
that the same problem occuring in 2 different programming languages most
likely is caused by the programmer, not the interpreter.
>Send me the fixed PERL as a e-mail attachment (it is OK to send me
>attachments - I have PREMIUM broadband service. You do not need to
>mail me a disk - that takes too long.).
Would a UUencoded X11 binary work, too?
>you haven't figured it out already - this is April 1 [...]
>"April Fool's Day," and this entire message has been a gag (it's a
>gag, NOT a troll).
And the difference would be?
jue
------------------------------
Date: Tue, 01 Apr 2008 14:30:14 +0200
From: Mpapec <name@yahoo.com>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <fst9so$p3g$1@ss408.t-com.hr>
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
Ah, at the end you've managed to spoil a perfectly good post. :)
------------------------------
Date: 01 Apr 2008 09:12:54 -0600
From: Lawrence Statton <yankeeinexile@gmail.com>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <87zlsdbocp.fsf@hummer.cluon.com>
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?
Everything you read on "teh intarwebs" today will be less credible than
usual.
--
Lawrence Statton - lawrenabae@abaluon.abaom s/aba/c/g
Computer software consists of only two components: ones and
zeros, in roughly equal proportions. All that is required is to
place them into the correct order.
------------------------------
Date: Tue, 01 Apr 2008 18:43:37 +0200
From: O_TEXT <O_TEXT@nospam.fr>
Subject: Re: WHEN IS SOMEBODY GONNA FIX PERL??????
Message-Id: <fstpav$1b1a$1@biggoron.nerim.net>
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.
> Everything you read on "teh intarwebs" today will be less credible than
> usual.
>
------------------------------
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 1411
***************************************
