Question

假设我有一个名为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' *

但它不起作用。

Answer 1

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

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

（还要注意字符串中带有$2）

的额外空格

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

Answer 2

应该是：

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

虽然这并不总是完全适用于Unicode。对于那些错过的少数角落情况，你会想要更像

的东西

rename 's/^(\w)(\w*),\s+(\w+)\./$3 \u$1\L$2./g' *

您可以在这里获得somewhat updated version of the regular rename program。

Perl的重命名：盖茨，比尔 - ＆gt;比尔盖茨

2 个答案: