如何批量更改文件名大小写
想把一个目录里所有的大写文件名改为小写,请问如何能够实现,多谢了Re: 如何批量更改文件名大小写
想把一个目录里所有的大写文件名改为小写,请问如何能够实现,多谢了#!/usr/bin/perl -w
use strict;
# Open 'find' process to list files recursively with paths
open(FIND, "find |");
while(<FIND>) {
chomp;
next if $_ eq $0; # Don't rename ourself
rename($_, lc($_));
}
close(FIND);
for i in *; do mv $i `echo $i | tr [:upper:] [:lower:]`; done
页:
[1]