#函数可以没有括号，但参数之间必须有逗号。
index "Ring around the rosy", "around";
index("Pocket full of posies", "ket");
$a="Ashes, ashes, we all fall down";
index($a, "she");
@a=qw(oats peas beans);
index join(" ", @a), "peas";

#可以设置搜索的起始位置
index($reindeer, "da", 1);

#可以遍历，找到子字符串的所有位置
$source="One fish, two fish, red fish, blue fish.";
$start=0;
#设置搜索起始位置，使用循环更新下次搜索位置，本质就是一个迭代
while(($start=index($source, "fish", $start)) != -1){
    print "Found a fish at $start\n";
    $start++;
}

$a="She loves you yeah, yeah, yeah.";
rindex($a, "yeah");
rindex($a, "yeah", 25);

$a="I do not like green eggs and ham";
print substr($a, 25);
print substr($a, 14, 5);

#可以利用substr函数进行标量的部分替换
substr($a, 0, 3) = "li";
#$a中的0到3，被替换为“li”

#与s///不同，tr是分别翻译，A翻译为X，之后同理
$r=~tr/ABC/XYZ/;

#默认是输出到STDOUT文件句柄
#逗号放在哪是门学问，句柄后不能有逗号，参数间必须有逗号
printf formatstring, list;
printf filehandle formatstring, list;

printf("%20s", "Jack");
$amt=7.12;
printf("%6.2f", $amt);
printf("%c", 65);

#堆栈的底部是元素0，堆栈的顶部是数组中最后一个元素
@band=qw(trombone);
push @band, qw(li zhi);

$brass=shift @band; #取出栈尾元素，即第一个元素
$wind=pop @band; #弹出数组最后元素，即栈顶

unshift @band, "harmonica"; #添加

splice array, offset, length, list; #其中length和list可以不写

# 打开目录
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("dir");

system("dir > faqfile.txt");

system("sort $f | less");

system("Xterm &");

system("dir > outfile");
open(OF, "outfile") or die $!;
@data = <OF>;
close(OF);
foreach(@data){
    print "$_\n";
}

$directory = `dir`;
$directory_2 = qx{dir};
print $directory;
@dir = `dir`;
foreach (@dir){
    print "$_"
}

dir > outfile;
sort outfile > newfile;
more newfile;

dir | sort | more;

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");

open(DATA, "<file.txt");