[23357] in Perl-Users-Digest
Perl-Users Digest, Issue: 5576 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 27 21:05:45 2003
Date: Sat, 27 Sep 2003 18:05:10 -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 Sat, 27 Sep 2003 Volume: 10 Number: 5576
Today's topics:
Can I simplify this? <shemond@hotmail.com>
Re: Can I simplify this? <noreply@gunnar.cc>
Re: date in hash keys & sorting <king21122@yahoo.com>
Re: date in hash keys & sorting <noreply@gunnar.cc>
Re: Find what is in array1 and not in array2 <abigail@abigail.nl>
Re: Find what is in array1 and not in array2 <postmaster@castleamber.com.invalid>
getting shell outputs as variables <feurry@hotmail.com>
Re: getting shell outputs as variables <noreply@gunnar.cc>
Re: getting shell outputs as variables <feurry@hotmail.com>
Re: getting shell outputs as variables <james@beastie.client1.we.attbi.com>
Re: getting shell outputs as variables <james@beastie.client1.we.attbi.com>
Re: hash reference as a hash key <grazz@pobox.com>
Re: how to match leading '*' ?? <bwaNOlSPtAMon@rochester.rr.com>
Re: how to match leading '*' ?? <noreply@gunnar.cc>
Re: how to match leading '*' ?? <abigail@abigail.nl>
Re: making hash of arrays <jattspirit@yahoo.com>
Re: making hash of arrays <notavailable@nospamplease.com>
Re: making hash of arrays <jattspirit@yahoo.com>
Re: making hash of arrays <bwaNOlSPtAMon@rochester.rr.com>
Re: making hash of arrays (Jay Tilton)
Re: MythTV Perl script <mooseshoes@gmx.net>
Re: MythTV Perl script <Huzzah!@Huzzah.com>
Re: MythTV Perl script <Huzzah!@Huzzah.com>
Re: MythTV Perl script (Dennis)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 27 Sep 2003 16:04:49 -0400
From: Steve =?ISO-8859-1?Q?H=E9mond?= <shemond@hotmail.com>
Subject: Can I simplify this?
Message-Id: <Dzpdb.11711$1H3.581616@news20.bellglobal.com>
Hi people,
I want each line of a file to be checked for occurences :
if ($line =~ /x/ || $line =~ /\b[Tt]he\b/)
{
print "$a $line";
$a++;
}
if any 'x' or any 'the' or 'The' word is found in the line, I print the line
number.
Is there any way I can simplify this line? :
if ($line =~ /x/ || $line =~ /\b[Tt]he\b/)
Thanks in advance,
Steve
------------------------------
Date: Sun, 28 Sep 2003 02:34:45 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Can I simplify this?
Message-Id: <bl5aje$81nlc$1@ID-184292.news.uni-berlin.de>
Steve Hémond wrote:
> Is there any way I can simplify this line? :
>
> if ($line =~ /x/ || $line =~ /\b[Tt]he\b/)
if ($line =~ /x|\b[Tt]he\b/)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sun, 28 Sep 2003 09:30:29 +1000
From: King <king21122@yahoo.com>
Subject: Re: date in hash keys & sorting
Message-Id: <3F761D95.5010209@yahoo.com>
Gunnar Hjalmarsson wrote:
> Sam wrote:
>
>> one of the problems I am facing is converting the date, the result
>> are
>> 2002124 for 2002-Jan-24
>> 2002124 for 2002-Dec-4
>> that sorting will not work, any idea is appriciated
>
>
> Check out the sprintf() function. Example:
>
> @dates = ('2002-Jan-24', '2002-Dec-4');
>
> %months = ( Jan => 1, Feb => 2, Mar => 3, Apr => 4,
> Maj => 5, Jun => 6, Jul => 7, Aug => 8,
> Sep => 9, Oct => 10, Nov => 11, Dec => 12 );
>
> @sortabledates = map { sprintf '%d%02d%02d',
> map { /[a-z]{3}/i ? $months{$_} : $_ } split /-/
> } @dates;
>
what if the dates are
02-Jan-24
02-Dec-4
99-Jan-24
99-Dec-4
------------------------------
Date: Sun, 28 Sep 2003 01:44:55 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: date in hash keys & sorting
Message-Id: <bl57m0$8akb9$1@ID-184292.news.uni-berlin.de>
King wrote:
> Gunnar Hjalmarsson wrote:
>> Sam wrote:
>>> one of the problems I am facing is converting the date, the result
>>> are
>>> 2002124 for 2002-Jan-24
>>> 2002124 for 2002-Dec-4
>>> that sorting will not work, any idea is appriciated
>>
>> Check out the sprintf() function. Example:
>>
>> @dates = ('2002-Jan-24', '2002-Dec-4');
>>
>> %months = ( Jan => 1, Feb => 2, Mar => 3, Apr => 4,
>> Maj => 5, Jun => 6, Jul => 7, Aug => 8,
>> Sep => 9, Oct => 10, Nov => 11, Dec => 12 );
>>
>> @sortabledates = map { sprintf '%d%02d%02d',
>> map { /[a-z]{3}/i ? $months{$_} : $_ } split /-/
>> } @dates;
>
> what if the dates are
> 02-Jan-24
> 02-Dec-4
> 99-Jan-24
> 99-Dec-4
Then the code needs to be modified, obviously. But that's beyond the
question, isn't it?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 27 Sep 2003 23:34:56 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Find what is in array1 and not in array2
Message-Id: <slrnbnc7l0.8qg.abigail@alexandra.abigail.nl>
John Bokma (postmaster@castleamber.com.invalid) wrote on MMMDCLXXIX
September MCMXCIII in <URL:news:1064661386.486819@halkan.kabelfoon.nl>:
==
== > I'm not sure how to compute the runtime; my guess is that it'd be O(m+n).
==
== O(max(m,n))
O(m+n) and O(max(m,n)) are the same sets.
Abigail
--
#!/opt/perl/bin/perl -w
$\ = $"; $SIG {TERM} = sub {print and exit};
kill 15 => fork for qw /Just another Perl Hacker/;
------------------------------
Date: Sun, 28 Sep 2003 01:39:12 +0200
From: John Bokma <postmaster@castleamber.com.invalid>
Subject: Re: Find what is in array1 and not in array2
Message-Id: <1064706081.483716@halkan.kabelfoon.nl>
Abigail wrote:
> John Bokma (postmaster@castleamber.com.invalid) wrote on MMMDCLXXIX
> September MCMXCIII in <URL:news:1064661386.486819@halkan.kabelfoon.nl>:
> ==
> == > I'm not sure how to compute the runtime; my guess is that it'd be O(m+n).
> ==
> == O(max(m,n))
>
> O(m+n) and O(max(m,n)) are the same sets.
I was doubting it all afternoon :-). I was planning to check "An
Introduction to Algorithms" on it.
Thanks.
--
Kind regards, oh baby
John let me hit you with the clue bat
since your attitude
http://johnbokma.com/ makes me so sad
------------------------------
Date: Sat, 27 Sep 2003 19:47:51 -0400
From: Peter <feurry@hotmail.com>
Subject: getting shell outputs as variables
Message-Id: <vkpdb.80132$PD3.4800823@nnrp1.uunet.ca>
My script runs a program which outputs various information and i need to
sort through that info and store some of it as a variable.
When the program finishes (mencoder)... this is what it spits out to the
console.
Recommended video bitrate for 650MB CD: 16021
Recommended video bitrate for 700MB CD: 17264
Recommended video bitrate for 800MB CD: 19749
Recommended video bitrate for 2 x 650MB CD: 32175
Recommended video bitrate for 2 x 700MB CD: 34661
Recommended video bitrate for 2 x 800MB CD: 39631
Video stream: 0.767 kbit/s (95 bps) size: 32380 bytes 337.539 secs
8095 frames
Audio stream: 117.333 kbit/s (14666 bps) size: 4957920 bytes 338.040
secs
I need to get the "4957920" bytes value from the audio line and the
"337.539" seconds value from the audio stream line and store them as
some variables. Any help is appreciated
Thanks
------------------------------
Date: Sun, 28 Sep 2003 01:53:56 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: getting shell outputs as variables
Message-Id: <bl586t$82f2l$1@ID-184292.news.uni-berlin.de>
Peter wrote:
> My script runs a program which outputs various information and i
> need to sort through that info and store some of it as a variable.
> When the program finishes (mencoder)... this is what it spits out
> to the console.
>
> Recommended video bitrate for 650MB CD: 16021
> Recommended video bitrate for 700MB CD: 17264
> Recommended video bitrate for 800MB CD: 19749
> Recommended video bitrate for 2 x 650MB CD: 32175
> Recommended video bitrate for 2 x 700MB CD: 34661
> Recommended video bitrate for 2 x 800MB CD: 39631
>
> Video stream: 0.767 kbit/s (95 bps) size: 32380 bytes 337.539 secs 8095 frames
>
> Audio stream: 117.333 kbit/s (14666 bps) size: 4957920 bytes 338.040 secs
>
> I need to get the "4957920" bytes value from the audio line and the
> "337.539" seconds value from the audio stream line and store them
> as some variables.
So, then post the code you have, showing us how you have been dealing
with the task so far.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sat, 27 Sep 2003 20:34:43 -0400
From: Peter <feurry@hotmail.com>
Subject: Re: getting shell outputs as variables
Message-Id: <s0qdb.80145$PD3.4801103@nnrp1.uunet.ca>
Gunnar Hjalmarsson wrote:
> Peter wrote:
>
>> My script runs a program which outputs various information and i
>> need to sort through that info and store some of it as a variable.
>> When the program finishes (mencoder)... this is what it spits out
>> to the console.
>>
>> Recommended video bitrate for 650MB CD: 16021
>> Recommended video bitrate for 700MB CD: 17264
>> Recommended video bitrate for 800MB CD: 19749
>> Recommended video bitrate for 2 x 650MB CD: 32175
>> Recommended video bitrate for 2 x 700MB CD: 34661
>> Recommended video bitrate for 2 x 800MB CD: 39631
>>
>> Video stream: 0.767 kbit/s (95 bps) size: 32380 bytes 337.539
>> secs 8095 frames
>>
>> Audio stream: 117.333 kbit/s (14666 bps) size: 4957920 bytes
>> 338.040 secs
>>
>> I need to get the "4957920" bytes value from the audio line and the
>> "337.539" seconds value from the audio stream line and store them
>> as some variables.
>
>
> So, then post the code you have, showing us how you have been dealing
> with the task so far.
>
Well..i'm not really sure how to do it. New to perl and the perl docs
are huge. I think i need to use something like
$probe_output =~ and this part i don't know;
not really sure where to look either.
i saw something else like @a = 'my command to start the program';
which would load all of that output data into an array..but i still need
to filter through it.
------------------------------
Date: Sat, 27 Sep 2003 17:39:06 -0700
From: James K <james@beastie.client1.we.attbi.com>
Subject: Re: getting shell outputs as variables
Message-Id: <pan.2003.09.28.00.39.06.835958@beastie.client1.we.attbi.com>
On Sat, 27 Sep 2003 19:47:51 -0400, Peter wrote:
> My script runs a program which outputs various information and i need to
> sort through that info and store some of it as a variable.
> When the program finishes (mencoder)... this is what it spits out to the
> console.
>
> Recommended video bitrate for 650MB CD: 16021
> Recommended video bitrate for 700MB CD: 17264
> Recommended video bitrate for 800MB CD: 19749
> Recommended video bitrate for 2 x 650MB CD: 32175
> Recommended video bitrate for 2 x 700MB CD: 34661
> Recommended video bitrate for 2 x 800MB CD: 39631
my @slurp = `mencoder $param1 $param2`;
@slurp will then hold an array of lines. Foreach your way through them to
find what you need.
------------------------------
Date: Sat, 27 Sep 2003 17:46:41 -0700
From: James K <james@beastie.client1.we.attbi.com>
Subject: Re: getting shell outputs as variables
Message-Id: <pan.2003.09.28.00.46.41.336915@beastie.client1.we.attbi.com>
On Sat, 27 Sep 2003 20:34:43 -0400, Peter wrote:
> Well..i'm not really sure how to do it. New to perl and the perl docs
> are huge. I think i need to use something like
> $probe_output =~ and this part i don't know;
> not really sure where to look either.
> i saw something else like @a = 'my command to start the program';
> which would load all of that output data into an array..but i still need
> to filter through it.
First, those should be backticks. `` as opposed to ''
Second, go to:
http://learn.perl.org/library/beginning_perl/
And read chapters 4 & 5 (and possibly 1, 2, and 3). Even better, buy a
printed copy while you're there.
------------------------------
Date: Sat, 27 Sep 2003 19:28:06 GMT
From: Steve Grazzini <grazz@pobox.com>
Subject: Re: hash reference as a hash key
Message-Id: <axldb.9078$yU5.7723@nwrdny01.gnilink.net>
Steve <ineverlookatthis@yahoo.com> wrote:
> >refs as keys are a fine thing as long as the ref itself is also in the
> >value part (either the value itself or inside someother structure which
> >is the value).
>
> Do you mean I could add a value such as
> $eachDNA->{uniqueaddress} = $eachDNA;
> and then use that as a hash key ?
That's a circular reference, so it's not the ideal solution.
> I can see how that is better than what I am presently doing, but not
> fundamentally different. I can of course ensure that the hashref will
> remain in existence, but does that mean that it won't change its value
> when stringified ?
Yes. Unless you bless() the reference, the stringified form will
stay the same until the object is destroyed.
--
Steve
------------------------------
Date: Sat, 27 Sep 2003 20:36:20 GMT
From: Bob Walton <bwaNOlSPtAMon@rochester.rr.com>
Subject: Re: how to match leading '*' ??
Message-Id: <3F75F4C4.2060100@rochester.rr.com>
Leor Zolman wrote:
...
> I'm probably going to feel really stupid when I see the answer, but
> I'm now stuck nevertheless... I need to match a leading literal '*',
> and Perl isn't getting the idea. Reading from standard input, typing
> "const" into the program below yields "just const" as expected, but
> typing "*const" ALSO results in "just const", rather than "*const" as
> I would have hoped.
>
> This is a simplification of a much more complex r.e. where I need to
> detect an asterisk immediately preceding "const" in the middle of the
> r.e., and it isn't working there either.
>
> How am I being brain-dead?
> -leor
>
> while (<>)
> {
> if (/const/)
You need to anchor the beginning of the above pattern. As given, it
will match the string '*const', beginning at the 'c'. Like:
if (^/const/)
Or you could test for *const , then test for const once you know it's
not *const .
> {
> print "just const\n\n";
> }
> elsif (/\*const/) # should match leading literal '*', no???
Yep, if it ever got to this statement :-)
> {
> print "*const\n\n";
> }
> else
> {
> print "None.\n";
> }
> }
>
--
Bob Walton
------------------------------
Date: Sat, 27 Sep 2003 22:35:54 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: how to match leading '*' ??
Message-Id: <bl4sls$85oab$1@ID-184292.news.uni-berlin.de>
Bob Walton wrote:
> You need to anchor the beginning of the above pattern. ... Like:
>
> if (^/const/)
Suppose you mean:
if (/^const/)
;-)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 27 Sep 2003 23:38:55 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: how to match leading '*' ??
Message-Id: <slrnbnc7sf.8qg.abigail@alexandra.abigail.nl>
Leor Zolman (leor@bdsoft.com) wrote on MMMDCLXXIX September MCMXCIII in
<URL:news:d38469a3.0309270803.47d0133f@posting.google.com>:
^^ (Sorry, I posted this in comp.lang.perl first before a different
^^ newsreader showed me the existence of this sub-group; there seems to
^^ be more activity here.)
^^
^^ I'm probably going to feel really stupid when I see the answer, but
^^ I'm now stuck nevertheless... I need to match a leading literal '*',
^^ and Perl isn't getting the idea. Reading from standard input, typing
^^ "const" into the program below yields "just const" as expected, but
^^ typing "*const" ALSO results in "just const", rather than "*const" as
^^ I would have hoped.
^^
^^ This is a simplification of a much more complex r.e. where I need to
^^ detect an asterisk immediately preceding "const" in the middle of the
^^ r.e., and it isn't working there either.
/[*]const/
Abigail
--
perl -wle 'print prototype sub "Just another Perl Hacker" {};'
------------------------------
Date: Sat, 27 Sep 2003 22:00:01 GMT
From: Harpreet Dhillon <jattspirit@yahoo.com>
Subject: Re: making hash of arrays
Message-Id: <BLndb.152$8v4.25125030@newssvr13.news.prodigy.com>
Hello All,
I am newbie to perl. I need to make a hash of arrays. Can someone please
explaing how I can do that ? I tried to do the following but it didn't
worked.
%dir_struct = ( "directory01" => ("user01", "group01", "755"),
"directory02" => ("user02", "group02", "777"),
);
As you can see above, I am trying to create a directory structure and need
to store the information in some kind of array which will include user
name, group name, permissions and may be other information. If you know any
better way to do the same without making use of any database, please let me
know.
Appreciate your help,
Harpreet
------------------------------
Date: Sun, 28 Sep 2003 00:16:42 +0100
From: "D Borland" <notavailable@nospamplease.com>
Subject: Re: making hash of arrays
Message-Id: <eUodb.906$Wi.249@newsfep3-gui.server.ntli.net>
> Hello All,
> I am newbie to perl. I need to make a hash of arrays. Can someone
please
> explaing how I can do that ? I tried to do the following but it didn't
> worked.
>
> %dir_struct = ( "directory01" => ("user01", "group01", "755"),
> "directory02" => ("user02", "group02", "777"),
> );
>
> As you can see above, I am trying to create a directory structure and need
> to store the information in some kind of array which will include user
> name, group name, permissions and may be other information. If you know
any
> better way to do the same without making use of any database, please let
me
> know.
>
> Appreciate your help,
> Harpreet
I'm afraid to say i can only really point you to the reading material, as i
myself have become aware it can by quite complicated at times.
See perlreftut, perldsc and perlol in the perl documentation.
Luckily after a little bit of reading you should start to get a grasp on
things.
Dagmar
------------------------------
Date: Sat, 27 Sep 2003 23:35:34 GMT
From: Harpreet Dhillon <jattspirit@yahoo.com>
Subject: Re: making hash of arrays
Message-Id: <a9pdb.6794$Q05.1183@newssvr27.news.prodigy.com>
Hello Dagmar,
Thanks for pointing out to man pages. Seems like I found the solution to
my problem. Instead of using round brackets while defining the array, I
need to use square brackets :)
%dir_struct = ( "directory01" => ["user01", "group01", "755"],
"directory02" => ["user02", "group02", "777"],
);
D Borland wrote:
>> Hello All,
>> I am newbie to perl. I need to make a hash of arrays. Can someone
> please
>> explaing how I can do that ? I tried to do the following but it didn't
>> worked.
>>
>> %dir_struct = ( "directory01" => ("user01", "group01", "755"),
>> "directory02" => ("user02", "group02", "777"),
>> );
>>
>> As you can see above, I am trying to create a directory structure and
>> need to store the information in some kind of array which will include
>> user name, group name, permissions and may be other information. If you
>> know
> any
>> better way to do the same without making use of any database, please let
> me
>> know.
>>
>> Appreciate your help,
>> Harpreet
>
> I'm afraid to say i can only really point you to the reading material, as
> i myself have become aware it can by quite complicated at times.
>
> See perlreftut, perldsc and perlol in the perl documentation.
>
> Luckily after a little bit of reading you should start to get a grasp on
> things.
>
> Dagmar
------------------------------
Date: Sat, 27 Sep 2003 23:35:55 GMT
From: Bob Walton <bwaNOlSPtAMon@rochester.rr.com>
Subject: Re: making hash of arrays
Message-Id: <3F761EDB.3020901@rochester.rr.com>
Harpreet Dhillon wrote:
> Hello All,
> I am newbie to perl. I need to make a hash of arrays. Can someone please
> explaing how I can do that ? I tried to do the following but it didn't
> worked.
>
> %dir_struct = ( "directory01" => ("user01", "group01", "755"),
> "directory02" => ("user02", "group02", "777"),
> );
%dir_struct = ( directory01 => ["user01", "group01", "755"],
directory02 => ["user02", "group02", "777"],
);
I'm sure your next question will be how to access this data:
print $dir_struct{directory01}[1]; #prints group01
@array = @{$dir_struct{directory02}}; #@array is ("user02",...)
For more info, see:
perldoc perldata
perldoc perlref
perldoc perllol
perldoc perldsc
...
> Harpreet
>
--
Bob Walton
------------------------------
Date: Sat, 27 Sep 2003 23:38:36 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: making hash of arrays
Message-Id: <3f761e69.225425083@news.erols.com>
Harpreet Dhillon <jattspirit@yahoo.com> wrote:
: I am newbie to perl. I need to make a hash of arrays. Can someone please
: explaing how I can do that ? I tried to do the following but it didn't
: worked.
:
: %dir_struct = ( "directory01" => ("user01", "group01", "755"),
: "directory02" => ("user02", "group02", "777"),
: );
The RHS of that assignment is one flat list--the parentheses are
meaningless.
The hash values would be references to anonymous arrays if the
parentheses were square brackets.
%dir_struct = ( "directory01" => ["user01", "group01", "755"],
"directory02" => ["user02", "group02", "777"],
);
------------------------------
Date: Sat, 27 Sep 2003 18:21:10 GMT
From: mooseshoes <mooseshoes@gmx.net>
Subject: Re: MythTV Perl script
Message-Id: <qykdb.3890$yJ4.2845@newssvr29.news.prodigy.com>
<snip>
> 'http://www.geocities.com/paglierani/showlist.jpg');
<<< This is a jpeg file. You can't extract showlist information from it.
Moose
-----
Look for decreasing temperatures this winter with the likelihood of warmer
weather in the spring.
------------------------------
Date: Sat, 27 Sep 2003 19:02:17 GMT
From: Todd Stephens <Huzzah!@Huzzah.com>
Subject: Re: MythTV Perl script
Message-Id: <Z8ldb.24886$eS5.1433@twister.tampabay.rr.com>
Dennis wrote in article <366305e3.0309270802.2480ac01@posting.google.com>:
> 'http://www.geocities.com/paglierani/showlist.jpg');
Not only is that an image file, but that URL does not even exist when I
click on it.
--
Todd Stephens
ICQ# 3150790
"A witty saying proves nothing."
-Voltaire
------------------------------
Date: Sat, 27 Sep 2003 19:08:22 GMT
From: Todd Stephens <Huzzah!@Huzzah.com>
Subject: Re: MythTV Perl script
Message-Id: <Geldb.24888$eS5.3306@twister.tampabay.rr.com>
Todd Stephens wrote in article
<Z8ldb.24886$eS5.1433@twister.tampabay.rr.com>:
> Not only is that an image file, but that URL does not even exist when I
> click on it.
Hmm. Scratch that. I went up a level in the directory and saw how it says
it is not an image, so choose "save as". I did that, but it still shows as
being a jpeg image after downloading. Opening in emacs proves otherwise.
Have you tried downloading the file and redirecting the program to read the
local file rather than the remote location?
--
Todd Stephens
ICQ# 3150790
"A witty saying proves nothing."
-Voltaire
------------------------------
Date: 27 Sep 2003 15:19:08 -0700
From: 4hands@earthlink.net (Dennis)
Subject: Re: MythTV Perl script
Message-Id: <366305e3.0309271419.64643882@posting.google.com>
mooseshoes <mooseshoes@gmx.net> wrote in message news:<qykdb.3890$yJ4.2845@newssvr29.news.prodigy.com>...
> <snip>
>
>
> > 'http://www.geocities.com/paglierani/showlist.jpg');
>
>
> <<< This is a jpeg file. You can't extract showlist information from it.
>
> Moose
>
>
>
> -----
> Look for decreasing temperatures this winter with the likelihood of warmer
> weather in the spring.
Actually its not a .jpg, it's a text file. If you were to copy and
paste and right click on the link, it saves it as a text file. Taking
off the showlist.jpg extension from the link will take you to the
beginning and you can see what it says. If it is actually a text file
then it should work but it's not. Thanks for the replies guys.
------------------------------
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.
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 5576
***************************************
