perl学习笔记1(perl语言入门 作者:randal L)

2016-12-13 19:29:34来源:CSDN作者:g370490076k人点击

我的版本5.18.2 perl -v
所用ide是textwrangler
电脑:Mac os10
这是我的笔记,给自己看的
手上没这本书的就不要看了
学习一门语言最好的方法就是老老实实的把书上的例子打一遍

第@2个例子

#!/usr/bin/envperl #让编辑器知道perl在那个地方能找到perl的编辑器 25页 定位perluse 5.010; #使用了5.10版本的say功能,不用输入/n换行符了say "Hello World! "  ;
#!/usr/bin/envper1  #是l不是1

输出 Hello World!#这里envperl是用来定位perl解释器所在,用来移植到别的电脑运作不出问题

/a 响铃 mac声音很小
第@3.1个例子

#!/usr/bin/perluse 5.010;say "Hello World! " . '' . "wo"; #.就相当于python的,号 用于连接 这里连接了一个空格'' ,空格两边用.把两边的连接起来

输出:Hello World! wo #中间有空格

第@3.2个例子

#!/usr/bin/perluse 5.010;say "Hello World! " . '' . "/n";

输出是:

Hello World! #多了一个空白行

第@5个例子

#!/usr/bin/perluse 5.010;$fred = 'hello';say 'my name is $fred';

输出是:

my name is $fred

bonus:在终端上不小心输入了

say 'my name is $fred'  ;

电脑输出了音频
然后我就玩起来了

say fuck you ass

第@6个例子

#!/usr/bin/perluse 5.010;$fred = 'hello';$n = 3;say "my name is $fred s " ;

输出:my name is hello s
第@6.1个例子
如果$freds靠在一起了
输出:

my name is 

第@6.2个例子

#!/usr/bin/perluse 5.010;$fred = 'hello';$n = 3;say "my name is $n ${fred}s " ;

只有这样加上{}后面紧跟什么都不用管 可以输出

my name is 3 hellos 

第@12个例子

#!/usr/bin/perl$count = 0; #这一行可以去掉,因为变量初始值perl自定义为undef,随着具体情况变化为0或者空while($count < 10){    $count += 2;    print "count is now $count /n"; #依次打印}

第@14个例子

#!/usr/bin/perl$madonna = <STDIN>; #如果你想体验else得输出undef,把右边的值换成undefif ( defined($madonna)){    print "The input was $madonna";}else{    print "No input available/n";}

第#2.4个练习 #第一章没有练习

#!/usr/bin/perl$input1 = <STDIN>; #分两行写入,就这样弄$input2 = <STDIN>;$cheng = $input1 * $input2;print "the total numeber is $cheng /n";

更好的写法

#!/usr/bin/perlprint "please input some num: ";$input1 = <STDIN>;print "please input another num: ";$input2 = <STDIN>;$cheng = $input1 * $input2;print "the total numeber is $cheng /n";
#!/usr/bin/perlprint "please input some string: ";$string = <STDIN>;print "please input some num: ";$num = <STDIN>;print "the string is"." $string" x $num ;

没打到我的预期,为什么是三行,而不是一行

#!/usr/bin/perlprint "please input some string: ";chomp($string = <STDIN>);print "please input some num: ";chomp($num = <STDIN>); #搞定,加入chomp就好了$a = ("$string" x $num );print "the string is $a /n" ;

第@15个例子

#!/usr/bin/perl@array = 5..9;print "@array/n";pop(@array);print "@array/n";push(@array, 0);@qe = qw{1..10};print "@array/n";print "@qe /n";shift(@array);print "@array/n";unshift @array , @qe; #注意不能用""包裹,否则出错,可以用()包裹 注意是英文输入法下的符号print "@array/n";

列表和数组的区别
列表()
数组@
数组储存变量,而列表可以独立存在

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台