求多种方法 用 正则 清空字符串 里的 非字母 符号 且 把 大写 转 小写！

qq64878641

比如 "abCD*^E@f"
结果要 “abcdef”

jason680

比如 "abCD*^E@f"
结果要 “abcdef”
qq64878641 发表于 2011-04-24 10:06

$ cat lowercase.pl
chomp($_=<DATA>);
print "$_\n";
tr/a-zA-Z\x00-\xFF/a-za-z/d;
print "$_\n";
__DATA__
abCD%^E@F

$ perl lowercase.pl
abCD%^E@F
abcdef

qq64878641

回复 2# jason680


    x00-\xFF  是指 什么？？  
看代码 好像是 非 字母？

jason680

回复  jason680


    x00-\xFF  是指 什么？？  
看代码 好像是 非 字母？
qq64878641 发表于 2011-04-24 11:44

非字母----在本例中,也可以这么说....
正确而言是ASCII全部.

zzy7186

try:

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. while(<DATA>){
   
6.         s/[^\w]//g;
   
7.         print lc($_),"\n";
   
8. }
   
9. __DATA__
   
10. abCD*^E@f
    

复制代码

qq64878641

回复 4# jason680


    ASCII 全部？ 那为什么不会把字母也替换为空？ 字母也在ASCII里面的啊。

黑色阳光_cu

1. my $str = 'abCD*^E@f';
   
2. {
   
3.         no warnings;
   
4.         $str =~ s/([a-zA-Z]+)|./\L$1\E/g;
   
5. }
   
6. 
   
7. print $str, "\n";

复制代码

jason680

回复  jason680


    ASCII 全部？ 那为什么不会把字母也替换为空？ 字母也在ASCII里面的啊。
qq64878641 发表于 2011-04-24 20:55

请再看一遍....
tr/a-zA-Z\x00-\xFF/a-za-z/d;