[PerlChina] Re: 新人请教一个perl的问题

5.10 还可以用命名捕获：
$abc=~/(?<year>\d{4})-(?<md>\d{2}-\d{2})/ && print "$+{md}-$+{year}"

2009/3/28 figee <wuuter@gmail.com>

可以试下这个：
$a = "<date>1999-02-25</date>";
$a =~ s/(\d{4})-(\d{2}-\d{2})/$2-$1/;
print $a;

xsir317 写道：

> 这个应该是可以的。。。
>
> 彦一 さん可以去看看一些语法入门的书。我上次似乎发过一本 Perl语言入门(第四版).pdf
>
> 2009-03-28
>
>
>
> xsir317
>
>
>
> 发件人： xjdengz
> 发送时间： 2009-03-28  12:36:36
> 收件人： perlchina
> 抄送：
> 主题： [PerlChina] Re: 新人请教一个perl的问题
>
> try:
> s/(\d{4})-(\d{2})-(\d{2})/$2-$3-$1/;
> 2009/3/28 彦一 <kevin_dbcooper@yahoo.com.cn>:
> >
> > 请教各位英雄一个问题，麻烦解答下，谢谢了，题目如下：
> >
> > Here's the PERL syntax of string substitution:
> > VARIABLE =~ s/SEARCH_PATTERN/NEW_STRING/
> >
> > For instance,
> > $a = 'abc';
> > $a =~ s/a/1/; # $a is now '1bc'
> >
> > Here's the question:
> > write a substitution statement(ie. s/SEARCH_PATTERN/NEW_STRING/) so
> > that
> > "<date>1999-02-25</date>" will be updated to "<date>02-25-1999</date>"
> > and
> > "<date>2005-11-03</date>" will be updated to "<date>11-03-2005</date>"
> > >
> >

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---