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

[dryman (dryman)]

※ 引述《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)
→ shadowjohn:我也覺得在現場三分鐘就可以解決的事，作啥鬼ui= =
→ x000032001:XDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
→ shadowjohn:哈...也難怪我常被當好人免費用 Orz
※ 編輯: dryman          來自: 220.136.180.46       (12/01 22:15)
→ dryman:fix typo :P
※ 編輯: dryman          來自: 220.136.180.46       (12/01 22:16)
推 kivencco:這篇跟上一篇比，精簡許多…上篇跟本又臭又長
推 shadowjohn:perl真是博大精深，簡而有力
推 plover:結果裝 perl 三小時 XD
推 tvbic:這才叫寫程式嘛  上面那篇寫一堆  根本不知道在幹嘛
→ ericinttu:重點應該是"值多少錢"吧, 我覺得錢比較重要.
→ ericinttu:唬得了人, 讓人心甘情願付出$$, 怎麼寫是其次.
→ shadowjohn:我怎聯想到 棋靈王的三谷 跟 圍棋店老板 ...好吧~
→ dryman:perl -wln -E '@arr=(/\b\d+\b/g); say for @arr' in > out
→ dryman:one liner版XD
推 lucas01:perl is good
推 beryllite:路過幫推XD
→ dryman:樓上原來也有看這板XD
推 enthos:perl 確實程式碼比較短,寫得比較快。
推 coolpuppy:不得不推一下...兩邊比較起來這篇比較有意義