荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: pupilzeng.bbs@bbs.sjtu.edu.cn (火星), 信区: Linux
标 题: Re: 求 Perl表达式一个
发信站: 饮水思源 (Sun Mar 20 12:46:57 2005)
转信站: SZU!news.szu.edu.cn!bbsnews.sdu.edu.cn!SJTU
把这个函数直接写到正则表达式中也可以的
s{<(.*?)>}{my $str = $1; $str =~ s/\s/_/g}ge;
本来我最初是想这样写的
s{<(.*?)>}{$1 =~ s/\s/_/g}ge;
结果说$1是只读的，不能修改，就只好写成了这样了
【 在 earthworm (岁月的童话) 的大作中提到: 】
: 谢谢 Sed很强大的说
: 没法简单的匹配了 现在函数已经完成
: $string="<good guy> good boy <good good guy>";
: $string=~s/(<)(.*?)(\>)/space($2)/eg;
: sub space{
: $s=shift;
: $s=~s/(\s*)/_/g;
: return “<$s>";
: }
: 【 在 EEfpga (SPICE's not spicy:() 的大作中提到: 】
: .................（以下省略）
--
千百万年来，
我一直在努力，
总有一天我会撞上地球的……
※ 来源:·饮水思源 bbs.sjtu.edu.cn·[FROM: 219.228.110.135]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店