文件测试主要用于查看如文件是否存在、文件大小、文件更新时间等信息。文件测试操作符-e 测试文件是否存在；die "Oops!A file called ‘$filename‘ already exists.\n" if -e $filename;-M 测试文件是否保持持续的更新，比如测试某个程序的日志文件是否保持每一周或两周更新。此处测试的是文件句柄。warn "Config file is looking pretty old!\n" if -M CONFIG>28;-s 测试文件的大小，以字节计算文件大小。 例子：下面测试的是文...
Perl ->符号的主要用法解释Perl ->符号第一种用法，就是解引用。根据->后面跟的符号的不同，解不同类型的引用，->[]表示解数组引用，->{}表示解散列引用，->()表示解子程序引用。例子： $arr_ref=\@array;$arr_ref->[0]访问数组@array的第一个元素。 $hash_ref=\%hash;$hash_ref->{foo}访问%hash的foo分量 $sub_ref=\&test;$sub_ref->(1,2,3)使用参数列表(1,2,3)来调用&test这个子程序。Perl ->符号第二种用法，就是调用类或者对象...
Perl对文件的操作，跟其它的语言类似，无非也就是打开，读与写的操作。 1. 打开文件 #! c:/perl/bin/perl -w use utf8; use strict; use warnings; my $filename = ‘test.txt‘; # 或者用绝对路径,如: c:/perl/Learn/test.txt if(open(MYFILE,$filename)) # MYFILE是一个标志 { printf "Can open this file:%s!", $filename; close(MYFILE); } else{ print "Can‘t open this file!"; } 2. 读取文件 #! c:/perl/bin/perl...
1.文件测试操作符 针对文件和目录的测试操作符: -r/-w/-x/-o: 文件或目录, 对有效的(负责运行这个程序的)用户或组来说是可读/写/执行/拥有 的; 这些测试位会查看文件的权限位, 以此判断哪些操作是允许的, 如果系统使用访问控制列表(ACL), 那么测试就按列表进行判断, 但是只是测试结果只是操作系统的看法, 但是受实际情况限制, 运行的事未必可行, 如空文件运行运行, 但是并没有什么意义. -R/-W/-X/-O: 文件或目录...
1.unless控制结构 类似于独立的else语句; 要么条件为真, 要么执行语句块内的代码; unless(<condition>){code...;} 等价于 if(<condition>){}else{code...;} 也就是当条件为假是执行.unless (0) { print "Hello"; #Hello}2. until控制结构 until就是改装过的while, 区别在于它在条件为假是执行代码块.$i = 2;$j = 10;until($i>$j){ $i++; print "Hello\n"; }3.条件修饰词 为了进一步简化表达, 表达式后面可以接...
一、列表列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。 注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。列表例：复制代码 代码如下: (17, $var, "a string") (17, 26 << 2) (17, $var1 + $var2) ($value, "The answer is $value") 二、数组--列表的存贮 列表存贮于数组变量中，与简单变量不同，数组变量...
▲标量数据和标量变量 标量数据和标量变量是两个完全不同的概念，标量数据表示数据的内容，也就是值；标量变量表示存储数据的容器。说到数据，我们指的是数据本身的内容，也就是值，它被写入内存后就是固定的，无法再改变。但是对于变量，正如其名，我们可以修改其中存储的数据。为了省事，都简单将其统称为标量。 ▲标量分为数字和字符串两种情况，但对于Perl来说，它们是一样的东西，标量在内部是可以相应切换的。
1.单引号和双引号#!/usr/bin/perl print "Hello, world\n"; # 双引号 print Hello, world\n; # 单引号 结果：Hello, world Hello, world\n 也就是可以看出，双引号会解析 转义字符和变量，而单引号不会。 2.字符串（Here文档）#!/usr/bin/perl $a = 10; $var = <<"EOF"; 这是一个 Here 文档实例，使用双引号。 可以在这输如字符串和变量。 例如：a = $a EOF print "$var\n"; $var = <<EOF; 这是一个 Here 文档实例，使用单引号...