$15000 for one line of Perl Code

khandielas

UID: 1557
帖子: 117
积分: 269
在线时间: 19 小时

1^# khandielas 发表于 2008-08-28 11:43

$15000 for one line of Perl Code

去Perl 论坛浏览，看到这个，贴出来，鼓舞一下Perl的爱好者。

Description: I got this from a guru pal. Though once you see it, it seems simple; and I don't doubt TIMTOWTDI. It stores the 'stat's of each file in the BEGIN block and restores them in the END block. As a Perl success story: a very slightly tweaked version (with a more elaborate substitution) did a job at work that our Windows NT contractor quoted us $15,000 to do. Viva la Perl.

perl -pi -e 'BEGIN { %s = map { $_ => [stat $_] } @ARGV} s/foo/bar/g; END { for $f (keys %s) { utime(@{ $s{$f} }[8,9], $f) } }' [files]

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

2^# forlorngenius 发表于 2008-08-28 13:05

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-08-28 15:47

tricky 啊

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2008-08-28 16:51

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

5^# xiaoyu9805119 发表于 2008-08-28 17:06

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

6^# forlorngenius 发表于 2008-08-28 17:19

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

7^# xiaoyu9805119 发表于 2008-08-28 17:31

都是漂过阿

gawk

UID: 1936
帖子: 27
积分: 62
在线时间: 1 小时

8^# gawk 发表于 2008-08-28 22:00

得到这个机会你必须掌握更多的东西

jsz

UID: 24467
帖子: 5
积分: 11
在线时间: 10 分钟

9^# jsz 发表于 2008-08-29 10:33

来漂一下

smonkey0

UID: 42438
帖子: 74
积分: 170
在线时间: 7 小时

10^# smonkey0 发表于 2008-08-29 14:30

很夸张的说,... 改改内容和时间能值这么多钱？