[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Help with Quotemonster



At 22.29 -0400 1999.07.01, adjei wrote:
>Quotemonster or qm is perl script that downloads historical quotes from the
>internet. It was working fine with Os 8.5.1 until all of a sudden it stared
>truncating the quotesout dates. For example a normal quotesout ( output)
>looks
>like this:
>
>AOL,061799,106.5,113.75,103,110.6875,31982600
>AOL,061899,112,113.5,109.5625,112,22946900
>
>the faulty quotesout looks like this:
>
>AOL,0617,106.5,113.75,103,110.6875,31982600
>AOL,0618,112,113.5,109.5625,112,22946900
>
>note the disappearance of the year-99.
>
>I cannot figure it out. I upgraded to os 8.6-still same problem.
>your help will be most appreciated.
>I have attached the qm script.

As I think I mentioned before, the OS has nothing to do with this.  The
script does exactly as it is asked.

				($day,$month,$year) = split(/\-/, $date);

				$year = substr($year,2,2);
				$date = "$year$month$day";


$date was "1-Jul-99".  So $year is 99.  So substr($year, 2, 2) is
undefined, as it should be, since the next two characters starting after
the second character are undefined, since the string is only two characters
long to begin with.

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org