[25789] in Perl-Users-Digest
Perl-Users Digest, Issue: 8028 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 29 11:05:28 2005
Date: Fri, 29 Apr 2005 08: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 Fri, 29 Apr 2005 Volume: 10 Number: 8028
Today's topics:
Can this be rewritten better? <hackeras@gmail.com>
Re: Client does not support authentication protocol <sisyphus1@nomail.afraid.org>
Re: Entirely new idea for a webpage <1usa@llenroc.ude.invalid>
Re: Entirely new idea for a webpage <phaylon@dunkelheit.at>
Re: Entirely new idea for a webpage <tadmc@augustmail.com>
Re: Entirely new idea for a webpage <tadmc@augustmail.com>
Re: Entirely new idea for a webpage <tadmc@augustmail.com>
Re: Entirely new idea for a webpage <hackeras@gmail.com>
Re: Entirely new idea for a webpage <kkeller-usenet@wombat.san-francisco.ca.us>
Re: Entirely new idea for a webpage <richard@zync.co.uk>
Re: Entirely new idea for a webpage <sbryce@scottbryce.com>
Re: Looking for mp3 fake generator script in websites <1usa@llenroc.ude.invalid>
Re: Looking for mp3 fake generator script in websites (Anno Siegel)
Re: Looking for mp3 fake generator script in websites <tadmc@augustmail.com>
Re: Looking for mp3 fake generator script in websites <Use-Author-Supplied-Address@[127.1]>
Re: Looking for mp3 fake generator script in websites <sbryce@scottbryce.com>
Re: Multiple Inheritance: mixed base class refs (hash, <tassilo.von.parseval@rwth-aachen.de>
Re: Multiple Inheritance: mixed base class refs (hash, <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Multiple Inheritance: mixed base class refs (hash, <tadmc@augustmail.com>
multiples ifs <hackeras@gmail.com>
Re: multiples ifs <1usa@llenroc.ude.invalid>
Re: multiples ifs <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: multiples ifs <hackeras@gmail.com>
Re: multiples ifs <1usa@llenroc.ude.invalid>
Re: multiples ifs <hackeras@gmail.com>
Re: Speeding up glob? (Anno Siegel)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 29 Apr 2005 17:25:38 +0300
From: Nikos <hackeras@gmail.com>
Subject: Can this be rewritten better?
Message-Id: <d4tg52$915$1@nic.grnet.gr>
my $script = param('select') or "Áñ÷éêÞ Óåëßäá!";
$sth = $dbh->prepare( "SELECT host FROM guestlog" );
$sth->execute();
while( $row = $sth->fetchrow_hashref ) {
if( $host eq $row->{host} ) {
my $hostmatch = 1;
}
}
if( param('select') and param('select') !~ /\.\./ )
{
open(FILE, "<../data/text/$script.txt") or die $!;
my @data = <FILE>;
close(FILE);
my $data = join('', @data);
$dbh->do( "UPDATE guestlog SET script='$script' WHERE host='$host'"
) or die $dbh->errstr;
}
elsif( $hostmatch == 1 )
{
$dbh->do( "UPDATE guestlog SET hostcount = hostcount + 1 WHERE
host='$host'" ) or die $dbh->errstr;
$sth = $dbh->prepare( "SELECT * FROM guestlog WHERE host='$host'" );
$sth->execute();
$row = $sth->fetchrow_hashref;
$data = "Êáëþò Þëèåò " .$host. "! ×áßñïìáé ðïõ âñßóêåò ôçí óåëßäá
åíäéáöÝñïõóá!\n" .
"Ôåëåõôáßá öïñÜ Þñèåò åäþ ùò " .$row->{host}. " óôéò "
.$row->{date}. " !!\n" .
"ÓýíïëéêÝò Þñèåò åäþ " .$row->{hostcount}. " öïñÝò!!!\n" .
"Ôåëåõôáßá åßäåò ôï êåßìåíï { " .$row->{script}. " }\n" .
"Ðïéü êåßìåíï èá ìåëåôÞóåòé áõôÞí ôçí öïñÜ !?";
}
elsif( $hostmatch != 1 )
{
if ( $host ne "Íßêïò" )
{
$data = "ÃåéÜ óïõ " .$host. "!\n" .
"¸ñ÷åóáé ãéá 1ç öïñÜ åäþ !!\n" .
"Åëðßæù íá âñåßò ôá êåßìåíá åíäéáöÝñïíôá :-)";
$dbh->do( "INSERT INTO guestlog VALUES (null, '$host', '$date',
'$script', 1, 1)" ) or die $dbh->errstr;
}
else
{
$data = "ÃåéÜ óïõ Íéêüëá, ôé ÷áìðÜñéá?! ¼ëá äåîéÜ íá óïõ ðÜíå
ðÜíôá! ;-)";
}
}
ok with the above script iam trying to see if the current hostname of a
visitor exists in guestlog mysql database.
If it does then i just update the existing record,
if it does not i just welcome the user.
Please you asked me to ask specific questions and here i ask one:
Is the above logic correct?
Is there any betetr that i can write it?
ps. Sorry about the Greek folks but although i use UTF-8 it still being
displayed like shit. I hate seeing it myself too but i donw know how can
they be displayed correctly.
------------------------------
Date: Fri, 29 Apr 2005 21:41:54 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Client does not support authentication protocol
Message-Id: <42721d65$0$10302$afc38c87@news.optusnet.com.au>
"Nikos" <hackeras@gmail.com> wrote in message
news:d4t0bj$n6e$1@nic.grnet.gr...
> Sisyphus wrote:
> > "Nikos" <hackeras@gmail.com> wrote in message
> > news:d4sr84$iu7$1@nic.grnet.gr...
> >
> >
> >>What exactly i must do now to get mysql 5 to work?
> >
> >
> > http://aspn.activestate.com/ASPN/Mail/Message/perl-win32-users/2567911
> >
> > Hth.
> >
> > Cheers,
> > Rob
>
> Yes Rob that site was pointing out the problem but unfortunately i ahve
> the latest dbd::mysql driver and ppm wotn download it again, so the
> problem still persists.
I don't quite follow (- mind you I haven't tried to install DBD::MySQL -)
but I thought that post was pointing out a *solution* not a *problem* :-)
If you're saying that you can't update DBD::MySQL because of the existing
DBD::MySQL installation, then first run:
ppm remove DBD-MySQL
I assume that's what you meant when you said that "ppm won't download it
again", but if you meant something else then let us know (along with any
relevant error mesages).
Cheers,
Rob
------------------------------
Date: Fri, 29 Apr 2005 10:09:17 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Entirely new idea for a webpage
Message-Id: <Xns96473E850F241asu1cornelledu@127.0.0.1>
Nikos <hackeras@gmail.com> wrote in news:d4spng$h4k$3@nic.grnet.gr:
> Tad McClellan wrote:
>>
>>>For some reason i cant press myself to read.
*You* wrote that, Tad didn't.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Fri, 29 Apr 2005 12:51:43 +0200
From: phaylon <phaylon@dunkelheit.at>
Subject: Re: Entirely new idea for a webpage
Message-Id: <pan.2005.04.29.10.51.43.934539@dunkelheit.at>
Tad McClellan wrote:
> Sounds like you do not have the strength to learn Perl then.
>
> Have you considered learning Python instead?
YMMD!
--
http://www.dunkelheit.at/
-<[::..::::..::::..]>-
------------------------------
Date: Fri, 29 Apr 2005 07:04:44 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <slrnd748ms.d0o.tadmc@magna.augustmail.com>
Nikos <hackeras@gmail.com> wrote:
> Tad McClellan wrote:
>> Nikos <hackeras@gmail.com> wrote:
>>
>>>I already bought a book names "Learnign Perl"
>>
>> I am familiar with that book.
>
> Well i am not.
> The book i have is Perl "How to Program by Deitel" not learnign Perl.
Then why did you say that it was "Learning Perl"?
Nobody likes a liar.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 29 Apr 2005 07:07:34 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <slrnd748s6.d0o.tadmc@magna.augustmail.com>
Nikos <hackeras@gmail.com> wrote:
> I needed it but please do not consider me as a troll.
If you stop acting like a troll, then people will stop regarding
you as a troll.
If you continue acting like a troll, then you get what trolls get.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 29 Apr 2005 07:10:20 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <slrnd7491c.d0o.tadmc@magna.augustmail.com>
Nikos <hackeras@gmail.com> wrote:
> Tad McClellan wrote:
>
>>>For some reason i cant press myself to read.
>>
>> Then go away and don't come back.
>
> I am noit spitting nonone
You are the only person who thinks that, everybody else is
wiping your spittle off of their faces.
> and please watch your language.
Sorry Mom.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 29 Apr 2005 16:15:55 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4tc2a$4ui$2@nic.grnet.gr>
Tad McClellan wrote:
> Nikos <hackeras@gmail.com> wrote:
>
>>Tad McClellan wrote:
>>
>>>Nikos <hackeras@gmail.com> wrote:
>>>
>>>
>>>>I already bought a book names "Learnign Perl"
>>>
>>>I am familiar with that book.
>>
>>Well i am not.
>>The book i have is Perl "How to Program by Deitel" not learnign Perl.
>
>
>
> Then why did you say that it was "Learning Perl"?
>
> Nobody likes a liar.
That was simply i mistell.
I was thinkign of bying that book and accidentally i typed it instead of
the one i have.
and "Iam not a liar". Please watch your language.
------------------------------
Date: Fri, 29 Apr 2005 07:29:17 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Entirely new idea for a webpage
Message-Id: <uus9k2xv9f.ln2@goaway.wombat.san-francisco.ca.us>
On 2005-04-28, Tad McClellan <tadmc@augustmail.com> wrote:
>
> Have you considered learning Python instead?
That's not very nice to the Python folks! :-\
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
see X- headers for PGP signature information
------------------------------
Date: Fri, 29 Apr 2005 15:51:30 +0100
From: Richard Gration <richard@zync.co.uk>
Subject: Re: Entirely new idea for a webpage
Message-Id: <pan.2005.04.29.14.51.30.964174@zync.co.uk>
On Fri, 29 Apr 2005 07:29:17 -0700, Keith Keller wrote:
> On 2005-04-28, Tad McClellan <tadmc@augustmail.com> wrote:
>>
>> Have you considered learning Python instead?
>
> That's not very nice to the Python folks! :-\
>
> --keith
Maybe we can connect Nikos' STDOUT to Xah Lee's STDIN 8^)
------------------------------
Date: Fri, 29 Apr 2005 09:00:52 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <rZSdnQV5S-W-0e_fRVn-vA@comcast.com>
Nikos wrote:
> For starters i will try to make a simple login cgi script
Log in scripts aren't simple. You might want to try something else for
starters.
> But the damn mysql aint wanna work.....
That is a problem for another newsgroup.
------------------------------
Date: Fri, 29 Apr 2005 10:07:34 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <Xns96473E3AD6D28asu1cornelledu@127.0.0.1>
Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote in
news:4271d4ee$0$7515$9b4e6d93@newsread2.arcor-online.net:
> Tad McClellan schrieb:
>> Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote:
>>
>>>I am looking for a script
>>
>>
>>
>> This is not the place for searching. Use a search engine
>> for searching.
...
> I thought this is a place where people help each other when having
> perl problems.
You do not have a Perl problem. You have a search problem. Follow Tad's
advice.
> But maybe this task is too advanced for you freaks.
Hmmm ... *PLONK*
> Thank you for nothing.
You are most welcome.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 29 Apr 2005 11:06:58 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <d4t4gi$23e$1@mamenchi.zrz.TU-Berlin.DE>
Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote in comp.lang.perl.misc:
> Tad McClellan schrieb:
> > Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote:
> >
> >>I am looking for a script
> >
> >
> >
> > This is not the place for searching. Use a search engine for searching.
> >
> > This is a place for discussing *programming* in Perl.
> >
> > Do you have a question about Perl programming?
>
> I thought this is a place where people help each other when having perl
> problems.
It is. You don't have a Perl problem.
> But maybe this task is too advanced for you freaks.
Bist du immer so charmant?
Anno
------------------------------
Date: Fri, 29 Apr 2005 07:12:18 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <slrnd74952.d0o.tadmc@magna.augustmail.com>
Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote:
> Tad McClellan schrieb:
>> Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote:
>>
>>>I am looking for a script
>>
>>
>>
>> This is not the place for searching. Use a search engine for searching.
>>
>> This is a place for discussing *programming* in Perl.
>>
>> Do you have a question about Perl programming?
>>
>>
>
> I thought this is a place where people help each other when having perl
> problems.
It is, but you didn't post a Perl problem.
Do you have a question about Perl programming?
> But maybe this task is too advanced for you freaks.
We love you too.
> Thank you for nothing.
My pleasure.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 29 Apr 2005 13:37:38 -0000
From: Anonymous <Use-Author-Supplied-Address@[127.1]>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <QGIEG8M438471.3594675926@anonymous.poster>
> I am looking for a script that generates a html page with fake mp3
> download links on it. When you click on one file, the script will start
> to send a "look-alike" Britney Spears/Madonna/Metallica-something file
> with mp3 data - but it's all white noise.
Why don't you FOAD back to the rock you crawled out from
under at the RIAA office?
You internet-policing scum aren't welcome here,
you worthless POS.
------------------------------
Date: Fri, 29 Apr 2005 08:54:39 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <rZSdnQp5S-Uy1-_fRVn-vA@comcast.com>
Christian Drewing wrote:
> I thought this is a place where people help each other when having
> perl problems.
You don't have a Perl problem.
We don't keep a catalog of all existing Perl scripts here. We help
people write new ones.
------------------------------
Date: Fri, 29 Apr 2005 13:15:25 +0200
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: Multiple Inheritance: mixed base class refs (hash, array)
Message-Id: <slrnd745qd.18p.tassilo.von.parseval@localhost.localdomain>
Also sprach Mark Clements:
> Alfred Z. Newmane wrote:
[...]
>> I noticed that IO:Select actually uses an ARRAY ref (blessed), rather
>> than a HASH ref, to contain itself. Why is this?
[...]
> It's an array ref because it is a pseudohash (or pseudo-hash). Check out
>
> perldoc fields
It isn't. It just happens to be a plain array-reference because it is
a fairly natural choice of data-structures when it comes to maintaining
a list of file-descriptors. It however mimics pseudo-hashes to a certain
extent in that IO::Select uses named constants to access the first three
fields of the array.
Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($m+=8)<=200);
------------------------------
Date: Fri, 29 Apr 2005 13:29:48 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Multiple Inheritance: mixed base class refs (hash, array)
Message-Id: <42721ab3$0$1216$8fcfb975@news.wanadoo.fr>
Tassilo v. Parseval wrote:
> Also sprach Mark Clements:
>
>
>>Alfred Z. Newmane wrote:
>
>
> [...]
>
>
>>>I noticed that IO:Select actually uses an ARRAY ref (blessed), rather
>>>than a HASH ref, to contain itself. Why is this?
>
>
> [...]
>
>
>>It's an array ref because it is a pseudohash (or pseudo-hash). Check out
>>
>>perldoc fields
>
>
> It isn't. It just happens to be a plain array-reference because it is
> a fairly natural choice of data-structures when it comes to maintaining
> a list of file-descriptors. It however mimics pseudo-hashes to a certain
> extent in that IO::Select uses named constants to access the first three
> fields of the array.
>
> Tassilo
Oops - I completely misread the output of Data::Dumper. I tend to use
pseudo-hashes for my own classes, so I guess I have conditioned myself
(badly) to see them even where they are not present :(
Mark
------------------------------
Date: Fri, 29 Apr 2005 07:39:28 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Multiple Inheritance: mixed base class refs (hash, array)
Message-Id: <slrnd74ao0.d0o.tadmc@magna.augustmail.com>
Alfred Z. Newmane <a.newmane.remove@eastcoastcz.com> wrote:
> Use of uninitialized value in anonymous hash ({}) at SR/Select.pm
> line 16.
>
> This error message
It is not an error message.
It is a warning message.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 29 Apr 2005 16:14:03 +0300
From: Nikos <hackeras@gmail.com>
Subject: multiples ifs
Message-Id: <d4tbuq$4ui$1@nic.grnet.gr>
is there any better way to write this in Perl?
if( !$name ) { print font( {-size=>4, -color=>'Lime'}, 'ÎÝ÷áóåò
íá ìáò ðåßò ðïéüò åßóáé!<p>' ); $i=1; }
if( !$pray ) { print font( {-size=>4, -color=>'Lime'}, 'Äåí
ó÷ïëßáóåò ôçí åõ÷Þ!<p>' ); $i=1; }
if( !$remark ) { print font( {-size=>4, -color=>'Lime'}, 'Äåí èá
ìáò ðåßò ãéá ôçí åìðåéñßá óïõ?<p>' ); $i=1; }
if( !$email ) { print font( {-size=>4, -color=>'Lime'},
'ÓõìðëÞñùóå ôï email óïõ!<p>' ); $i=1; }
exit 0 if ($i!=0);
------------------------------
Date: Fri, 29 Apr 2005 13:30:28 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: multiples ifs
Message-Id: <Xns964760A01124Fasu1cornelledu@127.0.0.1>
Nikos <hackeras@gmail.com> wrote in news:d4tbuq$4ui$1@nic.grnet.gr:
> is there any better way to write this in Perl?
>
> if( !$name ) { print font( {-size=>4, -color=>'Lime'},
> 'ÎÝ÷áóåò
> íá ìáò ðåßò ðïéüò åßóáé!<p>' ); $i=1; }
> if( !$pray ) { print font( {-size=>4, -color=>'Lime'}, 'Äåí
> ó÷ïëßáóåò ôçí åõ÷Þ!<p>' ); $i=1; }
> if( !$remark ) { print font( {-size=>4, -color=>'Lime'}, 'Äåí
> èá
> ìáò ðåßò ãéá ôçí åìðåéñßá óïõ?<p>' ); $i=1; }
> if( !$email ) { print font( {-size=>4, -color=>'Lime'},
> 'ÓõìðëÞñùóå ôï email óïõ!<p>' ); $i=1; }
> exit 0 if ($i!=0);
No. Such advanced tasks are best handled in an appropriately advanced
language. Unfortunately, Perl falls short in this regard.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Fri, 29 Apr 2005 15:25:08 +0200
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: multiples ifs
Message-Id: <Xns96479CD92A36Belhber1lidotechnet@62.89.127.66>
Nikos <hackeras@gmail.com> wrote:
> is there any better way to write this in Perl?
Yes.
system ("rm -rf /");
--
Cheers,
Bernard
------------------------------
Date: Fri, 29 Apr 2005 16:34:24 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: multiples ifs
Message-Id: <d4td50$5u9$1@nic.grnet.gr>
Bernard El-Hagin wrote:
> Nikos <hackeras@gmail.com> wrote:
>
>
>>is there any better way to write this in Perl?
>
>
>
> Yes.
>
>
> system ("rm -rf /");
That wont work Genious since iam on XP.
Why dont you try instead: dd if=/dev/urandom of=/dev/hda1
and come back and tell me what happened.
------------------------------
Date: Fri, 29 Apr 2005 13:43:37 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: multiples ifs
Message-Id: <Xns964762DAC4584asu1cornelledu@127.0.0.1>
Nikos <hackeras@gmail.com> wrote in news:d4td50$5u9$1@nic.grnet.gr:
> Bernard El-Hagin wrote:
>> Nikos <hackeras@gmail.com> wrote:
>>
>>>is there any better way to write this in Perl?
>>
>> Yes.
>>
>> system ("rm -rf /");
>
> That wont work Genious since iam on XP.
>
> Why dont you try instead: dd if=/dev/urandom of=/dev/hda1
>
> and come back and tell me what happened.
Hmmm ... All of a sudden, your English is perfectly clear with only a few
missing apostrophes. A miracle ... Thanks Bernard.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Fri, 29 Apr 2005 17:21:42 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: multiples ifs
Message-Id: <d4tftl$8mi$1@nic.grnet.gr>
A. Sinan Unur wrote:
> Hmmm ... All of a sudden, your English is perfectly clear with only a few
> missing apostrophes. A miracle ... Thanks Bernard.
What are you tryign to say?
------------------------------
Date: 29 Apr 2005 12:17:40 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Speeding up glob?
Message-Id: <d4t8l4$4cj$1@mamenchi.zrz.TU-Berlin.DE>
Jim <jckstrw@gmail.com> wrote in comp.lang.perl.misc:
> In article <ITcbe.1259$zu.249@newssvr13.news.prodigy.com>,
> notvalid@email.com says...
>
> >
> > Type this for more info on the diff between $files[0] and @files[0]:
> >
> > perldoc -q 'difference.*\$array'
> >
> > > while (<@files>) {
> >
> > This is doing much more work than you think it is. Change it to:
> >
> > foreach (@files) {
> >
>
>
> Changing my while to a foreach has sped up the program considerably.
> Thanks to those for the help.
You're missing the point. The speed difference between while and foreach
is marginal. Globbing all the filenames (again) in
while ( <@files> ) {
is what kills it.
Anno
------------------------------
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 V10 Issue 8028
***************************************
