亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊(cè) 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫
最近訪問板塊 發(fā)新帖
查看: 2573 | 回復(fù): 5
打印 上一主題 下一主題

請(qǐng)問perl如何比較列表 [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報(bào)告]
發(fā)表于 2009-01-10 20:47 |只看該作者 |倒序?yàn)g覽
#! /usr/bin/perl -w

my @a = (1,2,3.345);
my ($a1, $a2, $a3) = @a[0,1,2];
$a1 = 0.00001;
if(@a[0,1,2] == ($a1,  $a2,  $a3)) {
        print "ok";
}



我代碼這樣寫的,我預(yù)想的要求是如果兩個(gè)列表每個(gè)元素對(duì)應(yīng)都相等,那么列表就相等。

但是實(shí)際上上面的代碼之比較了列表的最后一個(gè)元素。

不知道要比較列表的話該怎么寫。

論壇徽章:
0
2 [報(bào)告]
發(fā)表于 2009-01-10 21:23 |只看該作者
no warnings;

my @foo = ('a'..'e');
my @bar = ('a'..'f');

my @sub_foo = @foo[2..6];
my @sub_bar = @bar[2..6];

my %sub_foo = map {$_, 1} @sub_foo;
my @diff = grep {!$sub_foo{$_}} @sub_bar;

print "ok\n" unless defined @diff;


[ 本帖最后由 wertyu 于 2009-1-10 21:26 編輯 ]

論壇徽章:
0
3 [報(bào)告]
發(fā)表于 2009-01-10 21:42 |只看該作者

論壇徽章:
95
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-05 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-17 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-18 06:20:002015亞冠之阿爾艾因
日期:2015-09-18 10:35:08月度論壇發(fā)貼之星
日期:2015-09-30 22:25:002015亞冠之阿爾沙巴布
日期:2015-10-03 08:57:39程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-10-05 06:20:00每日論壇發(fā)貼之星
日期:2015-10-05 06:20:002015年亞冠紀(jì)念徽章
日期:2015-10-06 10:06:482015亞冠之塔什干棉農(nóng)
日期:2015-10-19 19:43:35程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-10-21 06:20:00每日論壇發(fā)貼之星
日期:2015-09-14 06:20:00
4 [報(bào)告]
發(fā)表于 2009-01-10 23:08 |只看該作者

回復(fù) #2 wertyu 的帖子

沒必要構(gòu)造 hash 了,直接一個(gè) foreach 循環(huán)就可以了。

論壇徽章:
95
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-05 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-17 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-18 06:20:002015亞冠之阿爾艾因
日期:2015-09-18 10:35:08月度論壇發(fā)貼之星
日期:2015-09-30 22:25:002015亞冠之阿爾沙巴布
日期:2015-10-03 08:57:39程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-10-05 06:20:00每日論壇發(fā)貼之星
日期:2015-10-05 06:20:002015年亞冠紀(jì)念徽章
日期:2015-10-06 10:06:482015亞冠之塔什干棉農(nóng)
日期:2015-10-19 19:43:35程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-10-21 06:20:00每日論壇發(fā)貼之星
日期:2015-09-14 06:20:00
5 [報(bào)告]
發(fā)表于 2009-01-10 23:18 |只看該作者
原帖由 oyd_admin 于 2009-1-10 20:47 發(fā)表
#! /usr/bin/perl -w

my @a = (1,2,3.345);
my ($a1, $a2, $a3) = @a[0,1,2];
$a1 = 0.00001;
if(@a[0,1,2] == ($a1,  $a2,  $a3)) {

== 給其 operand 提供了 scalar context,而它的左邊 @a[0,1,2] 是 array @a 的 slice,是個(gè) list,同樣 ($a1, $a2, $a3) 也是個(gè) list,而在 scalar context 中,list 返回的是它的最后一個(gè)元素。

BTW,在 scalar context 中, ($a1, $a2, $a3) 也可看作是 comma operator 連接的幾個(gè) scalar value,此時(shí)它也返回最后一個(gè)表達(dá)式的值。

詳見 perldata 的 Slices 和 List value constructors, perlop 對(duì) == 的描述.

論壇徽章:
95
程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-05 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-17 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-18 06:20:002015亞冠之阿爾艾因
日期:2015-09-18 10:35:08月度論壇發(fā)貼之星
日期:2015-09-30 22:25:002015亞冠之阿爾沙巴布
日期:2015-10-03 08:57:39程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-10-05 06:20:00每日論壇發(fā)貼之星
日期:2015-10-05 06:20:002015年亞冠紀(jì)念徽章
日期:2015-10-06 10:06:482015亞冠之塔什干棉農(nóng)
日期:2015-10-19 19:43:35程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-10-21 06:20:00每日論壇發(fā)貼之星
日期:2015-09-14 06:20:00
6 [報(bào)告]
發(fā)表于 2009-01-10 23:21 |只看該作者
原帖由 撒哈拉里的魚 于 2009-1-10 21:42 發(fā)表
http://search.cpan.org/dist/List-Compare/lib/List/Compare.pm

除了這個(gè),還有其他一些模塊也可實(shí)現(xiàn)類似甚至更復(fù)雜的功能。例如 Test::Deep
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào):11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國(guó)互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請(qǐng)注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP