dReKurCe has asked for the wisdom of the Perl Monks concerning the following question:
This code produced the following output upon initial testing:my $tracks; my $ritetime; my $philetracks; opendir(MUSICPUB, "/opt/www/musicpub/"); while (defined($tracks=readdir(MUSICPUB)){ if ($tracks=~m/tracks/){ $philetracks="/opt/www/musicpub/$tracks"; } } closedir(MUSICPUB); $ritetime=(stat($philetracks))[9]; open(TRACKS, "+<< /opt/www/musicpub/tracks"); print TRACKS "$ritetime\n"; close TRACKS
Thanks for any insight into this temporal predicament. # I'm posting my progress with the tracktime script in question. It would seem as a miscrient file created by early testing (the file was named tracks0) was somehow being matched by the first regular expression!? So, removing tracks0 from the target directory magically fisked the problem.The tracktime reported is in ascending order so futher manipulations of the difference and conversion functions can be added.Thanks for the help, as far as the regex is concerned possible explanations would be welcome. Now , back to thinking about Gauss and the number 5050....311-Evolution: 1093970368 311-Freak Out: 1093970368 311-FullRide: 1093970368 311-Champagne: 1093970739 311-Hive: 1093970368
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Confusing Use of Time
by chromatic (Archbishop) on Aug 31, 2004 at 22:27 UTC | |
by dReKurCe (Scribe) on Aug 31, 2004 at 23:26 UTC | |
by iburrell (Chaplain) on Sep 01, 2004 at 17:56 UTC | |
|
Re: Confusing Use of Time
by Old_Gray_Bear (Bishop) on Aug 31, 2004 at 22:27 UTC | |
by dReKurCe (Scribe) on Aug 31, 2004 at 23:19 UTC |