Re: [討論] 修改CSV格式 請問這樣值多少錢?

看板CodeJob作者 (dryman)時間12年前 (2011/12/01 21:26), 編輯推噓8(8010)
留言18則, 11人參與, 最新討論串3/12 (看更多)
※ 引述《deo2000 (800IM)》之銘言: : 小弟最近幫朋友寫了個程式,省去處理大量資料的時間, : 雖然嘴把上說請吃頓飯就好,不過還是很想知道,若去除人情因素的話,值多少錢呢? : 功能: : 1.讀入一個*.txt,內容大概是這樣 : AB 5566 9999 1234 CD 7788 0 455 0 EF 9999 ...... 大約有數萬筆整數 #!/usr/bin/env perl open FILE, $ARGV[0] or die "can't open file $ARGV[0]"; $/=undef; $_=<FILE>; @numbers = (/\b\d+\b/mg); $,="\n"; print @numbers; 三分鐘搞定XD : 2.去除所有空白和非數字,依序保留每組數字 : 3.依序排成下列後輸出 "修改完成.txt" : 5566 : 9999 : 1234 : 7788 : 0 : 455 : 0 : 9999 : .... : 請問,如果在板上發包這樣的程式,值多少錢呢? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.136.180.46 ※ 編輯: dryman 來自: 220.136.180.46 (12/01 21:26)

12/01 21:40, , 1F
我也覺得在現場三分鐘就可以解決的事,作啥鬼ui= =
12/01 21:40, 1F

12/01 21:42, , 2F
XDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
12/01 21:42, 2F

12/01 21:42, , 3F
哈...也難怪我常被當好人免費用 Orz
12/01 21:42, 3F
※ 編輯: dryman 來自: 220.136.180.46 (12/01 22:15)

12/01 22:15, , 4F
fix typo :P
12/01 22:15, 4F
※ 編輯: dryman 來自: 220.136.180.46 (12/01 22:16)

12/01 23:13, , 5F
這篇跟上一篇比,精簡許多…上篇跟本又臭又長
12/01 23:13, 5F

12/01 23:15, , 6F
perl真是博大精深,簡而有力
12/01 23:15, 6F

12/01 23:44, , 7F
結果裝 perl 三小時 XD
12/01 23:44, 7F

12/01 23:57, , 8F
這才叫寫程式嘛 上面那篇寫一堆 根本不知道在幹嘛
12/01 23:57, 8F

12/02 00:06, , 9F
重點應該是"值多少錢"吧, 我覺得錢比較重要.
12/02 00:06, 9F

12/02 00:07, , 10F
唬得了人, 讓人心甘情願付出$$, 怎麼寫是其次.
12/02 00:07, 10F

12/02 02:40, , 11F
我怎聯想到 棋靈王的三谷 跟 圍棋店老板 ...好吧~
12/02 02:40, 11F

12/02 08:17, , 12F
perl -wln -E '@arr=(/\b\d+\b/g); say for @arr' in > out
12/02 08:17, 12F

12/02 08:17, , 13F
one liner版XD
12/02 08:17, 13F

12/02 08:34, , 14F
perl is good
12/02 08:34, 14F

12/02 12:31, , 15F
路過幫推XD
12/02 12:31, 15F

12/02 13:26, , 16F
樓上原來也有看這板XD
12/02 13:26, 16F

12/02 20:05, , 17F
perl 確實程式碼比較短,寫得比較快。
12/02 20:05, 17F

12/07 22:31, , 18F
不得不推一下...兩邊比較起來這篇比較有意義
12/07 22:31, 18F
文章代碼(AID): #1Eru1oXR (CodeJob)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 3 之 12 篇):
文章代碼(AID): #1Eru1oXR (CodeJob)