[PerlChina] Re: 去空格

的确是基本问题，多谢各位放下身段赐教:) 多谢，多谢！
原谅没有集中的时间学，是用到哪查到哪的。


终于有点琢磨出g的意思和perl做替换的工作原理了。

2009/3/31 Michael Zeng <galaxy2004@gmail.com>

请好好学习 learing perl，很多都是基本问题

 

On 3/31/09, Yuan Jiang <sleetdrop@gmail.com> wrote:

-_-

...............

http://perldoc.perl.org/functions/defined.html

2009/3/31 xsir317 <xsir317@163.com>

$teststr = "abc  12 3";

print "teststr bf: $teststr \n";

$teststr =~ s/\s+//g;

print "teststr af: $teststr \n";

 

 

以上代码OK

 

顺便问一下，defined是啥呀

 

 

 

2009-03-31

---

xsir317

---

发件人： yi wang

发送时间： 2009-03-31  17:02:02

收件人： perlchina

抄送：

主题： [PerlChina] 去空格

遇到个奇怪的问题，下面的代码去掉空格不起作用。平台是winxp+active state perl5.8.8

$teststr = "abc  12 3";
print "teststr bf: $teststr \n";
$teststr =~s /\s+// if defined;
print "teststr af: $teststr \n";



$teststr =~s /\s+//; 编译报错
改为
$teststr =~s /\s+// if defined;后替换不起作用。

搜了很多，都没有结果。请问诸位知道这是怎么回事吗？多谢指教！

--
姜源
Yuan Jiang
http://blog.vetcafe.net

--
和你在一起

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---