tập tin Fancy slurping trong Perl

Question

Tôi đã nhìn vào cách hiệu quả để đọc tập tin trong Perl và đi qua này rất thú lót:

my $text = do { local (@ARGV, $/) = $file; <> }; 

Câu hỏi của tôi là: Làm thế nào chính xác để làm việc này? Thông thường khi slurping một tập tin bạn đặt $/ = undef, nhưng tôi không thấy làm thế nào điều này. Đoạn mã nhỏ này tỏ ra rất khó khăn để quấn quanh đầu tôi.

Điều gì sẽ là giải thích đơn giản và giải thích cho điều này?

---

Bây giờ tôi biết cách hoạt động của nó, hãy để chúng trở nên thật sự ưa thích!

Không phải mã này có thực sự sử dụng hay không; nó chỉ là thú vị để tìm ra và mát mẻ để xem xét. Đây là một lớp lót để slurp nhiều tập tin cùng một lúc !!!

my @texts = map { local (@ARGV, $/) = $_; <> } @files; 

Answer 1

local (@ARGV, $/) = $file; 

cũng giống như

local @ARGV = ($file); 
local $/ = undef; 

<> sau đó đọc từ các tập tin đề cập trong @ARGV, ví dụ: từ $file.