Làm cách nào để kiểm tra xem tên tệp có khớp với mẫu có trong Perl không?

Question

Tôi có thể làm điều gì đó như thế này trong Perl không? Có nghĩa là khớp mẫu trên tên tệp và kiểm tra xem nó có tồn tại hay không.

if(-e "*.file") 
    { 
     #Do something 
    } 

Tôi biết giải pháp còn đòi hỏi hệ thống liệt kê các tệp hiện tại; đọc nó như là một tập tin và sau đó suy ra cho dù tập tin tồn tại hay không.

Answer 1

Bạn có thể sử dụng glob để trả lại một mảng của tất cả các file phù hợp với các mô hình:

@files = glob("*.file"); 

foreach (@files) { 
    # do something 
} 

Nếu bạn chỉ muốn biết liệu một tập tin phù hợp với mô hình tồn tại, bạn có thể bỏ qua sự phân công:

if (glob("*.file")) { 
    # At least one file matches "*.file" 
} 

Answer 2

Trên hệ thống * nix, tôi đã sử dụng những điều sau đây với kết quả tốt.

sub filesExist { return scalar (my @x = `ls -1a 2> /dev/null "$_[0]"`) } 

Trả lời bằng số kết quả được tìm thấy hoặc 0 nếu không có. Làm cho nó dễ dàng được sử dụng trong các điều kiện 'nếu' có điều kiện như:

if(!filesExist("/foo/var/not*there.log") && 
    !filesExist("/foo/var/*/*.log") && 
    !filesExist("/foo/?ar/notthereeither.log")) 
{ 
    print "No matches!\n"; 
} else { 
    print "Matches found!\n"; 
} 

Chính xác những gì bạn có thể sử dụng sẽ được xác định bởi những gì hệ vỏ của bạn hỗ trợ. Nhưng hầu hết các shell hỗ trợ sử dụng '*' và '?' - và chúng có cùng ý nghĩa ở mọi nơi tôi từng thấy. Tất nhiên, nếu bạn loại bỏ các cuộc gọi đến chức năng 'vô hướng', nó sẽ trả về các trận đấu - hữu ích cho việc tìm kiếm những tên tập tin biến.