col2kv ()
{
    perl -F\\t -lane 'BEGIN{ $i=shift; @h=split q(,), shift; print STDERR join qq(\t), @h } %k=map { @{[split(q(:), $_)]}[0,1] } split q(, ), $F[$i]; print join qq(\t), map { $k{$_} } @h' $*
}

$ echo 2010Q1:H, 2007:Y, 2009:Y| col2kv 0 2006,2007,2008,2009,2010Q1,2010Q2 2>&1| row2col
2006
2007    Y
2008
2009    Y
2010Q1  H
2010Q2

$ typeset -f group_by_in_perl
group_by_in_perl ()
{
    perl -F\\t -lane 'BEGIN{$group_by=shift; $sum_by=shift} END { print for map{ join qq(\t), $_, $sum{$_}} keys %sum } $sum{join qq(\t), @F[eval($group_by)]} += $F[eval($sum_by)]' $*
}

@echo off
perl -e "use Win32::Clipboard; use DBIx::XHTML_Table; Win32::Clipboard::Set(DBIx::XHTML_Table->new(q(dbi:Oracle),qq(@ARGV))->exec_query(eval <STDIN>)->modify(table=>{border=>1, bordercolor=> q(#888888), cellspacing=>0})->output())"

I praise you, Lord , for being my guide. Even in the darkest night, your teachings fill my mind.

http://bible.us/Ps16.7.CEV

To make a translation of perldoc, use the tool named po4a

[jjiang@fedora14 ~]$ pmvers Locale::Po4a::TransTractor

0.41

[jjiang@fedora14 ~]$ po4a-gettextize --help-format

List of valid formats:

  - dia: uncompressed Dia diagrams.

  - docbook: DocBook XML.

  - guide: Gentoo Linux's XML documentation format.

  - ini: INI format.

  - kernelhelp: Help messages of each kernel compilation option.

  - latex: LaTeX format.

  - man: Good old manual page format.

  - pod: Perl Online Documentation format.

  - sgml: either DebianDoc or DocBook DTD.

  - texinfo: The info page format.

  - tex: generic TeX documents (see also latex).

  - text: simple text document.

  - wml: WML documents.

  - xhtml: XHTML documents.

  - xml: generic XML documents (see also docbook).

[jjiang@fedora14 ~]$ perldoc -l perlretut

/usr/share/perl5/pod/perlretut.pod

[jjiang@fedora14 ~]$ po4a-gettextize -f pod -m $(perldoc -l perlretut) | tee perlretut.po | wc -l

5155

[jjiang@fedora14 ~]$ vim perlretut.po

…

#. type: =head1

#: /usr/share/perl5/pod/perlretut.pod:1

msgid "NAME"

msgstr "名称"

#. type: textblock

#: /usr/share/perl5/pod/perlretut.pod:3

msgid "perlretut - Perl regular expressions tutorial"

msgstr "perlretut - Perl 正则表达式指南"

#. type: =head1

#: /usr/share/perl5/pod/perlretut.pod:5

msgid "DESCRIPTION"

msgstr "简介"

#. type: textblock

#: /usr/share/perl5/pod/perlretut.pod:7

msgid ""

"This page provides a basic tutorial on understanding, creating and using "

"regular expressions in Perl.  It serves as a complement to the reference "

"page on regular expressions L<perlre>.  Regular expressions are an integral "

"part of the C<m//>, C<s///>, C<qr//> and C<split> operators and so this "

"tutorial also overlaps with L<perlop/\"Regexp Quote-Like Operators\"> and "

"L<perlfunc/split>."

msgstr ""

"这篇文章用来介绍 Perl 正则表达式的解读、编写和使用方面的基础知识。相对于 L<perlre> 中的介绍来说，这篇文章更加侧重于提供一些增补知识。正则表达式，它是 C<m//>, C<s///>, C<qr//> 和 C<split> 这些操作符的主要兴趣所在，因此L<perlop/\"Regexp Quote-Like Operators\"> 和 L<perlfunc/split> 里面也有许多相关的描述。"

…

[jjiang@fedora14 ~]$ po4a-translate -k 0 -f pod -m $(perldoc -l perlretut) -p perlretut.po | less

$ PERLDB_OPTS="NonStop frame=31" perl -dle 'sub abc { return $_[0] + 1 } print join qq(\t), abc(0), abc(1+2)'
Package -e.
in  @=main::abc(0) from -e:1
out @=main::abc(0) from -e:1
list context return from main::abc:
0  1
in  @=main::abc(3) from -e:1
out @=main::abc(3) from -e:1
list context return from main::abc:
0  4
1       4

Wednesday, October 19, 2011

Generosity is a Matter of Faith慷慨也是信心的表现 by Rick Warren

A generous man will prosper and he who refreshes others will himself be refreshed. Proverbs 11:25 (NIV) 好施舍的，必得丰裕； 滋润人的，必得滋润。 箴言 11:25 When you share with others, God shares with you. 当你与他人分享的时候，神也会与你分享。 The world says, “Get everything you can and you will be financially secure.” The Bible says share with others in need and you’ll sow what you reap: “Give and it will be given to you.” (Luke 6:38 NIV) 这个世界的逻辑是“尽可能的攫取，这样你就会富有”，而圣经的原则是要尽可能的与他人分享，这样你就会有丰厚的回报：“你们要给人，就必有给你们的”(路加福音 6:38) God says that when you give to somebody else, you're not throwing it away. It’s an investment in the lives of others. God says the one who gives will gain even more: “He who is kind to the poor, lends to the Lord and He will reward him for what he has done.” (Proverbs 19:17 NIV) 在神的眼中，当你给予别人的时候，并不是在舍弃什么，而是对其他人的生命进行投资。神会对那些慷慨付出的人给予更多回报：“怜悯贫穷的，就是借给耶和华。他的善行，耶和华必偿还”（箴言 19:17） When you see people in need and you give to them, God looks at this as if it were a loan to Him. He says, “I will reward back.” 所以，当你向那些需要的人伸出援手的时候，神会把这看成是对�自己的一次借贷。�就这样想：“我必须偿还他”。 God is always going to take care of you and your needs. Do you believe that is true? Generosity is a matter of faith. Will you take God at his Word? 神总是想要帮助你，满足你的需要。你相信这个道理么？慷慨也是信心的一种表现。你要不要在这个方面顺服神的吩咐呢？