regex - 通过 Perl 更改文件名

Question

已关闭。此问题需要 debugging details 。目前不接受答案。

---

编辑问题以包含 desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem 。这将有助于其他人回答问题。

已关闭 8 年前。

Improve this question

如何更改文件名，如下所示:SomeCodeFile.extension转换为 C/C++ 表示法:some_code_file.extension 。我想使用 Perl + Find + Regex 来打印这些名称。

Answer 1

您可以使用正则表达式:

perl -e 'for $f (@ARGV) {
             ($n = $f) =~ s/(?<=.)([[:upper:]])/_\l$1/g;
             rename $f, lcfirst $n;
         }' SomeCodeFiles*

• [[:upper:]]匹配大写字母。
• (?<=.)是断言后面的外观，即字母前面有一些东西(我们不想要 _some_code_file.ext )
• \l将以下字母更改为小写(类似于 lcfirst )

请注意，在某些情况下结果可能会令人不快( x_m_l2_j_s_o_n.c 、 u_r_l__validator.cpp )。