Think about Loose Coupling | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
I guess you'd have to replace the line
map { my ( $d, $m, $y ) = /(\d+)/g; [ $_, "$y$m$d" ] } by something like map {[$_, -M $_]} However, currently I'm not often using these functions, so of course you should test it first, not that you end up keeping the oldest instead of the newest backup... In reply to Re^3: Delete all but the most recent backup file
by soonix
|
|