[Perl]可否实现使用一条语句实现这样的模式替换？

fibbery

[Perl]可否实现使用一条语句实现这样的模式替换？

my $str="{abcd}";#以{}括起来的字符串，必须以"{"开始以"}"结束。
if($str匹配并替换)
{
   #此时$str应该等于"abcd"
   
}
当$str="{abc}d"等等时则不进行匹配替换，即上面的if语句中"$str匹配并替换"为false。
这样的替换可否实现？即：通过一个if语句既实现条件匹配判断又同时实现匹配的替换。

flw

用 s/// 就可以了：

1. my $str = '{abcd}';
   
2. 
   
3. if ( $str =~ s/^\{(.*)\}$/$1/ ){
   
4.     print $str;
   
5. }
   
6. else{
   
7.     print "failed!\n";
   
8. }

复制代码

fibbery

太好了，果然能够实现！谢谢flw

lei8c8

Here comes my stupid method

#!/usr/local/bin/perl -w

use strict;

my $str = q/{abcd}/;
my $first        = substr($str, 0,1);
my $last         = substr($str, -1);

if ($first eq '{' && $last eq '}') {
        substr($str, 0, 1) = "";
        substr($str, -1) = "";
        print "$str\n";
}
else {
        print "error";
}

lei8c8

Here comes my stupid method

#!/usr/local/bin/perl -w

use strict;

my $str = q/{abcd}/;
my $first        = substr($str, 0,1);
my $last         = substr($str, -1);

if ($first eq '{' && $last eq '}') {
        substr($str, 0, 1) = "";
        substr($str, -1) = "";
        print "$str\n";
}
else {
        print "error";
}

shucho

我觉得flw的比较好

fibbery

原帖由 lei8c8 于 2006-9-29 10:28 发表
Here comes my stupid method

我只想用一条语句，否则，我可以这样做：

1. 
   
2. if($str=~m/^\{.+\}$/)
   
3. {
   
4.    $str=substr($str,1,length($str)-2);
   
5.    ....
   
6. }

复制代码

flw

原帖由 fibbery 于 2006-9-29 11:18 发表


我只想用一条语句，否则，我可以这样做：

1. 
   
2. if($str=~m/^\{.+\}$/)
   
3. {
   
4.    $str=substr($str,1,length($str)-2);
   
5.    ....
   
6. }

复制代码

1. if ( $str =~ m/^\{(.+)\}$/ ) #注意圆括号
   
2. {
   
3.     $str = $1; #这样试试
   
4.     ...
   
5. }

复制代码

fibbery

原帖由 flw 于 2006-9-29 11:27 发表

1. if ( $str =~ m/^\{(.+)\}$/ ) #注意圆括号
   
2. {
   
3.     $str = $1; #这样试试
   
4.     ...
   
5. }

复制代码

是的，在你的第一个启发中，我用了最后你给我的方法，在使用中直接使用了$1。Perl的灵活性有的时候是人很兴奋，有的时候也让人很头痛！

ulmer

原帖由 fibbery 于 2006-9-29 08:59 发表
[Perl]可否实现使用一条语句实现这样的模式替换？

my $str="{abcd}";#以{}括起来的字符串，必须以"{"开始以"}"结束。
if($str匹配并替换)
{
   #此时$str应该等于"abcd ...

Hi,

here is 一条语句 FU:
$str = ($str =~/{(\w+)}/) ? $1 : "";

refards, ulmer