[26108] in Perl-Users-Digest
Perl-Users Digest, Issue: 8305 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 5 00:05:33 2005
Date: Thu, 4 Aug 2005 21:05:04 -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 Thu, 4 Aug 2005 Volume: 10 Number: 8305
Today's topics:
Re: "anonymous" variable in Perl? <usenet@vyznev.invalid>
Re: Download Files With a perl script <heli0s@localhost.localdomain>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 04 Aug 2005 20:08:15 +0300
From: Ilmari Karonen <usenet@vyznev.invalid>
Subject: Re: "anonymous" variable in Perl?
Message-Id: <slrndf4irv.3fu.usenet@boojum.home.vyznev.net>
Veli-Pekka Tätilä <vtatila@mail.student.oulu.fi> kirjoitti 04.08.2005:
> Juha Laiho wrote:
>> ... and if more than one of the return values is needed, it's equally
>> simple:
>> my ($day,$month) = (localtime)[3,4];
> Nice, an array slice. Couldn't you also use the range operator to say get
> the values two to five with [2 ..5 ]?
>
> One quick question, though. Is there an elegant way of getting the time
> components in a hash? It would be easier to memorize if the components had
> human-readable names. I think the indeces are mostly arbitrary apart from
> going from smaller units to larger which somewhat helps.
For one more way to do it, see the examples section in "perldoc constant".
--
Ilmari Karonen
To reply by e-mail, please replace ".invalid" with ".net" in address.
"My father used to claim that he heard god on numerous occasions. He
would ask god questions and keep a record of the answers, and at the end
of the year he would do a chi-square analysis to find out whether god had
been right more often than chance would lead one to expect." -- Pat Bowne
------------------------------
Date: Fri, 05 Aug 2005 00:06:55 +0200
From: heli0s <heli0s@localhost.localdomain>
Subject: Re: Download Files With a perl script
Message-Id: <pan.2005.08.04.22.06.53.642936@localhost.localdomain>
On Thu, 04 Aug 2005 17:23:45 +0000, axel wrote:
> heli0s <heli0s@localhost.localdomain> wrote:
>> I'm having a bit of a problem with a script I'm writing. I want the script
>> to read in a txt file with a list of files to download and then go through
>> the list of files to get them from the net.
>>
>> it should be something like this:
>>
>> use LWP::Simple;
>>
>> open (FILE,"all.m3u");
>> @file = <FILE>;
>> close FILE;
>>
>> foreach $line (@file){
>> get ( $line );
>> }
>
>> As seen in the above code, i've been looking at LWP::Simple, but what i
>> have here is no good. Maybe i'm doing something wrong but i havent figured
>> it out yet.
>
> Do you have a sample of a couple of lines from all.m3u?
>
> Axel
there something like this:
http://my.site.org/Albums/Asian%20Dub%20Foundation%20-%20Community
%20Music/Asian%20Dub%20Foundation%20-%2001%20-%20real%20great%20britain.mp3
(with all the spaces. Getting them out is kinda out of the question
unfortunately)
Christiaan
------------------------------
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 8305
***************************************
