ページ

2007年12月31日月曜日

【perl】データ間引き

＄ｎ＝０；

ｗｈｉｌｅ（＜ＳＴＤＩＮ＞）｛
＄ｎ＋＋；
ｉｆ（（＄ｎ　％　４）＝＝０）　｛　ｐｒｉｎｔ；　｝　＃４行とばし
｝
投稿者 時刻:

0 件のコメント:

コメントを投稿

登録: コメントの投稿 (Atom)