搜索特定的字符串模式并递归地将其替换为小写

Question

我必须在文件中递归搜索包含 Aaa*.c 的字符串并将其替换为 aaa*.c 。

我在一个包含特定模式的目录中有数百个文件（这个 .c 也可以是字符串的扩展名或字符串之间的扩展名），我必须用小写替换这样的字符串

我正在尝试使用 awk '{print tolower($0) 或 tr 但无法搜索特定模式并在此处应用。

谢谢

Answer 1

由于您将 Perl 放入标签列表中，因此这里有一个 Perl 解决方案

perl -pe "s/(\S+\.c)\b/\L$1/g" myfile > newfile

如果您想就地编辑文件（并丢失原始文件）

perl -pie "s/(\S+\.c)\b/\L$1/g" myfile

---

要重命名当前目录中的所有 *.c 文件，请写入

perl -e "rename $_, qq(\L$_) for glob '*.c'"

---

要递归地执行此操作子目录，执行此操作

perl -MFile::Find -e "find sub{ rename $_, qq(\L$_) if /\.c$/i }, '.'"

Answer 2

您可以使用 sed 来实现此目的。

(echo AaA.c; echo bGb) | sed '/\.c$/y/A-Z/a-z/'

输出：

aaa.c
bGb

Answer 3

此处，如果脚本将使用现有文件创建新文件，但带有 *.c 的文件将替换为小写字母。

#!/usr/bin/perl
use strict;
my $file='originalfile.txt';
open(CMD,  "<$file") or die "$!";

my $str;
while(<CMD>) {

    if($_ =~ /\.c$/){

        $str.=lc($_);
    } else {
        $str.=$_;
    }

 }
 print $str;
 close(CMD);
 my $file2='newfile.txt';
 open(CMD,  ">$file2") or die "$!";
 print CMD $str;
 close(CMD);

请告诉我上述内容是否符合您的需求。

Answer 4

这可能对你有用：

echo -e "Aa.c bB.b CC.c\ndD.d EEE.ca Ff_gG.c" | sed 's/\S*\.c\>/\L&/g'
aa.c bB.b cc.c
dD.d EEE.ca ff_gg.c

Answer 5

听起来您几乎想重命名文件。如果是这样，您可以按如下方式执行：

find -name 'Aaa*.c' -type f | perl -nle'
   my $o=$_; my $n=lc($_);
   next if $n eq $o;
   if (-e $n) {
      warn "$o -> $n: Rename failed: Already exists\n";
   } elsif (!rename($o, $n)) {
      warn "$o -> $n: Rename failed: $!\n";
   }
'

或者仅使用 Perl，

perl -MFile::Find::Rule -e'
   for my $o (
      File::Find::Rule->name("Aaa*.c")->file->in(".")
   ) {
      my $n=lc($_);
      next if $n eq $o;
      if (-e $n) {
         warn "$o -> $n: Rename failed: Already exists\n";
      } elsif (!rename($o, $n)) {
         warn "$o -> $n: Rename failed: $!\n";
      }
   }
'

Answer 6

 echo "Aa.c bB.b CC.c" | perl -ne 's/\b(\w+)(?=\.c)\b/lc $1/eg;print;'