一個替換模式匹配的問題

flyfeel

應樓下要求，描述的再詳細點。
my $str = "' ” ""' It's ok(\"adc\")dfafd  '""  “ ' ";
#字符串前后可能有不確定個數(shù)的單引號雙引號和空格。(雙引號還用可能為中文的全角)

如何用~ s///替換獲取紅色部分？？等于是掐頭去尾。紅色部分內(nèi)含的單引號雙引號保持原樣。
這個表達式該如果寫？？
$str =~s///;

[ 本帖最后由 flyfeel 于 2009-10-14 12:23 編輯 ]

flw

這不是一個正確描述的問題。

yashiro_lj

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $str = qq{' ” ""' It's ok(\"adc\")dfafd  '""  “ ' };
   
7. $str =~ s/^([^a-zA-Z]*)//g;
   
8. $str =~ s/([^a-zA-Z]*)$//g;
   
9. print $str;

復制代碼

HongLian3

呵呵，先掐頭，再去尾。

Lonki

\W