Perl kullanarak bir dosyanın uzantısını nasıl kontrol edebilirim?

Question

Perl betiğimde bir dosya bir argüman olarak geçiyor. Dosya, .txt dosya veya .txt dosyasını içeren bir .zip dosya olabilir.

Ben . üzerinde bir bölünme yapmak ve sonra da (bölünmüş tarafından döndürülen) dizideki Son sonucu maç etmektir uzantısını kontrol etmek için bu

if ($file is a zip) { 

    unzip $file 
    $file =~ s/zip$/txt/; 
} 

Tek yol gibi görünür kod yazmak istiyorum.

Daha iyi bir yolu var mı?

Answer 1

Bunun için File :: Basename dosyasını kullanabilirsiniz.

#!/usr/bin/perl 

use 5.010; 
use strict; 
use warnings; 

use File::Basename; 

my @exts = qw(.txt .zip); 

while (my $file = <DATA>) { 
    chomp $file; 
    my ($name, $dir, $ext) = fileparse($file, @exts); 

    given ($ext) { 
    when ('.txt') { 
     say "$file is a text file"; 
    } 
    when ('.zip') { 
     say "$file is a zip file"; 
    } 
    default { 
     say "$file is an unknown file type"; 
    } 
    } 
} 

__DATA__ 
file.txt 
file.zip 
file.pl 

Running bu verir:

$ ./files 
file.txt is a text file 
file.zip is a zip file 
file.pl is an unknown file type 

Answer 2

Dosya adının sonuna bakmaya ne dersin?

if ($file =~ /\.zip$/i) { 

ve sonra:

use strict; 
use Archive::Extract; 

if ($file =~ /\.zip$/i) { 
    my $ae = Archive::Extract->new(archive => $file); 
    my $ok = $ae->extract(); 
    my $files = $ae->files(); 
} 

fazla bilgi here.

if($file =~ /\.zip$/i) { 
     # $file is a zip file 
} 

Answer 3

Sen olarak regex maç kullanarak dosya uzantısını kontrol edebilir? Sadece uygun durum işleme halletmek ve kullanmayı deneyin:

eval { 
    # try to unzip the file 
}; 

if ($@) { 
    # not a zip file 
} 

Answer 4

Neden dosya uzantısı dayanmaktadır:

Answer 5

Başka bir çözüm ikili dosya türünü belirler File::Type kullanımını sağlamaktır.

use strict; 
use warnings; 

use File::Type; 

my $file  = '/path/to/file.ext'; 
my $ft  = File::Type->new(); 
my $file_type = $ft->mime_type($file); 

if ($file_type eq 'application/octet-stream') { 
    # possibly a text file 
} 
elsif ($file_type eq 'application/zip') { 
    # file is a zip archive 
} 

Bu şekilde, eksik/yanlış uzantılarla uğraşmanız gerekmez.

Answer 6

Bu soru birkaç yıllık biliyorum ama gelecekte burada geliyor herkes için, kolay bir yol kendisini oluşturan yoluna ayrı bir dosya yolu kırmak için , dosya adı, basename ve uzantı aşağıdaki gibidir.

use File::Basename; 

my $filepath = '/foo/bar.txt'; 

my ($basename, $parentdir, $extension) = fileparse($filepath, qr/\.[^.]*$/); 
my $filename = $basename . $extension; 

Bu sonuçları aşağıdakilerle test edebilirsiniz.

my @test_paths = (
    '/foo/bar/fish.wibble', 
    '/foo/bar/fish.', 
    '/foo/bar/fish.asdf.d', 
    '/foo/bar/fish.wibble.', 
    '/fish.wibble', 
    'fish.wibble', 
); 

foreach my $this_path (@test_paths) { 
    print "Current path: $this_path\n"; 
    my ($this_basename, $parentdir, $extension) = fileparse($this_path, qr/\.[^.]*$/); 
    my $this_filename = $this_basename . $extension; 

    foreach my $var (qw/$parentdir $this_filename $this_basename $extension/) { 
     print "$var = '" . eval($var) . "'\n"; 
    } 

    print "\n\n"; 
} 

Bu yardımcı olur umarım.