Was bedeutet "$ \ = $ /;" gemein in Perl?

Question

Ich stieß auf ein Perl-Programm, das die Anzahl der Vokale in einer Zeichenfolge zählt. Aber ich kann nicht auf eine einzelne Zeile schließen, wie es funktioniert. Wer kann dieses Programm Zeile für Zeile entschlüsseln?

$\=$/;map{ 
    $_=<>;print 0+s/[aeiou]//gi 
}1..<> 

Answer 1

Was in Perl bedeutet $\=$/;?

Sets $\ auf den Wert von $/.

$/ definiert die Endung der Leitung für readline (<>). Der Standardwert ist ein Zeilenvorschub (U + 000A).

$\ ist an den Ausgang von jedem print angehängt. Der Standardwert ist die leere Zeichenfolge.

Also, vorausgesetzt $/ hatte sich nicht verändert worden ist, setzt es $\-Feed-Linie, die print wirken wie say macht.

Wer kann dieses Programm Zeile für Zeile dekodieren?

1. Weltweit machen print wirken wie say.
2. Lesen Sie eine Zeile von ARGV.
3. Für eine Anzahl von Malen gleich der Anzahl Lese,
   1. eine Linie von ARGV lesen.
   2. Verwenden Sie s/[aeiou]//gi, um die Anzahl der Vokale zu zählen.
   3. Drucken Sie das Ergebnis.

Im skalaren Kontext s///g gibt die Anzahl der Spiele/Ersatz. 0+ zwingt skalaren Kontext.

---

By the way, tr/aeiouAEIOU// wäre schneller als 0+s/[aeiou]//gi, und nicht mehr. Es ist auch zerstörungsfrei.