标签：
总结：
q（）、qq（）、qw（）、qx（），分别是单引号、双引号、创建字符串列表 和 捕获命令输出。
一件事情可以使用多种方法完成。
本节主要内容：
如何获得目录列表？（打开目录 读取目录） 此步的局限性：只能查看指定目录下的文件目录列表信息。
打开文件 和 打开目录 不太一样，打开目录 是为了获得目录里的信息列表，而不能写入或修改。
# 打开目录 opendir(DIR, ‘./‘) or die $!;
# 以标量形式读取目录 while(readdir(DIR)){ print $_."\n"; }
# 以数组形式读取目录 @dir = readdir(DIR); foreach (@dir){ print $_."\n"; }
# 目录句柄用完之后必须关闭 close(DIR);
# 通常会用grep过滤掉（.）和（..）目录 @files = grep(!/^\.\.?$/, readdir(DIR));
如何浏览目录、切换目录、创建目录、删除目录？
# 使用Cwd包，获取当前工作目录 use Cwd; print cwd, "\n"; chdir ‘../‘ or warn $!; # 改变当前目录 print getcwd;
print "DIrectory to create?"; my $newdir = <STDIN>; chomp $newdir; mkdir($newdir, 0755) or die $!; # 创建目录，权限为755 rmdir($newdir) or die $!; #删除目录
如何删除文件？给文件改名？
unlink <*.bat>; #删除匹配文件 $erased = unlink ‘old.exe‘, ‘a.out‘, ‘personal.txt‘; #删除列表文件，并返回已删除数量 unlink @badfiles; #删除列表内文件 unlink; #删除$_内文件
if (!rename "myfile.txt", "archive.txt"){ warn $!; }
system（）函数
捕获输出
其他：
use Cwd ‘abs_path‘; #获取指定文件和目录的绝对地址 use warnings; $myfile= "fastq_R1.txt"; $mydir="./1"; print(abs_path($myfile)."\n"); #使用abs_path函数 print(abs_path($0)."\n"); print(abs_path($mydir)."\n");
以下是语法在只读模式打开file.txt的。这里小于< signe 指示，文件必须以只读模式运行结束
open(DATA, "<file.txt");
疑问：
1.qq（）连接起来的列表似乎只有一个元素，因为用scalar（）和join（）连接起来都只发现一个元素？？？
标签：
原文地址：http://www.cnblogs.com/leezx/p/5617239.html
