《Perl语言入门》自学笔记－－第一章

终于可以拿到这本大作了。正是由于翻过第二版，因此毫不犹豫的上网购买了这本小骆驼书。不过刚拿到的时候一直怀疑是不是定错书了，因为第二版第一章写的非常漂亮，把一个简单的例子渐渐扩大，最后到一个1，2百行的程序。非常引入入胜，这次想重温却没有机会了。第一章作者完全是在讲一些perl的相关知识。只在最后列出了一个5行的小例子。虽然感觉骤然下降，不过对perl的热情不减，还是需要从头好好看看书来学，而不想每次写教本都乱翻书，结果虽然可以完成任务不过总是记不住。现在下定决心了从头来过。希望能把这本书啃完！
废话少说，开始学习！

    我也不从程序开始，先讲一些学perl的人必须知道的知识。perl的发明人：Larry Wall。这是一个非常热心的人。我一直定着Perl的maillist，常常能看到Larry Wall在回答众多爱好者的问题，而且用语简洁，幽默。相信订maillist的人一定也会深受感动。并且他保证了perl将永远免费！怎么能不支持他和可爱的Perl呢！还需要将的是CPAN，这个Perl社区的“大卖场”。里面包含了Perl的一切的一切：Perl本身的源代码、各个平台上二进制版的Perl、示例、文档、Perl扩展（几乎所有Perl的模块都可以在上面找到）以及关于Perl的消息档案。网址是: http://www.cpan.org/ ，当然我们的linux社区也有他的镜像站点：http://cpan.linuxforum.net/ 。还有最后一点我想罗嗦的，Perl不需要象c，c++, java那样需要编译后才能执行。Perl只需要让他加上可执行权限即可运行你的程序。好了，铺垫就这些，比书简洁多了^_^。
第一章有2个程序，第一个是著名的hello world。我本来不想在这儿写出了，不过为了完整性，就把他也写出来了：

示例1：
#!/usr/local/bin/perl -w
print "Hello,world!/n";
非常简单，真正的程序就一行（第二行）。第一行是每个Perl程序都需要写的。至于perl在你的系统的哪里，可以用which 或者whereis来查找。一般都在/usr/bin/perl或者/usr/local/bin/perl这两个地方。而-w是我自己的习惯。这是一个非常好的参数，他会指出你的程序哪里不规范需要注意的地方。建议你也加上。只有好处没有坏处^_^。第二句我想大家都能够看得懂。(/n是换行得意思）

示例2:
#!/usr/local/bin/perl -w
@lines = `perldoc -u -f atan2`;
foreach (@lines) {
s//w<([^>]+)>//U$1/g;
print;
}
这个例子就很有Perl得味道了。一大堆让你头晕得符号。不想仔细讲解这个例子，因为牵涉太多后面得知识，贴出来只是为了看看程序执行得结果：看看大家得眼睛是不是够厉害^_^。还有一点要指出得是第二行不是单引号，而是反引号，里面可以放入shell得命令！
先来讲讲perldoc这条命令：它是专门用来读出并显示Perl得文档、相关扩展以及实用工具。来看看perldoc -u -f atan2这条命令得执行结果：
bash-2.05$ perldoc -u -f atan2
=item atan2 Y,X

Returns the arctangent of Y/X in the range -PI to PI.

For the tangent operation, you may use the C
function, or use the familiar relation:

sub tan { sin($_[0]) / cos($_[0]) }

最后再来看看程序执行得结果：
bash-2.05$ ./ex1-3.plx
=item atan2 Y,X

Returns the arctangent of Y/X in the range -PI to PI.

For the tangent operation, you may use the POSIX::TAN()
function, or use the familiar relation:

sub tan { sin($_[0]) / cos($_[0]) }
看出区别了吧～～～，呵呵！结合程序先理解一下吧。
第一章的习题也就是让你感受一下这两个例子，因此就不打出来了。以后的习题我会打出来的。