in reply to how to use file::Find ?
First if you want to find the week number :
See DateTime
#!/usr/bin/perl -w use strict; use DateTime; my $date = q{20060911}; my $year = substr( $date, 0, 4 ); my $month = substr( $date, 4, 2 ); my $day = substr( $date, 6, 2 ); print DateTime->new( year => $year, month => $month, day => $day )->we +ek_number;
hth,
PooLpi
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: how to use file::Find ?
by steph_bow (Pilgrim) on Apr 17, 2008 at 12:30 UTC | |
by Anonymous Monk on Apr 17, 2008 at 12:33 UTC |