は、Perlのループ説明

Question

のために私はPerlのコードを見ていると私はこれを参照してください。

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

ループのため、この場合に何をするのか、あなたがそれこの方法なぜだろうか？

Answer 1

ループ変数が明示されていない場合、forループには$_という特殊変数が使用されます。ループ内の置換ステートメントでもは特別な$_変数を使用します。これは他に何も指定されていないためです。ソースコードを短くするのは単なるトリックです。これは、パフォーマンス上の影響がないとPerl以外の人によって読み取り可能であるだろう

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

：私はおそらく、この関数を記述します。

Answer 2

これは、$ textをデフォルト変数のエイリアスに使用しただけです。明示的な変数を使用するにはあまりにも怠惰であるか、新しいスカラーを作成する貴重なサイクルを無駄にしたくないため、完了します。

Answer 3

そのクリーンアップ&、<>、および引用符文字を適切なHTMLエンティティ文字で置き換えます。

Answer 4

forループの各要素は、リストの各要素にループし、$_にループします。この場合、1つの要素、$textのみが存在します。本体内

が、これは、1つの代わりに繰り返し

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

を記述することで

s/&/&/g; 

等を記述することを可能にします。 perldoc perlsynも参照してください。

Answer 5

それは、& GTと「& QUOTとして>、&アンプ、& LTと<を使用してテキストや代替アンパサンド（&）をループします。あなたが.htmlの文書への出力のためにこれを行うだろう...それら適切なエンティティの文字がある

Answer 6

は、元のコードが必要な状況をテストするためにwantarrayを使用することにより、より柔軟性が考えられます。

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

あなたはリストコンテキストまたはスカラーコンテキストでそれを呼び出すと、BACを得ることができ、そのように例えば、正しい結果をk個：ミスターHewgillが指摘するように、コードサンプルは、暗黙的にローカライズし、$ _、魔法のような暗黙の変数にエイリアシングされ

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

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

Answer 7

。

彼は、定型句コードの代償で読みやすい代替品を提供しています。

簡潔にするために読みやすさを犠牲にする理由はありません。単に明示バージョンで暗黙のローカリゼーションと割り当てを置き換える：私はすべてのことだけでなくPerlを知っていて、このコードに出くわしていない場合は

sub html_filter { 
    local $_ = shift; 

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

    return $_; 
} 

、私は$_のためにドキュメントを見て必要なことを知っているだろうし、 local - perlvarにボーナスとして、examples of localizing $_が少しあります。

Perlをたくさん使っている人にとっては、上記は理解しやすいはずです。

ここでは、簡潔さのために読みやすさを犠牲にする理由はありません。