Làm cách nào để chuyển một tham số đến hàm mong muốn khi sử dụng Tệp của Perl :: Tìm?

Question

thể trùng lặp:
How do I pass parameters to the File::Find subroutine that processes each file?

Người ta có thể sử dụng mô-đun File::Find Perl như thế này:

find(\&wanted, @directories); 

Làm thế nào chúng ta có thể thêm một tham số để các wanted chức năng?

Ví dụ: tôi muốn duyệt các tệp trong /tmp trích xuất một số thông tin từ mỗi tệp và kết quả sẽ được lưu vào một thư mục khác. Các dir đầu ra nên được đưa ra như một tham số.

Answer 1

Bạn sử dụng một đóng cửa:

use File::Copy; 

my $outdir= "/home/me/saved_from_tmp"; 
find(sub { copy_to($outdir, $_); }, '/tmp'); 

sub copy_to 
    { my($destination_dir, $file)= @_; 
    copy $file, "$destination_dir/$file" 
     or die "could not copy '$file' to '$destination_dir/$file': $!"; 
    } 

Answer 2

Hợp đồng của File::Find chỉ định thông tin nào được chuyển đến &wanted.

Hàm mong muốn không có đối số mà thay vào đó nó hoạt động thông qua tập hợp các biến.

• $File::Find::dir là tên thư mục hiện hành,
• $_ là tên tập tin hiện tại trong thư mục đó
• $File::Find::name là tên đường dẫn đầy đủ đến tập tin.

Nếu có thêm thông tin bạn muốn cung cấp trong cuộc gọi lại, bạn có thể create a sub reference that calls your wanted sub with the desired parameters.

Answer 3

Bạn có thể tạo bất kỳ loại tham chiếu mã nào bạn muốn. Bạn không phải sử dụng tham chiếu đến một chương trình con được đặt tên. Đối với nhiều ví dụ về cách thực hiện việc này, hãy xem mô-đun File::Find::Closures của tôi. Tôi đã tạo ra mô-đun đó để trả lời chính xác câu hỏi này.