Perl的重命名：盖茨,比尔 – >比尔盖茨

发布时间：2020-12-16 06:09:16 所属栏目：大数据来源：网络整理

导读：假设我有一个名为GATES,Bill.jpg的文件,我想将它们全部重命名为Bill Gates.jpg.我可以抓住这两个字 rename 's/^(.*?),(.*?)./$2 $1./g' * 要更改案例,有一些Perl的功能： $lower = lc("aBcDe"); # $lower is assigned "abcde" $upper = uc("aBcDe"); # $up

假设我有一个名为GATES,Bill.jpg的文件,我想将它们全部重命名为Bill Gates.jpg.我可以抓住这两个字

rename 's/^(.*?),(.*?)./$2 $1./g' *

要更改案例,有一些Perl的功能：

$lower = lc("aBcDe");  # $lower is assigned "abcde" 
$upper = uc("aBcDe");  # $upper is assigned "ABCDE"
$lower = lcfirst("HELLO");  # $lower is assigned "hELLO" 
$upper = ucfirst("hello");  # $upper is assigned "Hello"

我试着利用它们：

rename 's/^(.*?),(.*?)./$2 ucfirst($1)./g' *

但它不起作用.

解决方法

您需要将“e”(eval)标志添加到正则表达式的末尾,否则将不会执行该函数.这意味着s ///表达式的整个第二部分必须是有效的Perl表达式(而不是有效的字符串)：

rename 's/^(.*?),(.*?)./"$2 " . ucfirst(lc($1)) . "."/ge' *

(另请注意字符串中的额外空间$2)

有关此标志的更多信息,请参阅perlre文档.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

Perl的重命名：盖茨,比尔 – &gt;比尔盖茨

解决方法

Perl的重命名：盖茨,比尔 – >比尔盖茨