Chinaunix

标题: [Perl]可否实现使用一条语句实现这样的模式替换？ [打印本页]
作者: fibbery    时间: 2006-09-29 08:59
标题: [Perl]可否实现使用一条语句实现这样的模式替换？
[Perl]可否实现使用一条语句实现这样的模式替换？

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

  3. if ( $str =~ s/^\{(.*)\}$/$1/ ){
  4.     print $str;
  5. }
  6. else{
  7.     print "failed!\n";
  8. }
复制代码
作者: fibbery    时间: 2006-09-29 09:59
太好了，果然能够实现！谢谢flw
作者: lei8c8    时间: 2006-09-29 10:24
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    时间: 2006-09-29 10:28
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    时间: 2006-09-29 11:10
我觉得flw的比较好
作者: fibbery    时间: 2006-09-29 11:18
原帖由 lei8c8 于 2006-9-29 10:28 发表
Here comes my stupid method


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

  2. if($str=~m/^\{.+\}$/)
  3. {
  4.    $str=substr($str,1,length($str)-2);
  5.    ....
  6. }
复制代码
作者: flw    时间: 2006-09-29 11:27
原帖由 fibbery 于 2006-9-29 11:18 发表


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

  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    时间: 2006-09-29 15:25
原帖由 flw 于 2006-9-29 11:27 发表

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

是的，在你的第一个启发中，我用了最后你给我的方法，在使用中直接使用了$1。Perl的灵活性有的时候是人很兴奋，有的时候也让人很头痛！
作者: ulmer    时间: 2006-09-29 15:41
原帖由 fibbery 于 2006-9-29 08:59 发表
[Perl]可否实现使用一条语句实现这样的模式替换？

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


Hi,

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

refards, ulmer
作者: fibbery    时间: 2006-09-29 15:58
嗯，重在（）



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2