523066680

use File::Slurp;
my @t1 = read_file("1.txt");
my $t2 = read_file("2.txt");
grep { chomp } @t1;
$t2=~s/,AA,/",".(shift @t1).","/ge;
print $t2;
复制代码

523066680

回复 14# tigerpower


看到busybox就想起安卓busybox，现在手机安全加强了，解ROOT权限很繁琐（我用小米，刷了开发版系统）
后来发现有个叫 termux 的东西，不需要root，就可以安装/运行 clang nodejs python perl ，特别好用。