merlyn@iwarp.intel.com (Randal L. Schwartz) (12/11/90)
In article <PINARD.90Dec10184326@kovic.IRO.UMontreal.CA>, pinard@IRO (Francois Pinard) writes: | I use this: | | #!/bin/sh | # Convert upper case in file names to lower case. | # Copyright (C) 1990 Free Software Foundation, Inc. | # Francois Pinard <pinard@iro.umontreal.ca>, October 1990. | | echo $* \ | | tr " " "\012" \ | | gawk '{ if ($1 != tolower($1)) { print "mv", $1, tolower($1) } }' \ | | sh | | I'm sure there is a one-liner in Perl to do the same :-). Like: perl 'for (@ARGV) {($n = $_) =~ y/A-Z/a-z/; rename($_,$n) unless -e $n;}' * Just another Perl hacker, -- /=Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ==========\ | on contract to Intel's iWarp project, Beaverton, Oregon, USA, Sol III | | merlyn@iwarp.intel.com ...!any-MX-mailer-like-uunet!iwarp.intel.com!merlyn | \=Cute Quote: "Intel: putting the 'backward' in 'backward compatible'..."====/