关于怎么批量改写文件名

feinumberone

UID: 7224
帖子: 169
积分: 388
在线时间: 1 天 15 小时

1^# feinumberone 发表于 2007-03-01 13:45

关于怎么批量改写文件名

关于怎么批量改写文件名
请问怎么样用perl大量改写文件名，谢谢

还有我想用perl 和MySQL建立数据库，能不能推荐一些初级的书籍，或者网站有教这些的，谢谢

hangring

UID: 45547
帖子: 12
积分: 27
在线时间: 10 分钟

2^# hangring 发表于 2007-03-01 14:09

<Learning Perl 4th Ed.
<Learning Perl 4th Edition>看看，里面有讲操作文件操作的部分，应该有帮助
<Perl DBI>有讲解大部分数据库的连接，和读写大块文本时需要设置的参数等

qh997

UID: 3876
帖子: 52
积分: 119
在线时间: 3 小时

3^# qh997 发表于 2007-03-12 17:53

rename( filename, newfil.
rename( filename, newfilename )
成功返回1，否则返回0
它将覆盖任何已存在的与新文件名同名的文件！

knuolove

UID: 1939
帖子: 125
积分: 287
在线时间: 21 小时

4^# knuolove 发表于 2007-03-13 17:01

可以用File::find--use .
可以用File::find
use File::find;
find(\&wanted,@file);
sub find(
if(/file/){
rename,$_ file;
}
}

ltvxworks

UID: 41911
帖子: 39
积分: 89
在线时间: 2 小时

5^# ltvxworks 发表于 2009-01-01 13:15

[quote]回复给 hangring :.

回复给 hangring : <Learning Perl 4th Ed....

我在文件renamebmptobbb.pl中写了句代码：
opendir(TEMPDIR,"C:/Perl/example/filefolder/");
while($myfile = readdir(TEMPDIR)){
print "$myfile";
#rename($_);
}
怎么可以实现用reanme改文件命名的后缀从.bmp到.xyz呢。

ltvxworks

UID: 41911
帖子: 39
积分: 89
在线时间: 2 小时

6^# ltvxworks 发表于 2009-01-14 22:37

已搞定，perl正则表达式可.
已搞定，perl正则表达式可以解决。