Perl 小骆驼 学习笔记001

学习使用Perl 起因是因为bioinformation。不过bioinfformation的东西自己还做不了，目前就Perl小骆驼书中的内容，做些介绍。

 

在第二章标量数据 中，比较重要的内容是字符串中的标量变量内插 。

#! usr/bin/perl -w $what="brontosaurus steak"; $n=3; print"fred ate $n ${what}s./n";

 

 结果为：fred ate 3 brontosaurus steaks.

语句中使用${what}  内插bronotosaurus steak，然后后面加上一个s。

 

chomp 是每次输入时都要加上的一句，用于移除结尾换行符。

 

书后练习题有答案，答案的做法都比较巧妙，自己做得就没有什么好方法，还是C语言时的老思路。注意第三个课后练习要判断半径的大小。

 

#xiti_3 $pi=3.141592654; print"please input the radium/n"; chomp($radium=<STDIN>); if($radium <= 0){ print "radium is ".$radium." so the result is 0/n"; }else{ print 2*$radium*$pi."/n"; }

第三章列表与数组 注意建立内容为数字的列表 用@array=(1..100)，pop push shift unshift是常用命令，foreach结合$_用处广。

reverse @array <---这样用是不对的，要写成@array=reverse@array

标量上下文和列表上下文要分清，$n=@array会得到列表元素的个数 ，($abc)=something <----这是一个列表上下文 ，注意（）。

清空数组可以写成@array=();

书后习题中的第二题目的就是理解标量上下文列表上下文

#xiti_2 @name=qw(fred betty barney dino wilma pebbles bamm-bamm); print "input number from 1 to 7:/n"; chomp(@num=<STDIN>); $i=0; while ($num[$i]){ print "@name[$num[$i]-1]"; $i +=1; } print "/n"; #####a better answer foreach(@num){ print "$name[$_ -1]/n"; }