Perl 智能操作符 比较 数组 和 标量 无法成功 (问题)

panxinming90

如题：


请问是什么问题！

珞水的大叔

回复 1# panxinming90


    奇怪啊，我按照你的代码测了一下，能显示Yes啊。要不把你的代码贴上来，一起看看

panxinming90

代码如下：

1. #!/usr/local/bin/perl -w
   
2. 
   
3. use strict;
   
4. use 5.010;
   
5. 
   
6.         my $str = "10";
   
7. 
   
8.         my @strs = qw/ 9 10 11 /;
   
9.         say "Yes" if @strs ~~ $str;

复制代码

[root@54 scripts]# /usr/local/bin/perl -v

This is perl 5, version 12, subversion 1 (v5.12.1) built for i686-linux

Copyright 1987-2010, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

[root@54 scripts]#

黑色阳光_cu

5.12要写
$str ~~ @strs

而不能写
@strs ~~ $str

panxinming90

回复 4# 黑色阳光_cu


    测试 OK， thank you !

珞水的大叔

难怪了，我的是5.10的，

1. say "Yes" if @strs ~~ $str;

复制代码

能出结果

flw

回复  panxinming90


    奇怪啊，我按照你的代码测了一下，能显示Yes啊。要不把你的代码贴上来，一起 ...
珞水的大叔 发表于 2010-10-20 09:52

你不嫌无聊，还替他当抄写员？

我认为凡是在论坛上发代码截屏的都是SB。

珞水的大叔

回复 7# flw


    我只是比较好奇，我记得前几天我还试过我的可以，为什么他的不行

wxlfh

的确，论坛上发代码最好是文本，否则人家还得替你敲代码，不太尊重人哟。