外出在线播放完整版:Perl的简单语法(与C语言语法的异同)4
来源:百度文库 编辑:偶看新闻 时间:2024/04/27 18:11:18
文件测试
Perl的文件操作也可以先测试文件是否存在,是否可读写等,这样操作起来会更安全。如:
$x="abc.txt";
if(-e $x) { #abc.txt是否存在?
# 存在操作
} else {
printf "文件不存在。\n";
}
-e 操作符用于测试文件或目录是否存在。
以下为所有文件测试操作符的清单:
删除文件
Perl的 unlink() 操作符可实现删除文件。如:
unlink("abc.txt"); # 删除abc.txt
文件重命名
Perl的rename()操作符可实现文件重命名。如:
rename("abc","aka") || die "出错,不能更名";
此时将文件 abc 更名为 aka,成功返回真,否则给出出错提示。
目录操作
Perl中处理目录非常类似于对文件的处理。
打开目录句柄:
opendir(ETC,"/etc")||die "出错,不能打开目录";
关闭目录句柄:
closedir(ETC);
创建目录:
mkdir("aka",0777)||die "不能创建 aka 目录";
0777 为文件权限描速数。
删除目录:
rmdir("aka") || die "不能删除 aka 目录"。
7.6 进程管理
当你向系统 Shell 发送一个命令行时,Shell 创建一个进程来执行这个命令。这个新进程成为 Shell 的子进程,它的执行不依赖于 Shell 但又与 Shell 相互协调。 同样,Perl程序也能启动新进程。
使用system()和exec()
生成新进程的最简单的方法就是用 system 操作符。如:
system("date");
若要将输出送至now_day文件,则可以:
system("date>now_day") || die "不能建立now_day文件";
使用单引号
产生进程的另一方法是将 Shell 命令置于两个单引号之间。如:
$nowday="现在时间:".‘date‘
$nowday 的值为“现在时间:”和date命令的结果的连接。即:"现在时间:Fri Feb 18 23:49:23 PDT 1998"
综合范例
举一个综合例子,要求从date的输入中分析,周未时打印"周未了,轻松一下",否则打印"努力工作"。简洁的写法为:
if(‘date‘=~/^S/){
printf "周未了,轻松一下\n";
} else {
printf "努力工作\n"
}
date 的输出格式第一个字节为星期,英语中恰好只有周未为 "S" 打头,因此使用了常规表达式判断第一个字符是否为S,即可达到要求。