一：基础

1：安装perl

print "Hello , world!\n";

#!/usr/bin/perl

print 1.2;

print 2.000;

print -3;

print -1.2E22;

 

print 12_321_435;#数字，方便查看

 

print o377; #八进制

print oxff; #十六进制

print ob11111111;#二进制

 

print 2+2;

print 2-1.2;

print 1.2 - 3.3;

print 1/3; #内部使用双精度计算

print 1.0/3;

print 1/2.0;

 

print 10%3;

print 3**3;

 

2)：字符串（使用utf8编码，文件也须要保存为utf8格式）

#!/usr/bin/perl 

use utf8;                             #使用utf8字符集

binmode(STDIN, ':encoding(utf8)');      #使用utf8输入

binmode(STDOUT, ':encoding(utf8)');     #使用utf8输出

binmode(STDERR, ':encoding(utf8)');     #使用utf8输出错误

 

print 'gbz is good\n';                  #使用单引号的字符常量

print "gbz is good\n";                  #使用双引号的字符常量

print "\x{2744}";                       #双引号的常量自动转义

 

#perl中的操作符跟据运算符号判断须要的是什么类型的值，并会自动转换

print "he" . " gg\n";                   #.连接符

print "he" * 5 ."\n";                   #*算数运算，把he转为数字为0

print "33he" * 2 . "\n";                #33he转为数字为33

print "he" x 4.8;                       #x字符串复制倍数

 

print "he" . 3 * 4 ;                    #先算数运算，在字符运算

 

3):打印错误信息

#!/usr/bin/perl -w      打印简单错误信息

use diagnostics;          #打印详细错误信息

 

#!/usr/bin/perl

use utf8

 

$age = undef;

$age2 = undef;
print $age += 1; #与数字运算时，表示0
print "gbz" . $age2 . "gbz";   #与字符运算时，表示空串

print defined(undef);    #判断是否为undef，是：空，否：1

 

$name = "gbz"; #变量名要有意义

$name_length = length($name); #包括字母下划线等

print $name;

print "${name} is size : $name_length\n";       #字符串中引用尽量使用${}

 

$ord_name = ord($name);   #一个字符转换为码值

print $ord_name . "is " . chr($ord_name);  #码值转字符

use utf8;
#字符比较符：eq,ne,lt,gt,le,ge
#数字比较符：==,!=,< ,> ,<=,>=
print '1' eq '1';   #字符串比较，true 返回1
print '2' eq '1';   #字符串比较，false 不返回
print 1 == 1;       #数字比较
print 2 == 1;

$name = '\n';
if(''|0|'0'|$name){ #假：空，数字0，字符0
print 'true';
}else{
print 'flase';
}

$line = <STDIN>;  #用户输入流，以回车结束
if($line eq "\n"){
print "this is blank!\n";
}else{
print "not blank: $line";
}

chomp($line);    #去掉末尾回车符，返回1，否则返回0
chomp($line2 = <STDIN>); #先去掉回车，再赋值给变量
print $line2;
$line3 = <STDIN>;
print chomp $line3; #perl方法可以不用括号

$count = 0;
while($count < 10){
    $count += 2;
    print "${count}\n";
}

6）：列表和数组

use utf8;

 

$list[0] = 1;  #数组从0开始
$list[1] = '2'; #可以存放不同类型的值
$list[100] = 100; #创建了101个元素，中间的值为undef
print $list[0] . '--' . $list[100] . '--' . $list[50] . '--';
print $list[1.22];  #下标去掉小数
print $list[-1];    #最后一个

print "\n";
$list = 111;
print $list; #与数组同名的变量，与数组是不相关的两个变量
print $list[-22];

($array11,$array12,$array13) = (1,2,3);  #列表创建及赋值
($array21,$array22) = (1..6); #..范围操作符，把前两个元素赋值
$array3 = qw ( 1 2 3 ); #使用qw 创建数组
$array4 = qw / 1 2 3 4 '1'/;
print $array11; 
print $array22;
print $array4; #返回最后一个元素

@array = (1.2..5.6); #小数会转换成整数
print @array; #@表示整个数组
print pop @array;  #取出末尾一个元素
push @array,1..3;  #把1，2，3放到@array末尾
print @array;
print shift @array; #取出第一个元素 
unshift @array,1;   #把1放到开头
splice @array,1,2,qw(22); #从索引1开始，取出两个元素，用22替换

$_ = '44'; #$_是perl的默认变量，是全局变量
foreach $_ (@array){ #在循环中$_是局部变量，与全局变量占用不同的存储空间
     print $_ . "\n";
}  
print $_;#循环外打印的是全局变量的值

print reverse 1..6; #倒序
print sort 5..10,'ss',' ',"\n"; #unicode码值顺序

7）：map（哈希）

@k = keys %map;     #得到所有key

open CONFIG, '<io';

while (<CONFIG>){

    chomp;

    print $_;

}

        open my $log_fh, '>','io.txt' or die "error : $! \n";  #打开文件，有错误会报错

        print {$log_fh} "gbz";   #输入到文件中

        while (<$log_fh>){  #读取，'>' 换成 ‘<’

            chomp;

            print $_;

        }