1、文件目录操作常用操作符
2、stat函数
3、文件目录常用操作
创建文件
删除文件
创建目录
删除目录
切换目录
File::Basename模块操控路径

-s 判断文件存在且非空返回1；

-e -s 均能判断文件，目录是否存在，存在返回1；

-l 文件是软链接，返回1；

-d 是目录返回1；

-z 文件为空返回1；

-M 最后一次修改时间；

-T 最后一次访问时间；

#!/usr/bin/perl
use strict;
use warnings;

my $filesize= -s "./BGI_basicperl";#该目录不为空，返回目录大小字节
print "$filesizen";

#-s 判断文件存在且不为空返回1，否则返回0
print "file existsn" if (-s "./a.txt");#文件存在返回1
print "empty filen" if (-s "./hha.test");#文件不存在返回0
print "file not existn" if (-s "./hha.test1");#文件不存在返回0

#-s 判断目录存在，无论空或者不空均返回1，不能判断目录是否为空
print "directory existsn" if (-s "./BGI_basicperl");#目录存在非空返回1
print "zerosize directoryn" if (-s "./estest");#空目录存在返回1
print "directory not existn" if (-s "./BGI_basicperl1");#目录不存在返回0


#-e 判断文件存在，无论空或者不空均返回1，不能判断文件是否为空
print "file existsn" if (-e "./a.txt");#文件存在返回1
print "empty file existsn" if (-e "./hha.test");#空文件存在返回1
print "file not existn" if (-e "./a.txt1");#文件不存在返0

#-e 判断目录存在，无论空或者不空均返回1，不能判断目录是否为空
print "directory existsn" if (-e "./BGI_basicperl");#目录存在非空返回1
print "zerosize directoryn" if (-e "./estest");#空目录存在返回1
print "directory not existn" if (-e "./BGI_basicperl1");#目录不存在返回0

#综上
#-s 判断文件存在且非空返回1；
#-e -s 均能判断文件，目录是否存在，存在返回1

#-l 文件是软链接，返回1
print "a ln irectoryn" if (-l "./BGI_basicperl");

#-d 是目录返回1
print "a directoryn" if (-d "./BGI_basicperl");

#-z 文件为空返回1
print "a file existsn" if (-z "./a.txt");#非空文件返回0
print "empty file existsn" if (-z "./hha.test");#空文件存在返回1

#-M 最后一次修改时间
my $last_c_days=-M "./a.txt";
#-T 最后一次访问时间
my $last_r_days=-T "./a.txt";
print "$last_c_dayst$last_r_daysn";

#!/usr/bin/perl
use strict;
use warnings;

my @arr_stat=stat($ARGV[0]);
my @name_stat=qw/$dev, $ino, $mode, $nlink, $uid, $gid, $rdev,
$size, $atime, $mtime, $ctime, $blksize, $blocks/;

foreach my $i (0..$#arr_stat){
        print "$name_stat[$i]t$arr_stat[$i]n"}

#方法一，调用linux命令
`touch creat.txt`;

#方法二，open打开文件句柄和输出创建文件
open OUT,">>","./creat1.txt";
print OUT "test";
close OUT;

unlink "./creat.txt";
unlink ("./creat1.txt","./hha.test");

`mkdir test_dir`;
`mkdir -p test_dir/test`;

`rm -rf ./11`;
`rm -rf ./test_dir`;

chdir "./";

#! /usr/bin/perl
use strict;
use warnings;

use File::Basename;
my $path = $ARGV[0];
my($filename, $dirs, $suffix) = fileparse($path,qr/.[^.]*/);
#以上分别为文件名，文件绝对路径，文件后缀名
print"$filenamet$dirst$suffixn";

my $filename1=basename($path);#默认返回带后缀文件名
my $dirname1=dirname($path);#返回绝对路径
print "$filename1t$dirname1n";