Re: Printing by date

The variables $m, $d, and $y do not appear to be defined in your script, so I'm not sure how the following code is working for you:

if($_=~/$m\/$d\/$y/) {
        @n_row=$_;
        #print " - $date{$_} - From Date=$m/$d/$y.<br>";        
}
[download]

~~Also, you define $date to be a string containing "04/11/2004", but then redefine $date to be a hash. Was the first definition required?~~ Update Well, you can do that but it does make the code more difficult to understand since the same variable name is being used for two different purposes.

Basically, as I glance at your code, I'm really not sure what it's suppose to do.

Comment on Re: Printing by date Download Code

Replies are listed 'Best First'.
Re: Re: Printing by date by Anonymous Monk on Apr 20, 2004 at 18:03 UTC
Sorry, don't consider this part `foreach(keys %date){ if($_=~/$m\/$d\/$y/){ @n_row=$_; #print " - $date{$_} - From Date=$m/$d/$y.<br>"; } }` [download] It was there as testing I was doing before.	[reply] [d/l]
Re: Re: Re: Printing by date by Belgarion (Chaplain) on Apr 20, 2004 at 18:16 UTC
Fair enough. I removed those lines and then ran your code with the input you provided. I received this as an output: `__OUTPUT__ 4/15/2004: 6<br /> Kid And Place: 1<br /> Deal Time: 1<br /> Home: 2<br /> Car Wash: 1<br /> Magic: 1<br /> DI: 3<br /> Login: 3<br />` [download] What output are you expecting? It appears that the date information is printed correctly.	[reply] [d/l]