Perl语言入门笔记 第二章 标量数据

#!/usr/bin/perl -w
=pod
数字：
	perl中的数字全部是以双精度浮点数存储的
	数字很长时特俗写法，当然普通写法更支持：
	61_298_040_283_768
	0377 #八进制
	0xff #十六进制
	0b11111111 #二进制表示
	0x1377_0b77
	0x50_65_72_7c
	oct() #八进制字符串转换成数字，也接收二进制参数
	hex()#字符串十六进制转换成数字
	
	+ - * / %
	/总以浮点数运算
	2**3 = 9 乘方
	编程加上：use utf8;这句
字符串：
	注意：不会像c/c++语言一样自动添加\n
	'hello \'per\\l' 除了'和\需要转义，其他写在单引号里面的都代表它自己，包括换行符
	"lo\"ve\\ me,love my dog!\n"

	\l 将下个字母转为小写
	\L 将它后面的所有字母都转为小写的，直到\E为止
	\u 将下个字母转为大写
	\U 将它后面的所有字母都转为大写的，直到\E为止
	\Q 相当于把它到\E之间的非单词(non word)字符加上反斜线转义
	\E 结束\L,\U和\Q开始的作用范围	
	
	.  点连接字符串得到更长的字符串，两个数字也能连接
	x 小写的x后面接数字，表示字符串会重复几次，如print "fred"x3;
	
数字和字符串之间的转换：
	取决于操作符，+号两边会自动转为数字，.号两边自动转为字符串
	"12fred35" * "3" = 36,"fred"*2 = 0
	
Perl的内置警告信息：
	warnings:
	use warnings;
	warnings能够制定代码的作用范围，比-w更灵活，-w显示全部的警告
	
	-w：
	$perl -w perl_program #运行程序添加-w
	#!/usr/bin/perl -w 
	
	diagnostics:
	use diagnostics;
	使警告信息更为具体
	$perl -Mdiagnostics ./my_program #在需要时添加

变量(variable):
	存储一个或多个值的容器的名称；
	
标量变量：
	存储一个值的变量
	数组和哈希表属于变量，但不是标量变量
	标量变量是美元符开头，$fred,$的意思是取单个值，到时可以看到，$符号取数组中单个元素的情况
	@array; #数组
	$array[1]; #数组中的单个标量
	
变量的命名：
	我的命名原则：
		变量是驼峰写法，如：myArray,myStrLen,函数名称是下划线，如:write_to_ram;

标量赋值：
	等号左边是标量，右边是要赋的值，如:$str = "tell what are you doing"; #后面不会像c语言自动添加\n的

双目操作符：
	和c/c++哪些用法一样，+=,-=,*=,/=,.=,**=,.....	
	
print输出：
	print没有特别指出默认的标准输出，即把结果输出到屏幕上
	如：print "The answer is xxx\n";
		print "The answer is ",6*7,".\n";
		$meal = "brontosaurus steak";
		$barney =  "$meal,dadadida \n"; #$meal在这里以上面的字符串代替
		$barney = $meal . "dadadida\n";
		print $barney; #输出字符串等价:print "$barney";
		#注意上面的全是以双引号包括的
	要是输出时标量后面要直接跟字母下划线等字符时:
		$str = "tianya";
		如不正确写法:
			print "print $strlala\n";#此时的标量是$strlala
		如正确写法：
			print "print $str",".lala\n";
			print "print ",$str,".lala\n";
			print "print ${str}lala\n";
			推荐最后一种正确的写法

代码点：
	创建字符，参考书籍
	
操作符的优先级：
	全敲上的作用是我想看看，perl有多少个操作符
	结合性		操作符
	左			括号，给定参数的列表操作符
	左			->
				++ --
	右			**
	右			\ ! ~ + -
	左			=~ !~  #正则
	左			* / % x
	左			+ - .
	左			<< >>
				具名的单目操作符(-X文件测试；rand)
				< <= > >= lt le gt ge #数字，字符串比较,从头依次比较字母或数字的大小，而不以字符串长度作为参考
				== != <=> eq ne cmp
	左			&
	左			| 
	左			&&
	左			||
				......
	右			?:
	右			= += -= .= ....
	左,=> #哈希表赋值
				列表操作符(向右结合)
	右			not
	左			and
	左			or not
	记优先级没什么作用，不想计算时错误，那就多添加括号呗

if语句：
	if(表达式)
	{
		#you statement	
	}
	elsif(表达式)
	{
		#your statement
	}
	else
	{
		
	}

布尔值：
	perl语言中没有明确的bool值，像其它语言有True，False
	perl中：
		数字0，字符串"",'','0',"0"代表假

标准输入<STDIN>：
	当我们想要从键盘输入自己的数据时，就需要STDIN这个标准输入，它是以\n结束的，就是以回车结束，输入的结果中保存这个\n,一般我们不需要\n,那就需要chomp()函数去掉\n
	chomp($line = <STDIN>); #chomp去掉末尾的\n
	chomp $line; #chomp的括号可以不加，除非去掉括号改变表达式的意义
	chomp只去掉最后一个\n,没有\n则什么都不做
	
while循环：
	while(表达式)
	{
		#your statement
	}

undef值：
	变量没赋值时，它们的值就是undef，但是它像一个墙上草，用到什么地方就是什么，和数字一块操作就表现为0，和字符串一起操作就表现为空字符，但undef既不是数字也不是字符串，它完全是另一种类型的标量值
	编程的时候我们常常不需要初始化标量，就把它当成0或空字符串使用
	
defined函数：
	行输入操作符<STDIN>有时候会返回undef(可惜我还没见到过，可能是我不太理解这个行操作符)
	它的脚注解决了我的疑问：
		一般来说，键盘输入没有"文件结尾"可言；不过，此输入也可能是由文件重定向而来的。另外，用户也有可能按下系统转义的"文件结尾"按键序列。
	用法；
		$madonna = <STDIN>;
		if(defined($madonna)) #如果是undef返回假，否则返回真
		{
			print "The input was $madonna";
		}
		else
		{
			print "No input available\n";
		}

=cut

$hex1 = 0xff;
$strHex1 = "0x55";
$strOct1 = "023";
print $hex1,"\n";
print hex($strHex1),"\n"; #正确
print oct($strHex1),"\n"; #正确
print hex($strOct1),"\n"; #错误
print oct($strOct1),"\n"; #正确

print 'good good study,day day up\n';#print 'good good study,day day up\\n';输出是一样的，最后末尾输出都是\n
print "\n";
print "fred"x3,"\n";

system("pause");