Fancy plik slurping w Perlu

Question

Szukałem w skutecznych sposobów do odczytu plików w Perl i natknąłem się na to bardzo interesująca Wkład:

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

Moje pytanie brzmi: Jak dokładnie to działa? Zwykle podczas slurowania pliku ustawionego na $/ = undef, ale nie widzę, jak to robi. Ten mały kawałek kodu okazuje się bardzo trudny do objęcia głowy.

Jaki byłby uproszczony podział i wyjaśnienie tego?

---

Teraz, gdy już wiem, jak to działa, poznajmy się naprawdę!

Nie chodzi o to, że ten kod ma jakiekolwiek rzeczywiste zastosowanie; Po prostu fajnie jest rozgryźć i spoko patrzeć. Oto jedna liniówka, która wyśle ​​kilka plików jednocześnie !!!

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

Answer 1

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

jest taka sama jak

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

<> odczytuje z plików zawartych w @ARGV, to znaczy z $file.