perl 正则 怎么去双引号和空格

cups_book

"2F3-7T71-HT-53G7  "怎么去掉双引号和空格？
要求:
先去双引号，再去空格！

我试过下面的方法，好像是先去首空格，再去尾空格

1. sub trim {
   
2.     my $string = shift;               
   
3.     $string =~ s/^\s+/ /g;
   
4.     print "str-> $string";
   
5.     #$string =~ s/\s+$//;
   
6.    
   
7.     return $string;
   
8. }

复制代码

lhohoz

1. $text = qq("2F3-7T71-HT-53G7  ");
   
2.     $text =~ s/"//g;
   
3.     $text =~ s/\s+//g;
   
4.     print $text;

复制代码

cups_book

lhohoz 发表于 2013-05-31 12:59

$text =~ s/\s+//g;

是不是匹配了开始和结束的空格(^和$)?

cups_book

lhohoz 发表于 2013-05-31 12:59

$text =~ s/"//g;


可以直接写双引号？


双引号没有对应的结束的双引号。。。不久乱了？

cups_book

lhohoz

回复 3# cups_book


    是的，不管出现在开头，中间还是结尾只要出现空格就匹配

cups_book

windows系统。
那如果字符串里还包含不可见的换行符，怎么去掉？


空白元字符：
\s   匹配空白符，如 空格、制表符和换行符
\n   匹配换行符或行末符
\r   匹配回车符
\t   匹配制表符
\f   匹配进纸符

lhohoz

回复 7# cups_book


    能举个例子么

cups_book

回复 8# lhohoz


   $str_in=~s/\r+//g;

代号：军刀

1. sed -r 's/"//g;s/\s+//g'

复制代码