Perl（二）

最新推荐文章于 2022-11-29 18:28:55 发布
最新推荐文章于 2022-11-29 18:28:55 发布
阅读量113 收藏 1
点赞数 1
分类专栏： Perl 文章标签： perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Roy_Allen/article/details/120835950
版权

这里写目录标题

条件语句

  • 和大多数语言一样，熟悉格式就好了
    $a = 20;
if( $a < 20 ){
    # 布尔表达式为true时执行
    print "a 小于 20\n";    
}elsif( $a == 30 ){
    # 条件为true时执行
    print "a 的值为 30\n";
}else{ 
    # 布尔表达式为false时执行
    print "a大于20\n";
}

$a=2;
unless( $a < 20 ){	# 和if相反
    # 布尔表达式为 false 时执行
    printf "a 大于等于 20\n";
}elsif($a==2){
	# 条件匹配时执行
    print "a=2\n";
}else{
    # 无匹配项时执行
    print "给定的条件为 true\n";
}
  • Switch
    use Switch;	# yum install perl-CPAN
 
$var = 10;
@array = (10, 20, 30);
%hash = ('key1' => 10, 'key2' => 20);
 
switch($var){
   case 10           { print "数字 10\n" }
   case "a"          { print "字符串 a" }
   case [1..10,42]   { print "数字在列表中" }
   case (\@array)    { print "数字在数组中" }	# 什么都能case
   case (\%hash)     { print "在哈希中" }
   else              { print "没有匹配的条件" }
}
  • 三元运算符，简化if语句
    $name = "Roy";
$favorite = 10;

$status = ($favorite > 60) ? "帅哥" : "不帅";
print "$name - $status\n";	# Roy-不帅

循环

  • while循环
    $a = 10;

# 执行 while 循环
while($a < 20){
   print "a 的值为 : $a\n";
   $a = $a + 1;
}
# do...while
$b = 10; 
do{
   printf "b 的值为: $b\n";
   $b = $b + 1;
}while( $b < 15 );
  • until
    $a = 5;

until($a > 10){	# 条件不成立执行，直到...
   print "a 的值为 : $a\n";
   $a = $a + 1;
}
  • for
    for( $a = 0; $a < 10; $a = $a + 1 ){	#  也可以 $a++
	# 和C语言类似
    print "a 的值为: $a\n";
}
  • foreach
    @list = (2, 12, 36, 42, 51);
# 和python的 for in 类似
foreach $a (@list){
    print "a 的值为: $a\n";
}
  • 循环可以嵌套

运算符

  • 算术运算符
    • 加减乘除取余求幂，和其他语言一样
  • 比较
    • == != > < >= <=
    • <=>左小于右返回-1，大于右返回1，相等返回0
    • 也可用lt gt le ge这些表示，l表示小于，g表示大于，e表示等于
  • 赋值运算符
    • = += *= /= -= %= **=
  • 位运算
    • & | ^ ~与/或/异或/取反
    • << >>左移/右移
  • 逻辑运算符
    • and or not
    • && ||，C风格
  • 引号运算
    • q{abcd}：为字符串添加单引号
    • qq{abcd}：添加双引号
    • qx{abcd}：添加反引号
  • 其他
    .：连接两个字符串
    ++/--：自增自减

函数

  • 和大部分语言类似
    sub Hello{
   print "Hello, World!\n";
}

Hello();	# 调用
# vim shift+a 光标移到最后并insert
# linux
  • _代表传入的全部参数，不必定义形参
    sub Average{
    $n = scalar(@_);	# 参数个数
    # 也可以使用 $_[0访问具体参数
    $sum = 0;
    foreach $a (@_){
		$sum += $a;
    }
    print "平均值:", $sum/$n, "\n";
}

Average(10,20,30);	# 20
  • 同时传入标量和数组，会合并
    sub List{
    my @list = @_;	# 这个my有什么用？
    print "my list: @list\n";
    print "$_[1]\n";	# 1	传入时就合并了
}

$a = 10;
@b = (1,2,3,4,5);

