Perl入门（一）Perl的基本类型及运算符

season22

　　在学习Perl的基础之前，还是希望大家有空去看以下Perl的简介。百度百科
　　一、Perl的基本类型
　　Per的基本类型分为两种：数值型和字符串型。
　　数值型可细分为

• 整数型。如123。
  
• 浮点型。如123.123、0.123456。
  
• 科学计数型。如1.23E2、1.23e2。
  
• 大数值类型。如1_156_123_585_123。
  

　　字符串型

• 字符串。如“123456”，‘123’，qq(this is a string too!)
  

　　二、用变量存储基本类型值
　　Perl定义变量很简单。格式为：$变量名  （PS：Perl的程序员肯定是想钱想疯了）；引用的方式也很简单：$变量名。
　　下面给出一个简单的示例：

#!user/bin/env perl -w
$int = 123456;
$float = 123.456789;
$sci_notation1 = 1.2E10;
$sci_notation2 = 1.2e10;
$big_num = 1_789_854_654_894_654_355_223;
$string = "this is a string";
printf "int value :$int\n";
printf "float value :$float\n";
printf "sci_notation1 value :$sci_notation1\n";
printf "sci_notation2 value :$sci_notation2\n";
printf "big_num value :$big_num\n";
printf "string value :$string\n";
　　输出结果如下

int value :123456
float value :123.456789
sci_notation1 value :12000000000
sci_notation2 value :12000000000
big_num value :1.78985465489465e+021
string value :this is a string
　　简单解释一下：

• 科学技术型数值中E不区分大小写
  
• 大数值类型采用“_”进行分隔仅是为了方便阅读，上面采用千分法，你也可以采用万分法，也可以直接不使用“_”
  
• print和printf均为内置的输出函数。如果想要接收键盘输入数据可以采用后面的&#26684;式：$from_key_board = <STDIN>; 从DOS窗口接收输入，存储到$from_key_board中
  

　　注意：

• 如果数据过长，会有精度上的舍入。
  
• 字符类型的表示
  
  
  
  • 可以使用双引号&quot;&quot;,也可以使用单引号'',必须成对出现。
    
  • 当单引号内部内容包含单引号或双引号内部内容包含双引号时，可以采用反斜杠“\”进行转义。如：&quot;Tom said:\&quot;it is rainning outside!\&quot;&quot;.
    
  • Perl提供另外一种字符串表示方式qq代表双引号(not Tencent QQ)，q代表单引号，配合界限符使用。界限符可以使任意非空&#26684;、tab、换行字符。例如：qq(Tom said :&quot;it is raining outside&quot;)。但是不推荐使用数字和字母作为界限符，会造成程序阅读困难.
    
  • 但是也会碰到第二点的问题，如果内部字符创包含界限符，1.成对出现的是允许的，但是会降低可读性。2.使用转义字符。3.界限符那么多，换一个。
    
  
  
  
• 上述printf输出中有引用到之前定义的变量。这种方式仅在“”或pp内部可以使用，其他方式不可。
  

　　三、Perl中运算符
　　多数都和其他语言一样，如果你有一定的语言基础，可以只看红字部分
　　赋&#20540;运算符

• = 赋&#20540;
  
• &#43;=  例如：$num &#43;= 1; 等价于$num =$num&#43;1;
  
• -=  例如：$num -= 1; 等价于$num =$num-1;
  
• *=  例如：$num *= 1; 等价于$num =$num*1;
  
• /=  例如：$num /= 1; 等价于$num =$num/1;
  
• %=  例如：$num %= 1; 等价于$num =$num%1;         #取模，除以那个数取余数
  
• **=  例如：$num **= 2; 等价于$num =$num**2;          #**代表幂，$num的2次方
  
• .=    例如：$str.=“ string” 等价于 $str = $str.&quot; string&quot;；# . 代表连接符，将两个字符串拼接起来
  

　　算术运算符

• &#43;
  
• -
  
• *
  
• /
  
