使用perl 匹配文件关键字后进行批量修改文件名字。

发布网友发布时间：2022-05-06 08:56

共3个回答

热心网友时间：2023-10-08 21:43

每次先打开一个文档，匹配居住地址：后面的字就行了。然后在里面写一个system语句，用shell在perl程序里面改。
希望我说的对你有帮助。

热心网友时间：2023-10-08 21:43

@files = <*.txt>;
for $f(@files)
{
open($h, $f) || next;

while(<$h>)
{
chomp;
last if (/居住地址:(.*)/){$d = $1;}
}
close($h);
rename $f, "$d.txt";

}追问谢谢你的回答。
脚本运行后还有问题。
请帮忙在看看。
(Global symbol "@files" requires explicit package name at as.pl line 3.
BEGIN not safe after errors--compilation aborted at as.pl line 3.)

热心网友时间：2023-10-08 21:44

find2perl . -name '*.txt'|perl|perl -MFile::Slurp -MFile::Copy -lne 'read_file($_) =~ /居住地址：\s*(\S+)/;move($_,$1);'

使用perl 匹配文件关键字后 进行批量修改文件名字。

使用perl 匹配文件关键字后进行批量修改文件名字。