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