perl -e"use strict; use warnings; use File::Find; use File::Copy; my $scandir=shift; my $outpath=shift; find(\&update, $scandir); sub update{ if (-f $_) { my $file = $_; $file = uc $file; move $File::Find::name,q($outpath/$file); } } " path/to/files path/to/out/directory
Now that's a good one-liner, although I'd probably just save it as 'upcasemove.pl' or some such :)
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" |
| I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). |
| ** The third rule of perl club is a statement of fact: pod is sexy. |