一个替换模式匹配的问题

flyfeel

应楼下要求，描述的再详细点。
my $str = "' ” ""' It's ok(\"adc\")dfafd  '""  “ ' ";
#字符串前后可能有不确定个数的单引号双引号和空格。(双引号还用可能为中文的全角)

如何用~ s///替换获取红色部分？？等于是掐头去尾。红色部分内含的单引号双引号保持原样。
这个表达式该如果写？？
$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