打印出：智能匹配結(jié)果

spritesu

請(qǐng)問(wèn)大神們：
小駱駝：智能匹配與given-when結(jié)構(gòu)的例子

use 5.010;
if ( @array ~~ %hash ) { ... }

@array中至少一個(gè)元素匹配 %hash的鍵
我想打印出來(lái)匹配項(xiàng) 應(yīng)該怎么辦？ 匹配項(xiàng)存在什么特定數(shù)組里面了嗎？我要打印什么呢？是$_嗎?
如果我想打印匹配項(xiàng)中 @array中的元素并顯示第幾個(gè)元素 和 %hash中的鍵并顯示相應(yīng)的值。我應(yīng)該如何寫(xiě)腳本呢？

望高手賜教

只是一個(gè)紅薯

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use strict;
   
4. use warnings;
   
5. my @a=qw(a b c d e f g h i);
   
6. my %h=(
   
7.     cc=>1,
   
8.     vv=>2,
   
9.     bb=>3,
   
10.     d=>4,
    
11.     ad=>5,
    
12.     f=>6,
    
13. );
    
14. printf "%5s %8s %5s",'第幾個(gè)元素','匹配項(xiàng)','值'."\n";
    
15. foreach my $i(0..$#a){
    
16.     if(exists $h{$a[$i]}){
    
17.         printf "%4s %10s %9s",$i+1,$a[$i],$h{$a[$i]}."\n";
    
18.     }
    
19. }

復(fù)制代碼

spritesu

嘿嘿謝謝你啊 不過(guò)沒(méi)咋看懂 菜鳥(niǎo)級(jí)的
不過(guò)我試了一下 果真好用�。。。�
回復(fù) 2# 只是一個(gè)紅薯


   

spritesu

只是一個(gè)紅薯 發(fā)表于 2013-07-29 15:16

這個(gè)"%5s %8s %5s"是什么作用呢？
我看小駱駝上說(shuō)  %s能限制字符串長(zhǎng)度 是這作用嗎、
字符串長(zhǎng)度為什么是5 8 5 呢

只是一個(gè)紅薯

自己看輸出調(diào)的....回復(fù) 4# spritesu


   

rubyish

謝謝,學(xué)習(xí)了