List($a, @b);
  • 传入哈希时，它将复制到 @_中，哈希表将被展开为键/值组合的列表
    sub Hash	{
    %h1 = @_;	# 键/值组合的列表 哈希的列表形式，本质还是会解释成哈希
    print %h1,"\n";
    print $h1{'name'},"\n";
    print "--------\n";
}
%hash = (-name=>'roy', -age=>18);

Hash((-name=>'roy', -age=>18));
Hash(('name'=>'roy', 'age'=>18));
Hash(%hash);
Hash('a', %hash);	# roy18-namea-age 乱了
  • 返回值：如果没有使用 return 语句，则子程序的最后一行语句将作为返回值
    sub Return{
    return $_[0] + $_[1],"\n";
}
print Return(1,2);
  • 你应该发现了函数名习惯使用大写字母开头
  • 当我们传入多个哈希或者数组会被合并，失去了参数的界限，这需要使用引用解决
  • 之前函数定义中使用了my，用于申明私有变量，可以理解成其他语言中的局部变量
    sub My_Func{
    my $var = 18;
    print $var,"\n"; 
}

My_Func();sub My_Func{
    my $var1 = 18;
    print $var1,"\n";	# 18
    $var2 = 19;
    print $var2,"\n"; # 19 全局都可以用
}

My_Func();
print $var1,"\n";	# 啥也没有
print $var2,"\n";	# 19
# 这个和python就是相反的
# python默认是局部的，使用全局需要global声明一下
  • local，为全局变量提供临时值
    $string = "Roy";

sub Func{
    local $string;	# 用local申明一下，类似python中的global，但是不影响外部变量值
    $string = "Allen";
    print "$string\n"
}
Func();

print "外部：$string\n";
    • 既然不用全局变量，内部用my新定义一个局部的不久好了吗？这样显得多余
    • 其实他的作用主要体现在：使用local的函数中调用的其他函数也会使用这个临时值
    $string = "Roy";

sub Func{
    local $string;	# 用local申明一下，类似python中的global，但是不影响外部变量值
    $string = "Allen";
    print "$string\n";
    Func2();
}

sub Func2{
    print "func2: $string\n";
}

Func();
    • 当我们需要这个函数接口乃至其调用的函数所使用的全局变量都发生改变，就可以使用local赋一个临时值！
    • 还是一个作用域的小tip
  • 静态变量，使用state申明
    use feature 'state';

sub State{
    state $count = 0;
    print "$count\n";
    $count++;
}
for (1..4){	# for 循环的简写形式
    State();
}
    • 静态变量只能在函数中创建和使用
    • 静态变量的作用
      • 隔离：全局变量和静态变量都是静态存储，全局变量在各个源程序中都有效，但静态静态变量仅限于定义的那个源文件中
      • 持久性：我们希望函数中局部变量的值在函数调用结束之后不会消失，在下一次调用该函数时，局部变量的值仍然存在。可以使用static声明；静态局部变量只在其被声明的代码块中是可见的
  • 有些函数在调用时会根据上下文（等号左侧类型）返回对应值
    # 标量上下文
my $datestring = localtime( time );
print $datestring,"\n";

