Perl快速入门学习

wget https://www.cpan.org/src/5.0/perl-5.30.0.tar.gz
tar -xzf perl-5.30.0.tar.gz
./Configure -de
make && make test && make install

perl -v
This is perl 5, version 30, subversion 0 (v5.30.0) built for x86_64-linux

perl5.26.2 [switches] [--] [programfile] [arguments]

-e/E "Perl代码"  #直接执行代码
-l
-p #表示对目标文件的每一行进行查找和替换
-i #表示将替换的结果写回到文件之中
-w/W #warning 在程序执行可疑的地方发出警报

#基础示例1
perl -e "print 'This is a Demo'"
This is a Demo

#示例2.命令行替换文件中的文本
perl -p -i -e 's/sysread/read/g' file.txt

#示例2.额外的功能
perl -w script.pl string.txt #string是要被提取的源文本

#读取每一行数据
while($line = <>) {
  #处理$line
}

#!/usr/bin/perl
# Function:计算华氏温度和摄氏温度
$celsius = 30;
$fahrenheit = ($celsius * 9 / 5) + 32;
print "$fahrenheit F, And $celsius ℃\n";

perl demo1.pl
86 F, And 30 ℃

#条件结构
if(条件){
  ...
}else if(条件){
 ...
}else{
  ...
}

#循环结构
while()
{
  last; #停止while循环内的处理跳出循环
}

#!/usr/bin/perl
#FUNCTION: 实现判断语句与while循环
$num1 = 1024;
$num2 = 1;
$sum = 0;

if( $num1 != "" && $num2 != "" )
{
  $add = $num1 + $num2;
  print "$num1 + $num2 = $add\n";
}

while($num <= 100)
{
  $sum = $sum + $num;
  $num++;
}

print "1+..+3+...+7+100 = $sum \n";

perl demo2.pl
1024 + 1 = 1025
1+..+3+...+7+100 = 5050

$variable=~ m/regularExpression/i #来判断一个正则表示是是否能匹配某个字符串;
#整个测试语句作为一个单元返回boolean类型返回TRUE或者FALSE;
m #表示进行整治match匹配;
s #表示进行替换replace操作
/ #斜线表示正则表达式的边界;
/i #该修饰符modifier表示不区分大小写匹配
/g #该修饰符表示全局匹配(global Macth)
/x #表示宽松排列的表达式(free-from expressions)允许我们重新编排这个表达式（大多空白字符会被忽略），增强可读性;
/m #增强的行瞄点(enhanced line anchor),^$将切换到逻辑行模式;

$ perl -E 'if("a\nb\tc" =~ m/\cI|\n/){print "匹配成功"}'
匹配成功
$ perl -E 'if("a\nbc" =~ m/\cI|\n/){print "匹配成功"}'
匹配成功

() #元组匹配成功之后Perl可以用$1 $2 $3 之类的变量来保存相对应的()括号内的子表达式匹配的文本;
(?:....)

(?=pattern) #肯定型顺序环视(positive lookahread)(从左向右)  正向预查(能匹配pattern)
#例如(?=\d)表示如果当前位置 右边字符 是数字则匹配成功；
#例如'Windows (?=95|98|NT|2000)' 能匹配 "Windows 2000" 中的 "Windows" ，但不能匹配 "Windows 3.1" 中的 "Windows"。

(?!=pattern) #否定型顺序环视(negativ lookahread)(从左向右)  负向预查(不能匹配pattern)
#例如(?!=\d)表示如果当前位置 右边字符 不能是数字则匹配成功；
#例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows"，但不能匹配 "Windows 2000" 中的 

(?<=pattern) #肯定型逆序环视(从右向左)查看文本 反向肯定预查与正向肯定预查类似，只是方向相反。注意空格
#例如(?<=\d)表示如果当前位置 左边字符 是数字则匹配成功；(?<=19)99 则匹配1999后面的99
#例如Windows( ?<=95|98|NT|2000|10)能匹配“98/NT/2000/10/Windows”中的“Windows”，但不能匹配“95Windows”中的“Windows”,软件不一定全部支持
perl -l -e '$str="Windows2000  95Windows  2000Windows Windows95";if($str =~ s/Windows( ?<=95|98|NT|2000|10)/NOW/g){print "匹配成功 $str"}'
# 匹配成功 NOW  95Windows  2000Windows Windows95