• % 取余数
  
• ** 幂指数 10**2 即10的2次方
  
• &#43;&#43;
  
• --
  
• .  连接字符串，&quot;this is a &quot;.&quot;string&quot; = &quot;this is a string&quot;
  

　　数&#20540;关系运算符

• >      大于
  
• >=    大于等于
  
• <      小于
  
• <=    小于等于
  
• ==    等于
  
• !=     不等于
  
• <=>  大于：1；等于：0；小于：-1；
  

　　字符串关系运算符

• gt      大于
  
• ge     大于等于
  
• lt       小于
  
• le      小于等于
  
• eq     等于
  
• ne     不等于
  
• cmp  大于：1；等于：0；小于：-1；
  

　　逻辑运算符

• &&或and   与      全真则真
  
• || 或or        或      全假则假
  
• ！或not     非       真假假真
  
• xor            异或   同假异真
  

　　位运算

• &       按位与
  
• |        按位或
  
• ~       按位非
  
• ^        按位异或
  
• <<     左移位
  
• >>     右移位
  

　　特殊运算符

• ..         区间表示  如 1..3 等价于 1,2,3
  
• ？：    三目操作符，满足？前条件执行：前内容，不满足执行：后内容
  

　　文件数据运算符

• -r $file 如果$file是可读取的话,返回1的&#20540;
  
• -w $file 如果$file是可写入的话,返回1的&#20540;
  
• -x $file 如果$file是可执行的话,返回1的&#20540;
  
• -e $file 如果$file存在的话,返回1的&#20540;
  
• -o $file 如果$file是被执行才所拥有的话,返回1的&#20540;
  
• -s $file 返回$file的文件大小(bytes)
  
• -f $file 如果$file是正常文件的话,返回1的&#20540;
  
• -T $file 如果$file是文本文件的话,返回1的&#20540;
  
• -B $file 如果$file是Binary文件的话,返回1的&#20540;
  
• -M $file 返回$file文件最后一次更改时间到现在的日期数
  

　　特别注意：

　　1.Perl不刻意强调变量的初始化，如果一个变量没有初始化就进行运算，则会取其默认&#20540;：数字为0，字符串为&quot;&quot;空字符串。
　　2.Perl中字符串可以和数&#20540;进行运算，如果字符串看上去不像个数字，则会用0代替
　　3.千万注意数&#20540;型关系运算符和字符串型关系运算符的区别。数字比较时用数&#20540;关系运算符，字符串比较时用字符串关系运算符。
　　   如果在字符串比较时使用了数&#20540;关系运算符，如： $name=&quot;Jack&quot;;$name == &quot;Tom&quot;;运算的结果总会是1，原因参见 2。
　　（到时候你从数据库里取出几千万的数据别怪我没说啊，等着被项目经理打死吧）
　　4.移位操作中<<与操作系统位数有关，如64位操作系统中 1<<64 =1，每移动64位为一个循环。
　　5.Perl中认为0，空字符串，未定义&#20540;undef为false，其他均为true。
　　6.字符串关系运算中，对两边的字符串从左到右进行按位比较，比较依据Ascii码表顺序
　　7.&& 和and并不完全相同，&&要早于and执行
　　8.逻辑运算符并不是返回0或1，而是返回判断结束前处理条件的结果。如 1&&2 返回2 ，0&&2返回0,1||2返回1。

Perl常用函数
printf：输出函数，用法同c语言中一样；
length：输出包含内容的长度：如length(&quot;asdf&quot;)=4;
chop：去除最后一个字符：chop(&quot;abcd&quot;)=&quot;abc&quot;;
chomp：去除尾部的回车换行：chomp(&quot;abcd\n&quot;)=&quot;abcd&quot;;
substr($string,m,n)：给定字符串，从地m位开始截取n位长度:substr(&quot;Hello&quot;,2,3)=&quot;llo&quot;,计数从0开始，n可省略，即至尾部
&#65279;&#65279;


&#65279;&#65279;