请教Perl语言中的问题

cyinchina · 发表于 2015-9-2 10:51:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

小弟刚学习perl语言，有个问题问一下:
foreach $field=(@fields) {
         $field=~ s/\+//g; {
         if ( $field=~ /w=\d+/)
         s/( $field)/$1u/g;
         }
上面的这个程序主要是将w=1转换成w=1u。现在想将w="16*200"转换成w="16*200u" 写了下面的程序，但是实现不了
foreach $field=(@fields) {
         $field=~ s/\+//g; {
         if ( $field=~ /w=/"\d+\*\d+\"/)
         s/( $field)/$1u/g;
         }
有没有高手可以解决这个问题啊

skipper123 · 发表于 2015-9-2 18:07:43

foreach $field=(@fields) {
         $field=~ s/\+//g; {
         if ( $field=~ /w=\"\d+\*\d+\"/)
         $field=~s/w=\"(\d+\*\d+)\"/w="$1u"/g;
         }

kirank · 发表于 2015-10-3 14:40:55

thanks

[求助] 请教Perl语言中的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

站长推荐 /1