Comments on: shell脚本解题4

By: luguo

luguo — Fri, 18 Jul 2008 13:21:35 +0000

第2个：
echo ’2008-01-2007-12′ | perl -ne ‘($a, $b, $c, $d)=split/\-/; print abs(($a-$c)*12+$b-$d), “\n”;’

luguo — Fri, 18 Jul 2008 11:28:13 +0000

或者更简单的：
perl -ne ‘$i= length($_) > 7? 5: length($_)-2; substr($_, 1, $i)=”*”x$i; print;’ test.txt

luguo — Fri, 18 Jul 2008 11:25:48 +0000

Oops! 应该是：perl -ne ‘chomp; $i= length($_) > 6? 5: length($_)-1; substr($_, 1, $i)=”*”x$i; print “$_\n”;’ test.txt

luguo — Fri, 18 Jul 2008 11:24:18 +0000

第1个的perl解法：
perl -ne ‘chomp; $i= length($_) > 6? 5: length($_)-2; substr($_, 1, $i)=”*”x$i; print “$_\n”;’ test.txt