看板 [ Perl ]
討論串[問題] perl 排序
共 6 篇文章
首頁
上一頁
1
2
下一頁
尾頁

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者markpci (markpci)時間17年前 (2008/02/18 11:44), 編輯資訊
0
0
0
內容預覽:
$fname="test.txt";. open(IN,'<'.$fname) || die "open $fname failed!!";. open(OUT,'>'.$fname.'sort') || die "open $fname\_tranOK!!";. while (<IN>). {.
(還有443個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者abliou (Art of Life)時間17年前 (2008/02/07 17:00), 編輯資訊
0
0
0
內容預覽:
假設檔案命名為aa.txt. open f,"<aa.txt";. $_=~/(.*)(?{push @a,$^N}) (.*)(?{push @b,$^N;$max=$^N if $max<$^N})/. while(<f>);. close f ;. print "$a[$n++] $_ ".(

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者onizi1224 (Onizi)時間17年前 (2008/01/31 19:11), 編輯資訊
0
0
0
內容預覽:
獻醜一段. 我不太會用高階或是進階的語法. 所以會有些累贅. 因為有些比較不會程式的同事會看. ㄧ方面也是因為我是新手 請多包含. #!perl/bin/perl. $fname="COPIES_all_new_update_1107";. #$fname="test";. open(IN,'<'.
(還有446個字)

推噓0(0推 0噓 1→)留言1則,0人參與, 最新作者plankton (懶惰毛)時間17年前 (2008/01/31 17:42), 編輯資訊
0
0
0
內容預覽:
想法跟onizi1224大一樣. 讀入檔之後,存成hash的格式,. $hash{aaa}=0.485. 1.找出最大值. @a= sort{$b<=>$a} values %hash;. 2. print 出來. printf "key:$_ value:$hash{$_} ratio:",$ha
(還有29個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者onizi1224 (Onizi)時間17年前 (2008/01/31 10:55), 編輯資訊
0
0
0
內容預覽:
可以先做hash 例如 $key = aaa. $hash{$key} = '0.154'. 丟入hash後 用foreach 將hash 的ker 用sort排序以後列印出來. --. 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 61.67.151.50.
首頁
上一頁
1
2
下一頁
尾頁