# 列表上下文
($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
printf ("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);	# 使用占位符需要用printf

引用

  • 引用就是指针
  • 引用时标量类型
  • 可以指向变量、数组、哈希表（也叫关联数组）甚至子程序，可以应用在程序的任何地方
    -变量引用
    • 在变量名前加\，可以得到变的引用
    $scalarref = \$foo;     # 标量变量引用
$arrayref  = \@ARGV;    # 列表的引用 数组
$hashref   = \%ENV;     # 哈希的引用
$coderef   = \&handler; # 函数引用
$globref   = \*foo;     # GLOB句柄引用
  • 匿名数组引用
    $aref= [ 1,"foo",undef,13 ];		# 就是使用标量接收数组
  • 匿名哈希引用
    $href= { APR =>4, AUG =>8 };
  • 匿名函数引用
    $coderef = sub { print "Runoob!\n" };

取消引用

  • 取消引用可以根据不同的类型使用 $ @ %来取消
    $var = 10;
$r = \$var;	# 引用
# 原来是标量，就使用 $ 取消
print "$var 为 : ", $$r, "\n";	# 10 为 : 10
# 如果不确定原来引用的是什么，可以使用ref()判断引用的类型
print ref($r),"\n";	# SCALAR

@var = (1,2,3);
$r = \@var;
print "@var 为: ",  @$r, "\n";	# 1 2 3 为: 123   @取消引用

%var = ('k1'=>666, 'k2'=>888);
$r = \%var;
print "%var 为 : ", %$r, "\n";	# %var 为 : k2888k1666	
# 哈希不能直接输出
  • 调用引用的函数
    sub PrintHash{
   my (%hash) = @_;
   
   foreach $item (%hash){
      print "元素 : $item\n";
   }
}
%hash = ('name' => 'runoob', 'age' => 3);
 
# 创建函数的引用
$cref = \&PrintHash;
# 使用引用调用函数
&$cref(%hash);	# 相当于取消函数的引用
  • 之前说函数中解决参数合并的问题，传入列表或哈希的引用即可

循环引用

  • 什么时候用？
    my $foo = 100;
$foo = \$foo;
# 会导致内存泄漏

格式化输出

  • Perl 是一个非常强大的文本数据处理语言
  • 看个例子
    #!/usr/bin/perl
 
$text = "google runoob taobao";
format STDOUT =
first: ^<<<<<  # 左边对齐，字符长度为6
    $text
second: ^<<<<< # 左边对齐，字符长度为6
    $text
third: ^<<<< # 左边对齐，字符长度为5，taobao 最后一个 o 被截断
    $text  
.
write
# 输出：
first: google
second: runoob
third: taoba
  • 再来一个例子
    #!/usr/bin/perl
 
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< 	# @或者^都可以开头，空格隔开，后面的变量对应
$name, $age
@#####.##	# 其前面6位，小数点后两位
$salary
===================================
.
 
select(STDOUT);
$~ = EMPLOYEE;
 
@n = ("Ali", "Runoob", "Jaffer");
@a  = (20, 30, 40);
@s = (2000.00, 2500.00, 4000.000);
 
$i = 0;
foreach (@n){
    $name = $_;	# 循环变量
    $age = $a[$i];
    $salary = $s[$i++];	# 先使用再++，在表达式中才有意义（这里也算表达式）
    write;
}
# 输出
===================================
Ali                     20
  2000.00
===================================
===================================
Runoob                  30
  2500.00
===================================
===================================
Jaffer                  40
  4000.00
===================================

特殊变量

  • 特殊变量是阻碍小白看懂代码的一大因素
  • 很多特殊的变量有一个很长的英文名，操作系统变量 $! 可以写为 $OS_ERROR
  • 这里说的很全面，不过我们只需记住一些常用的
    • $_表示循环变量，一般和 foreach 使用

补充

  • 新增一些遇到的知识点
  • ||= // 和=>运算符
    $args{SILENT} ||= 0;	# 如果变量值undef，空字符串""以及0时，都会赋值为0

# => 类似python参数列表中的 : ，指定变量应该是什么值或什么类型
# 只是为了程序的美观和易维护而被使用的
use constant VELAPP_RELEASE       => '/etc/velocity-app-release';	# constant 定义常量

# // 等价于 先使用defined()判断，如果为真则。。。类似三元表达式
my $emails = $args{EMAILS} // '';
# 等价于
my $emails = defined($args{EMAILS}) || '';	# 只有 $args{EMAILS} 未定义才会赋值 ''
  • 严格编码模式
    # 当我们开启这种模式，编码必须遵循一些规范
# 	使用分号; 结尾
# 	使用my申明局部变量
# 	使用our声明全局变量
use strict;
use warnings;
# 正经代码都会开启严格模式！
  • qw()函数，defined()函数
    @list = ("perl","Regular","network","web");
# 可以等价于:
@list = qw(perl Regular network web);

# 检验某个值是否已经定义
my $files = $args{FILES} if( defined( $args{FILES} ) );	# 如果没定义那 $files 也是undef
# 注：空字符串和0 算定义了
  • eq 代表 ==，ne代表!=，做比较判断的
    #.=
$info{$str} .= ";$emails";	# 相当于 +=， 字符串拼接

# m/'/
m 表示匹配
# s/'/\\\\'/g;
s 表示替换
  • sprintf格式化
    # 建议使用单引号包裹字符串，双引号包裹占位符
# 变量中的双引号用\\"转义，单引号会自动转义
$cmd = sprintf('/bin/python /opt/autosupport/tools/asc_send_email.py --subject """%s""" --msg """%s""" --mode "%s"',$subj, $msg, $flag);
  • our，修饰变量，作用域在整个包；相对于my，作用域只在代码块{ }中
    package vxos_common;	# 声明这个包
use strict;
use warnings;

# 严格模式下，声明新的变量必须使用our/my，使用时可以用local私有化，或者直接使用
our $var = 1;
{
	# 直接使用var，说明var肯定是已经定义了的全局变量
    $var = 2;	# 不能再使用our定义，不然会报错，道理很简单！
    print $var, "\n";
}
print $var, "\n";
# 2  2

our $var = 1;
{
	local $var;
    $var = 2;
    print $var, "\n";
}
print $var, "\n";
# 2  1

# 一个文件不能同时用our 和 my声明同名变量
my $var = 1;	# 没有块包裹，作用域就是整个文件中没被块包裹的部分
{
    my $var = 2;	# 这里如果不用my，$var会变成全局变量不报错
    print $var, "\n";
}
print $var, "\n";
# 2  1

{
	$test = 1;
	print $test;	# 这样就会报错，不严格！
}
    • 注：local私有化全局变量，不能定义变量
    • 上面两个例子可以反复尝试就会发现规律：
      • our一般定在文件前面，use下面；可以配合local在块中
      • my只用在函数块中，不能和our重名
Roy_Allen
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
perl 二进制文件读写
stonesharp的专栏
09-02 1万+
use strict; my $gifname = "C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\1.jpg"; my $gifOutname = "d:\\1111.dat";
perl二维哈希
11-05
perl 二维哈希简介 其中有与一维哈希的比较
perl调用外部命令或者脚本，如何取得外部命令或者脚本的返回值（退出值）
Code805772847的专栏
12-25 6420
使用perl调用外名命令有很多方法，这里就不详细讲解。 如有shell脚本a.sh #!/bin/bash echo "script out put" exit 2 有perl脚本test.pl调用a.sh #!/bin/perl -w $output = qx(/usr/local/a.sh); $exitcode = $?; print "output = " .
Perl二维数组用法大全
热门推荐
u013638884的专栏
06-15 1万+
Perl二维数组用法大全 2013-01-07 15:17 1051人阅读 评论(0) 收藏 举报 本文和大家重点讨论一下Perl二维数组的概念和用法，前面的例子里我们创建了包含有固定数据的Perl二维数组，但是如何往其中添加新元素呢？再或者如何从零开始创建一个Perl二维数组呢？本文回味大家一一讲解。 Perl二维数组 最新版本可以从这里获取（POD格式）： h
perl 二维数组的用法实例
语音通讯-软交换asterisk,Freeswitch
10-05 7396
由于Perl的二维数组比较难理解，故下面将使用实例来说明二维数组在Perl 中是如何应用的。     #! /usr/bin/perl -w use warnings; use strict; ##二维数组的建立，访问，参数传递 my @tmp=&GetArrayData(); ##数组作为参数传递给函数 foreach my $rslt(@tmp) {   ##模拟把数组的
perl二进制、十进制、十六进制的表达方式和高位补零方法；十进制和十六进制的转换方法
学而不思则罔，思而不学则殆
07-08 1万+
IC方向，常见的进制表达，一般有二进制、十进制、十六进制。另外，还有高位补零的需求。 mark，以备不时之需。二进制、十进制、十六进制的表达方式qilei@AFAAW-704030720:~$ cat 11.pl #!/usr/bin/perl use warnings; use strict; my $v=9; printf("%d\n",$v); $v=10; printf("%x\n",$v
Perl二维数组
爱飞的蒲公英
07-03 2025
二维数组   1 数组与引用 2 声明的区别 3 访问的区别 4 添加行元素 5 添加列元素 6 访问与打印 6.1 运算符优先级 6.2 访问一个 6.3 遍历 7 切片 1 数组与引用 此处引用相当于C中的指针。 二维数组第一列不存储具体元素而是存储指
perl 二维数组排序
doudou8486的专栏
11-18 2224
<br />use strict;<br /><br />my @list;<br />$list[0][0]="s";<br />$list[0][1]="3";<br /><br />$list[1][0]="d";<br />$list[1][1]="4";<br /><br />$list[2][0]="w";<br />$list[2][1]="2";<br /><br />$list[3][0]="h";<br />$list[3][1]="0";<br /><br />$list[4][0]=
Perl 哈希的排序
parkzx的博客
11-29 1530
perl 哈希排序
Perl读取二进制流文件
mila07的博客
04-13 1080
参考自：https://blog.csdn.net/u011729865/article/details/54575956 open(BIN_FP,"<",“test.bin"); open(HEX_TXT_FP,"<",“test.txt"); while(read(BIN_FP,my $buffer,1)) { my $hex=unpack("H*",$buffer);...
Perl 二维数组教程
01-06 3956
非常简短的（9php.com）一个二维数组教程，由鄙人翻译完成。 最新版本可以从这里获取（POD 格式）： http://svn.perlchina.org/trunk/POD2-CN/lib/POD2/CN/perllol.pod [code]NAME     perllol - 操作数组的（9php.com）数组（二维数组） 说明   声明和访问数组的（9p
plenv:Perl二进制管理器
05-10
plenv-Perl二进制管理器 概要 plenv help # list available perl versions plenv install --list # install perl5 binary plenv install 5.16.2 -Dusethreads # execute command on current perl plenv exec ack # ...
草莓perl安装包下载
06-10
它包括perl二进制文件，编译器（gcc）+相关工具，所有外部库（加密，数学，图形，xml等），所有捆绑的数据库客户端以及对Strawberry Perl的期望。 在Linux和大多数类似UNIX的系统（包括Mac OS X）下，perl与系统...
Strawberry Perl
08-08
Strawberry perl是用来代替perl的，因为perl在安装的时候十分麻烦，所以这里使用Strawberry来代替...它包括perl的二进制、编译器gcc相关的工具、所有扩展的库、所有的数据库客户端以及你所期望从strawberry获取的操作。
HTKModelConvert:Perl 脚本用于在 HTK 和 HTS 中将二进制模型转换为文本模型
07-04
Perl 脚本用于在 HTK 和 HTS 中将二进制模型转换为文本模型 #作者信息 作者：帅江 邮箱： 日期：20141229 ＃笔记 Perl 脚本还需要额外的文件：config 和 empty.hed（这是空的） bmmf2mmf.pl 类似于 convert.pl ...
Perl 二十四小时搞定
03-03
该书属于入门级别，有兴趣的朋友可以下来看看
Perl语言教程
03-29
Perl 一般被称为“实用报表提取语言”（Practical Extraction and Report Language）， 虽然有时被称做“病态...展到第二个。 那就是为什么“Perl” 没有所有字母都大写。 没必要争论那一个正确， Larry 两个都认可。
perl参考大全第二版
05-30
perl开发大全第二版，带书签，内容清晰，值得下载。。。。
perl编程第二版
09-27
perl编程的经典教程，第二版，由Larry Wall, Tom Christiansen, & Randal Schwartz编写。
perl print
最新发布
08-19
在Perl编程语言中，`print`是一个用于输出内容的内置函数。它可以将指定的内容...第二个示例通过打开文件，并将文本内容写入该文件，然后关闭文件。 请注意，在Perl中，字符串末尾的`\n`表示换行符，用于换行输出。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Roy_Allen

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值