Изменение имен файлов Perl

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).