Perl 表达式求助

baobao123

1^# baobao123 发表于 2005-03-19 13:03

Perl 表达式求助
请教个perl正则表达式

想把<>中的所有的空格替换成_

比如

<good guy> good boy <good good guy>

=>

<good_guy> good boy <good_good_guy>
谢谢

cation

2^# cation 发表于 2005-03-19 19:16

$string="<g...
$string="<good guy> good boy <good good guy>"
$string=~s/<(.*?)>/space($1)/eg;

sub space{
my $s=shift;
$s=~s/ /_/g;
}

baobao123

3^# baobao123 发表于 2005-03-20 11:30

thanks a lot...