作者sweetwords (米虫三號)
看板Perl
標題[請益] 問一段程式,不知道我解讀是否正確 ._.
時間Mon Jul 28 15:44:22 2008
我想問的是以下程式碼部分黃色跟綠色,我的解讀是
黃色部分
當 $rolec 變數符合 $contributorPattern 時候,就把
$rolec 裡面的內容丟進去 @insert_rolec 這個陣列內,
不是的話就先用 $rolec_string 先用 : 串起來
到綠色部分
再把 $rolec_string 第一個 : 先去掉,然後後續每一個 : 隔開後,把內容
再丟進去 @insert_rolec 陣列裡面。
不知道這樣解讀是否正確,感請大家指教 ._.?
-----------------------------------------------------程式部分
for(迴圈){
if(判斷式)
{
if($num_ins==$num_insc)
{
$rolec =~ s/'/\\'/g;
$rolec_string .= ":".$rolec;
}
else
{
if($rolec=~/$ContributorPattern/)
{
$rolec =~ s/'/\\'/g;
push @insert_rolec,$rolec;
}
else
{
$rolec =~ s/'/\\'/g;
$rolec_string .= ":".$rolec;
}
}
}
$rolec_string =~ s/^://g;
push @insert_rolec,split (/:/s,$rolec_string);
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.225.159.204
※ 編輯: sweetwords 來自: 61.225.159.204 (07/28 15:51)
推 salagadoola:看來是這樣沒錯。符合的就直接裝進@insert_rolec, 07/31 12:43
→ salagadoola:不符合的就先暫存起來等最後再一起裝進@insert_rolec 07/31 12:44
→ sweetwords:感謝樓上 :D 07/31 22:55