CSDN博客

img marcolu

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

发表于2004/7/15 21:38:00  12720人阅读

分类: 自学专区

    终于可以拿到这本大作了。正是由于翻过第二版,因此毫不犹豫的上网购买了这本小骆驼书。不过刚拿到的时候一直怀疑是不是定错书了,因为第二版第一章写的非常漂亮,把一个简单的例子渐渐扩大,最后到一个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]) }
看出区别了吧~~~,呵呵!结合程序先理解一下吧。
第一章的习题也就是让你感受一下这两个例子,因此就不打出来了。以后的习题我会打出来的。

0 0

相关博文

我的热门文章

img
取 消
img