作者dryman (dryman)
看板CodeJob
標題Re: [討論] 修改CSV格式 請問這樣值多少錢?
時間Thu Dec 1 21:26:08 2011
※ 引述《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)
1F：→ shadowjohn:我也覺得在現場三分鐘就可以解決的事，作啥鬼ui= = 12/01 21:40
2F：→ x000032001:XDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 12/01 21:42
3F：→ shadowjohn:哈...也難怪我常被當好人免費用 Orz 12/01 21:42
※ 編輯: dryman 來自: 220.136.180.46 (12/01 22:15)
4F：→ dryman:fix typo :P 12/01 22:15
※ 編輯: dryman 來自: 220.136.180.46 (12/01 22:16)
5F：推 kivencco:這篇跟上一篇比，精簡許多…上篇跟本又臭又長 12/01 23:13
6F：推 shadowjohn:perl真是博大精深，簡而有力 12/01 23:15
7F：推 plover:結果裝 perl 三小時 XD 12/01 23:44
8F：推 tvbic:這才叫寫程式嘛 上面那篇寫一堆 根本不知道在幹嘛 12/01 23:57
9F：→ ericinttu:重點應該是"值多少錢"吧, 我覺得錢比較重要. 12/02 00:06
10F：→ ericinttu:唬得了人, 讓人心甘情願付出$$, 怎麼寫是其次. 12/02 00:07
11F：→ shadowjohn:我怎聯想到 棋靈王的三谷 跟 圍棋店老板 ...好吧~ 12/02 02:40
12F：→ dryman:perl -wln -E '@arr=(/\b\d+\b/g); say for @arr' in > out 12/02 08:17
13F：→ dryman:one liner版XD 12/02 08:17
14F：推 lucas01:perl is good 12/02 08:34
15F：推 beryllite:路過幫推XD 12/02 12:31
16F：→ dryman:樓上原來也有看這板XD 12/02 13:26
17F：推 enthos:perl 確實程式碼比較短,寫得比較快。 12/02 20:05
18F：推 coolpuppy:不得不推一下...兩邊比較起來這篇比較有意義 12/07 22:31