(?<!pattern) #肯定型逆序环视(从右向左)查看文本;
#例如(?<!\d)表示如果当前位置 左边字符 不能是数字则匹配成功；(?<!19)99 则匹配非1999后面的99,比如这时匹配2099中的99
#例如Windows( ?<!95|98|NT|2000|10)能匹配“95Windows”中的“Windows”  不能匹配“98/NT/2000/10/Windows”中的“Windows”

#!/usr/bin/perl
#function:验证Perl正则表达式进行匹配
#方式1:接受用户输入并且判断校验输入
print "Please Enter a number(Eg:1024):";
$demo = <STDIN>;  #交互式接收用户输入
chomp($demo);  #去掉$demo变量中输入的换行符
# 关键点：注意=~符号后的 m/,匹配成功返回true否则false
if ($demo =~ m/^[0-9]+$/) {
  print "only digits\n"
} else {
  print "not only digits\n"
}


#方式2:精确匹配整数负数以及小数
$demo =~ m/^[-+]?[0-9]+(\.[0-9]*)?$/) #^配置行首 $匹配结尾


#方式3:或者输入摄氏温度或者华氏温度进行转换
printf "Please input 86 F or 30 C:";
$value = <STDIN>;
chomp($value);

#第一个括号: 整个正则表达式保存位$1
#第二个括号: 保存是输入的华氏温度还是摄氏温度保存位$2
if($value =~ m/^([-+]?[0-9]+)([CF])$/)
{
  #重点
  $number = $1; #将输入温度数据保存到变量中
  $type = $2;  #将输入变量的类型保存到变量

  #判断字符串是否相等
  if($type eq "C"){
    $cel = $number;
    $fah = ($cel * 9 / 5) + 32;
  } else {
    $fah = $number;
    $cel = ($fah - 32) * 5 / 9;
  }
  #计算输入两个温度值采用printf函数(与C中函数类似)
  printf "%2.f C And %.2f F\n", $cel, $fah;
} else {
  print "Matching Error!"
}

[root@master perl]# perl demo3.pl
Please Enter a number(Eg:1024):1024bac
not only digits

[root@master perl]$perl -w demo4.pl
Please input 86 F or 30 C : 30C
30 C And 86.00 F

[root@master perl]$perlperl -w demo4.pl
Please input 86 F or 30 C : 86F
30 C And 86.00 F

[root@master perl]$perl -w demo4.pl
Please input 86 F or 30 C : 76F
24 C And 76.00 F

#!/bin/perl
#替换修改文本
#示例1
$string = "this is a demo";
$string =~ s/is/test/gi; #或者直接在源字符上操作(全局替换)
print "$string";

$string = "this is a demo";
$string =~ s/\bis\b/test/i; #或者直接在源字符上操作(只替换一次)
print "$string";

##示例2.保留小数点后的两位
$iee = 12.375000392;
$iee =~ s/(\d+)(\.\d\d[1-9]?)\d*/$1$2/;
print "$iee ";

$iee = 37.500000000925;
$iee =~ s/(\d+)(\.\d\d[1-9]?)\d*/$1$2/;
print "$iee ";

$ perl replace.pl
thtest test a demo
this test a demo

12.375
37.5

#示例1.再perl的cmd中需要对一些字符进行八进制代替比如 ' = \047 ，替换的时候也可以采用\0nm模式
perl -l -e '$str="Window\047s 98";if($str =~ s/\47/\057/g){print "匹配成功 $str"}'
匹配成功 Window/s 98

#示例2./x修饰符重新编排表达式
$text =~ s {
  \b
  (
    username
    \@
    hostname
  )
  \b
}{<a href="mailto:$1">$1</a>}gix

defined($var);  #验证变量是否定义
die "Error Exit!";   #类似于php中的die()函数发出错误信息

perl: warning: Falling back to a fallback locale ("en_US.UTF-8")

#解决方法：
vim ~/.bashrc
export LC_ALL=en_US.UTF-8
. ~/.bashrc  #然后加载该环境变量