file di Fancy slurping in Perl

Question

stavo guardando in modi efficienti per leggere i file in Perl e sono imbattuto in questo molto interessante uno di linea:

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

La mia domanda è: Come funziona esattamente questo lavoro? Normalmente quando slurping un file hai impostato $/ = undef, ma non vedo come si fa. Questo piccolo pezzo di codice si sta dimostrando molto difficile da avvolgere.

Quale sarebbe una ripartizione e una spiegazione semplificata per questo?

---

Ora che so come funziona, siamo davvero fantasiosi!

Non che questo codice abbia un uso reale; è solo divertente da capire e bello da vedere. Ecco un one-liner per estrarre più file contemporaneamente !!!

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

Answer 1

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

è lo stesso di

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

<> quindi legge dai file di cui @ARGV, vale a dire da $file.