Perl for-Schleife Erklärung

Question

Ich bin auf der Suche durch Code Perl und ich sehe dies:

sub html_filter { 
    my $text = shift; 
    for ($text) { 
     s/&/&/g; 
     s/</&lt;/g; 
     s/>/&gt;/g; 
     s/"/&quot;/g; 
    } 
    return $text; 
} 

, was in diesem Fall zu tun ist die for-Schleife und warum sollten Sie es auf diese Weise tun?

Answer 1

Ohne eine explizite Schleifenvariable verwendet die Schleife for die spezielle Variable $_. Die Substitutionsanweisungen in der Schleife auch verwenden die spezielle $_ Variable, weil keine andere angegeben ist, so ist dies nur ein Trick, um den Quellcode kürzer zu machen. Ich würde wahrscheinlich diese Funktion schreiben als:

Dies wird keine Auswirkungen auf die Leistung haben und ist lesbar von anderen Menschen als Perl.

Answer 2

Es wird nur verwendet, um $ text an $ _, die Standardvariable, zu aliasieren. Fertig, weil sie zu faul sind, eine explizite Variable zu verwenden oder wertvolle Zyklen nicht zu verschwenden, um einen neuen Skalar zu erstellen.

Answer 3

Ihre Aufräumarbeiten &, <,> und zitieren Zeichen und ersetzen sie durch die entsprechenden HTML-Entity-Zeichen.

Answer 4

Die for Schleife alias jedes Element der Liste seine Schleife über $_. In diesem Fall gibt es nur ein Element, $text.

Innerhalb des Körpers ermöglicht dies eine

s/&/&/g; 

usw. statt

$text =~ s/&/&/g; 

wiederholt zu schreiben, zu schreiben. Siehe auch perldoc perlsyn.

Answer 5

Es Schleifen durch Ihren Text und Ersatz Et-Zeichen (&) mit & amp, < mit & lt,> mit & gt und "mit & quot. Sie würden es ein .html Dokument für die Ausgabe tun ... diejenigen, Zeichen sind die richtigen Entität

Answer 6

Der ursprüngliche Code unter Verwendung wantarray flexibler sein könnte den gewünschten Kontext zu testen.

sub html_filter { 
    my @text = @_; 
    for (@text) { 
     s/&/&/g; 
     s/</&lt;/g; 
     s/>/&gt;/g; 
     s/"/&quot;/g; 
    } 
    return wantarray ? @text: "@text"; } 

diese Weise können Sie es im Listenkontext oder Skalarkontext nennen könnte und bac bekommen k die richtigen Ergebnisse, zum Beispiel:

my @stuff = html_filter('"','>'); 
print "$_\n" for @stuff; 

my $stuff = html_filter('&'); 
print $stuff; 

Answer 7

Wie Herr Hewgill weist darauf hin, wird der Code Probe implizit lokalisierende und Aliasing zu $ ​​_, die magische implizite Variable.

Er bietet einen Ersatz, der auf Kosten des Boilerplate-Codes lesbarer ist.

Es gibt keinen Grund, die Lesbarkeit der Kürze zu opfern.Ersetzen Sie einfach die implizite Lokalisierung und Zuordnung mit einer expliziten Version:

sub html_filter { 
    local $_ = shift; 

    s/&/&/g; 
    s/</&lt;/g; 
    s/>/&gt;/g; 
    s/"/&quot;/g; 

    return $_; 
} 

Wenn ich nicht Perl alles gut kannte, und kam in diesem Code, würde ich weiß, dass ich für $_ bei der Dokumentation suchen benötigt und local - als Bonus in perlvar gibt es ein paar examples of localizing $_.

Für alle, die Perl viel verwenden, sollte das oben genannte einfach zu verstehen sein.

Es gibt also wirklich keinen Grund, hier auf die Lesbarkeit zu verzichten.