#函数可以没有括号，但参数之间必须有逗号。

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