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. }

復(fù)制代碼

lhohoz

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

復(fù)制代碼

cups_book

lhohoz 發(fā)表于 2013-05-31 12:59

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

是不是匹配了開始和結(jié)束的空格(^和$)?

cups_book

lhohoz 發(fā)表于 2013-05-31 12:59

$text =~ s/"//g;


可以直接寫雙引號？


雙引號沒有對應(yīng)的結(jié)束的雙引號。。。不久亂了？

cups_book

lhohoz

回復(fù) 3# cups_book


    是的，不管出現(xiàn)在開頭，中間還是結(jié)尾只要出現(xiàn)空格就匹配

cups_book

windows系統(tǒng)。
那如果字符串里還包含不可見的換行符，怎么去掉？


空白元字符：
\s   匹配空白符，如 空格、制表符和換行符
\n   匹配換行符或行末符
\r   匹配回車符
\t   匹配制表符
\f   匹配進(jìn)紙符

lhohoz

回復(fù) 7# cups_book


    能舉個例子么

cups_book

回復(fù) 8# lhohoz


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

代號：軍刀

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

復(fù)制代碼