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

TMTOWTDI

s/(\d*)-([^<]*)/$2-$1/

2009/3/29 purl lamp <lamp.purl@gmail.com>:
> 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 访问该论坛
-~----------~----~----~----~------~----~------~--~---