sorry , 现在才知道qw 不能内插， 记得以前可以的
qw/ $a $b / 都是没用的， qw只接受 literal 直接量
改成print File::Spec -> catfile ( $a , "${b}_2" ) ; 就通过了，
为啥 $a 不用引号呢，
2009/9/16 cnhack TNT <[email protected]>
> qw 不会做变量内插的操作的， qq 会，但是qq不会像 qw 那样按空格分隔返回包含多个元素的列表, 而请参看 perlop 中 Regexp
> Quote-Like Operators 章节中对于 qw 的描述
>
> 在你这个例子里，还是用 ($a, $b, $c ...) 这种方式吧：-）
>
>
> 2009/9/16 Michael Zeng <[email protected]>
>
>> catfile 不是接受数组元素么
>>
>> 按理 qw/ a b / = ( "a" , "b") 啊
>>
>>
>>
>>
>> 2009/9/16 cnhack TNT <[email protected]>
>>
>> qw// 本身就没那个功能，你得用 qq//;
>>>
>>> 2009/9/16 Michael Zeng <[email protected]>
>>>
>>> 怎么感觉catfile 接受参数数别挑剔？， 下面几种 都有点问题：
>>>>
>>>> #!/usr/bin/perl
>>>>
>>>> use strict ;
>>>> use warnings ;
>>>>
>>>> use File::Spec ;
>>>>
>>>>
>>>> my $a = 'ccc' ;
>>>> my $b = 'ddd' ;
>>>> print File::Spec -> catfile ( qw/ $a $b / ) ; # 得到 $a/$b : my god
>>>> , 为什么不变量替换呢？
>>>>
>>>> 编译失败：
>>>> print File::Spec -> catfile ( $a , $b_2 ) ;
>>>>
>>>> 编译失败：
>>>> print File::Spec -> catfile ( $a , ${b}_2 ) ;
>>>>
>>>> 只有这一种是对的：
>>>> print File::Spec -> catfile ( $a , $b ) ; 但是没法对 $a , $b进行微操作，
>>>>
>>>> 感觉catfile 只支持 , 分割参数，而且不能带一些变量变化，真是太弱了吧？
>>>>
>>>>
>>>> perl 5.10 和5.8 都这样，win32 或unix ,
>>>>
>>>>
>>>>
>>>> --
>>>> Yours Sincerely
>>>> Zeng Hong
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>> --
>> Yours Sincerely
>> Zeng Hong
>>
>>
>>
>
> >
>
--
Yours Sincerely
Zeng Hong
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到 [email protected]
要退订此论坛，请发邮件至 [email protected]
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
