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 answerforeach(@num){print "$name[$_ -1]/n";}