use strict ;
use warnings ;
use Data::Dumper ;
$_ = qq~
[img]aa[/img]
[img]bb[/img] [img]bb[/img]
文字
[img]cc[/img] [img]cc[/img] [img]cc[/img]
ddddd
[img]cc[/img] [img]cc[/img] [img]cc[/img] [img]cc[/img]
~;
# use split maybe more clear : depends on you
#my @data = grep { length } split /(\s*\[img\]\S+\[\/img\]\s*)/ , $_ ;
#print Dumper \@data ;
# method 1 : keep the last one :
s/ \[img\] \S+ \[\/img\] (?= \s* \[img\] \S+ \[\/img\] \s* ) //xg ;
print ;
#or
# method 2 : keep the first one : divide into 3 substeps : can control
# more detailedly ,
# step1 : front has not , back has
s/ (?<!\[\/img\]) \s* (\[img\]\S+\[\/img\]) \s* (?=\[img\]) /$1/xg ;
# step2 : front /back both has
s/ (?<=\[\/img\]) \s* (\[img\]\S+\[\/img\]) \s* (?=\[img\]) //xg ;
# step3 : front has , back has not
s/ (?<=\[\/img\]) \s* (\[img\]\S+\[\/img\]) \s* (?!\[img\]) //xg ;
print ;
就是合并连html标签的问题,如:
str=qq~
[img]aa[/img]
[img]bb[/img]
文字
[img]cc[img]
~;
处理之后:
str=
[img]aa[/img]
文字
[img]cc[/img]
;
因为上面[img]标签aa与bb是连续的,中间只有空格或回车,也算是连续的.所以处理后应剩一个.后同的cc因为前面有文字内容和前面的标签分隔开了,而且只有一个就保留下来.
就是处理因为连续重复出现的标签.不知道说清楚了没有..
2009/9/5 Michael Zeng <galaxy2004@gmail.com>:
> 没看懂问题，能说得更清除写么> Yours Sincerely
>
>
> 2009/9/5 蓝天下云层上 <imx365ster@gmail.com>
>>
>> $str=qq~[img]sss[/img]
>> [img]bbb[/img][img]ccc[/img]~;
>>
>> $str=~ ..;
>>
>>
>> 如何把上面连续标签[img]合并成一个[img]sss[/img],只要有两个或两个以上一样的标签出现只保留一个?
>
>
>
> --
> Zeng Hong
>
> >
>
--
Yours Sincerely
Zeng Hong
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
[PerlChina] Re: Perl有没有类似于WebShot的模块？
原来Qt 4.5的文档中也提供了这样的例子的。不过它scale后的图像失真得好严重。需要Image::Magick来代替thumbnail这一
步好点。
感叹一下，在看Qt的文档前，我是先google到了PyQt的同样例子。
On 9月4日, 下午6时54分, PIG <addm...@gmail.com> wrote:
> html2jpg吧
>
> 在 09-9-4，truncatei<trunca...@gmail.com> 写道：
>
>
>
> > 看到你的签名想起了 Perlish
>
> > 在 2009-9-4，下午3:58， Beckheng Lam 写道：
>
> >> Perl乐事 --http://www.perlersh.org
> >> 我的博客 --http://www.perlersh.org/blog.html- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
[PerlChina] Re: 请教如何合并多个连续的[img]标签正则该怎么写啊?
str=qq~
[img]aa[/img]
[img]bb[/img]
文字
[img]cc[img]
~;
处理之后:
str=
[img]aa[/img]
文字
[img]cc[/img]
;
因为上面[img]标签aa与bb是连续的,中间只有空格或回车,也算是连续的.所以处理后应剩一个.后同的cc因为前面有文字内容和前面的标签分隔开了,而且只有一个就保留下来.
就是处理因为连续重复出现的标签.不知道说清楚了没有..
2009/9/5 Michael Zeng <galaxy2004@gmail.com>:
> 没看懂问题，能说得更清除写么
>
>
> 2009/9/5 蓝天下云层上 <imx365ster@gmail.com>
>>
>> $str=qq~[img]sss[/img]
>> [img]bbb[/img][img]ccc[/img]~;
>>
>> $str=~ ..;
>>
>>
>> 如何把上面连续标签[img]合并成一个[img]sss[/img],只要有两个或两个以上一样的标签出现只保留一个?
>
>
>
> --
> Yours Sincerely
> Zeng Hong
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
[PerlChina] Re: 请教如何合并多个连续的[img]标签正则该怎么写啊?
$str=qq~[img]sss[/img]
[img]bbb[/img][img]ccc[/img]~;
$str=~ ..;
如何把上面连续标签[img]合并成一个[img]sss[/img],只要有两个或两个以上一样的标签出现只保留一个?
--
Yours Sincerely
Zeng Hong
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
[PerlChina] Re: 请教：windows下mod_perl的安装方法
On 9月4日, 下午10时36分, Beckheng Lam <bi.ken....@gmail.com> wrote:
> 没使用SVN安装过。
> 怎么不试一下安装ppm3包中的mod_perl2 for apache 2.2的？
>
> 野鸭子 wrote:
> > 我在windows平台下安装mod_perl到apache2.2.11中。
> > mod_perl是使用svn下载下来的最新版本。
> > 请教完整的安装方式，谢谢！
>
> --
> Perl乐事 --http://www.perlersh.org
> 我的博客 --http://www.perlersh.org/blog.html
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
[PerlChina] [Fwd: Books and News from the O'Reilly User Group Program--Sept]
| Subject: | Books and News from the O'Reilly User Group Program--Sept |
|---|---|
| Date: | Tue, 1 Sep 2009 09:08:52 -0700 |
| From: | |
| To: |
If you cannot read the information below, click here.
Forward this annoucement to a friend
  | |||
| |||
  | |||
O'Reilly Media, Inc. 1005 Gravenstein Highway North, Sebastopol, CA 95472 (707) 827-7000
http://oreilly.com/ | http://ug.oreilly.com/
Forward this announcement: http://post.oreilly.com/f2f/9z1z5csqsuf53gn60nibgs2mlpnshvk4b940qfao1bg
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
博文
