的Perl編程存儲列值基於另一個列值

Question

我有一樣的文本文件輸入：

Time(1ps) *_sysclock *hy_dvdd_0 *y_vdd18_0 *s_enabled *lpi_clk_0 
========== ========== ========== ========== ========== ========== 
1000000000 1   1   1   11   1   
1000000045 1   1   1   11   0   
1000008365 1   1   1   11   1   
1000009824 0   1   1   11   1   
1000016685 0   1   1   11   0   
1000025005 0   1   1   11   1   
1000033325 0   1   1   11   0   
1000035828 1   1   1   11   0   
1000041645 1   1   1   11   1   
1000049965 1   1   1   11   0   
1000058285 1   1   1   11   1   
1000061832 0   1   1   11   1   
1000066605 0   1   1   11   0 

什麼，我要在這裏做的是： 第二列指示時鐘邊沿和第一列指示時間..我需要測量時鐘頻率。 所以我的要求是，因爲這個腳本取決於我運行腳本時的第一個值，所以當時鍾值從初始值變化時，在上面的例子中初始值是1，所以當它變成0那一次，我想將第1列的值存儲在一個變量中，並且當時鍾值再次變爲1時，我想存儲第1列的值以獲得時鐘脈衝持續時間。

基於此，我想比較這些時間差異與一些預定義的值來比較它。

你能幫我解決這個問題嗎？

感謝所有提前。

預期O/P爲： 我需要它告訴我..的邊緣之間的差像在上面的例子中的輸出：「1000009824」之間 DIFF其中在時鐘邊緣的第一次變化發生。和 「1000061832」，其中時鐘邊沿值再次變爲0，意味着一個完整的時鐘週期。

Answer 1

讓我們假設你有你的輸入進入STDIN。您可能要忽略前兩行：

<> for 1..2; 

然後，您可以在一個行數據的讀取：

my $line = <>;     #read line from STDIN 
my @initial = split(' ', $line); #split on whitespace 

，直到你看到一個變化，你可以閱讀更多的行：

my @final; 
while ($line = <>) { 
    @final = split(' ', $line); 
    last if $final[1] != $initial[1]; 
} 

現在你可以比較時間戳：

my $diff = $final[0] - $initial[0]; 
print "$initial[0] to $final[0] is $diff\n"; 

我建議將行讀入散列表，所以你有真正的列名而不是數組索引......但這取決於你。