作者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