perl里如何重命名名称带^M的目录？

001qilei001

举例：aaa^M
其中^M是一个dos格式字符，在shell终端里，是这么打出来的“ctrl+v，然后enter回车”。

在shell里，
mv aaa^M aaa;
重命名操作成功。



在perl里，
`mv aaa^M aaa`;
重命名操作无法成功。会报错。怎么解决？





谢谢回复！

戴尔卡耐基

usr/bin/perl-w

rename 'aa^M' => 'aaa';

戴尔卡耐基

usr/bin/perl-w
rename 'aaa^M' => 'aaa';

戴尔卡耐基

usr/bin/perl-w
rename 'aaa^M' => 'aaa';
or system 'mv aaa^M aaa';

戴尔卡耐基

可以使用以下语句，互相切磋！
#!usr/bin/perl-w
rename 'aaa^M' => 'aaa';
or system 'mv aaa^M aaa';

戴尔卡耐基

可以使用以下语句，互相切磋！
#!usr/bin/perl-w
rename 'aaa^M' => 'aaa';
or system 'mv aaa^M aaa';

001qilei001

1. [qilei@localhost test]$ mkdir aaa^M
   
2. [qilei@localhost test]$ mkdir aaa1^M
   
3. [qilei@localhost test]$ mkdir aaa2^M
   
4. [qilei@localhost test]$ ls
   
5. 1.pl  aaa?  aaa1?  aaa2?
   

复制代码

利用下述perl脚本，发现只有

1. rename 'aaa2^M' , 'aaa2';
   

复制代码

能达到要求。谢谢戴尔卡耐基提供思路。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. `mv aaa^M aaa`;
   
6. system 'mv aaa1^M aaa1';
   
7. rename 'aaa2^M' , 'aaa2';
   

复制代码

再次强调，其中^M是一个dos格式字符，在shell终端里，是这么打出来的“ctrl+v，然后enter回车”。
利用ls命令会把特殊字符^M显示为?；如果cd TAB键不全，会发现目录仍然是aaa^M。