目录操作 #

opendir my $dh, "." or die "Cannot open directory: $!";

while (my $entry = readdir $dh) {
    next if $entry eq "." or $entry eq "..";
    print $entry . "\n";
}

closedir $dh;

opendir my $dh, "." or die $!;
my @entries = readdir $dh;
closedir $dh;

print "$_\n" foreach @entries;

opendir my $dh, "." or die $!;

my @dirs = grep { -d $_ } readdir $dh;
rewinddir $dh;
my @files = grep { -f $_ } readdir $dh;

closedir $dh;

print "Directories: @dirs\n";
print "Files: @files\n";

my @txt_files = glob "*.txt";
my @all_files = glob "*";
my @perl_files = glob "*.pl *.pm";

print "$_\n" foreach @txt_files;

mkdir "newdir" or die "Cannot create: $!";

mkdir "newdir", 0755 or die "Cannot create: $!";

use File::Path qw(make_path);

make_path "a/b/c/d" or die "Cannot create: $!";

rmdir "emptydir" or die "Cannot remove: $!";

use File::Path qw(remove_tree);

remove_tree "dir" or die "Cannot remove: $!";

use Cwd;

my $cwd = getcwd();
print "Current directory: $cwd\n";

chdir "/tmp" or die "Cannot change: $!";

{
    local $ENV{PWD} = "/tmp";
}

use File::Basename;

my $path = "/path/to/file.txt";

my $dirname = dirname($path);
my $basename = basename($path);
my ($name, $dirs, $suffix) = fileparse($path, qr/\.[^.]*/);

print "Dirname: $dirname\n";
print "Basename: $basename\n";
print "Name: $name, Dirs: $dirs, Suffix: $suffix\n";

use File::Spec;

my $path = File::Spec->catfile("path", "to", "file.txt");
print $path;

my $abs_path = File::Spec->rel2abs("file.txt");
print $abs_path;

use File::Find;

find(sub {
    print $File::Find::name . "\n";
}, ".");

use File::Find;

my @perl_files;

find(sub {
    push @perl_files, $File::Find::name if /\.pl$/;
}, ".");

print "$_\n" foreach @perl_files;

use File::Find;

my @dirs;

find(sub {
    push @dirs, $File::Find::name if -d $_;
}, ".");

print "$_\n" foreach @dirs;

use File::Find;

find({ 
    wanted => sub {
        print $File::Find::name . "\n";
    },
    preprocess => sub {
        return sort @_; 
    },
}, ".");

use Path::Tiny;

my $path = path("/path/to/file.txt");
my $dir = path("/path/to/dir");

use Path::Tiny;

my $file = path("test.txt");

my $content = $file->slurp;
my @lines = $file->lines;

$file->spew("New content\n");
$file->append("More content\n");

use Path::Tiny;

my $dir = path(".");

my @children = $dir->children;
my @files = $dir->children(qr/\.txt$/);

$dir->child("subdir")->mkpath;

use Path::Tiny;

my $path = path("/path/to/file.txt");

my $parent = $path->parent;
my $basename = $path->basename;
my $absolute = $path->absolute;
my $relative = $path->relative;

print "Parent: $parent\n";
print "Basename: $basename\n";

use File::Find;

my $total_size = 0;

find(sub {
    $total_size += -s $_ if -f $_;
}, ".");

print "Total size: $total_size bytes\n";

use strict;
use warnings;
use File::Find;
use Digest::MD5;

my %files;

find(sub {
    return unless -f $_;
    
    open my $fh, "<", $_ or return;
    my $md5 = Digest::MD5->new;
    $md5->addfile($fh);
    my $hash = $md5->hexdigest;
    close $fh;
    
    push @{$files{$hash}}, $File::Find::name;
}, ".");

foreach my $hash (keys %files) {
    if (@{$files{$hash}} > 1) {
        print "Duplicates:\n";
        print "  $_\n" foreach @{$files{$hash}};
    }
}

use strict;
use warnings;
use File::Find;

my @to_delete;

find(sub {
    if (/\.tmp$/i || /\.bak$/i) {
        push @to_delete, $File::Find::name;
    }
}, ".");

foreach my $file (@to_delete) {
    print "Delete $file? [y/N] ";
    my $answer = <STDIN>;
    if ($answer =~ /^y/i) {
        unlink $file;
        print "Deleted\n";
    }
}

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

my $dir = $ARGV[0] // ".";

find(sub {
    my $depth = () = $File::Find::name =~ /\//g;
    my $indent = "  " x $depth;
    my $name = -d $_ ? "$_/" : $_;
    print "$indent$name\n";
}, $dir);

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use File::Find;

my ($dir, $pattern) = @ARGV;
die "Usage: $0 <dir> <pattern>\n" unless $dir && $pattern;

my @found;

find(sub {
    push @found, $File::Find::name if /$pattern/;
}, $dir);

if (@found) {
    say "Found:";
    say "  $_" foreach @found;
} else {
    say "No files found matching $pattern";
}

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use File::Copy;
use File::Find;
use File::Path qw(make_path);
use File::Basename;

my ($src, $dst) = @ARGV;
die "Usage: $0 <source> <dest>\n" unless $src && $dst;

find(sub {
    my $src_path = $File::Find::name;
    my $rel_path = File::Spec->abs2rel($src_path, $src);
    my $dst_path = File::Spec->catfile($dst, $rel_path);
    
    if (-d $src_path) {
        make_path $dst_path unless -d $dst_path;
    } else {
        my $dst_dir = dirname($dst_path);
        make_path $dst_dir unless -d $dst_dir;
        
        copy $src_path, $dst_path or warn "Cannot copy $src_path: $!";
        say "Copied: $src_path -> $dst_path";
    }
}, $src);