4

ネストコードの意味は何ですか

foreach (@items)
{
    if (-l $_)    ## this is what I don't understand: the meaning of -l
    {
        ...
    }
}

助けてくれてありがとう。

4

4 に答える 4

6

それぞれを見てみましょう：

foreach (@items) {
    ...
}

このforループ（foreachおよびforPerlの同じコマンド）は、@itemsリストから各項目を取得し、それをに設定し$_ます。は$_、デフォルト変数の一種として使用されるPerlの特別な変数です。アイデアはあなたがこのようなことをすることができるということです：

foreach (@items) {
    s/foo/bar/;
    uc;
    print;
}

そして、それらの各コマンドはその$_変数を操作します！何も言わずに言うprintと、にあるものは何でも印刷され$_ます。変数について言及していない場合はuc、にあるものはすべて大文字になります$_。

現在、これはいくつかの理由で推奨されていません。まず、グローバル$_であるため、意図しない副作用が発生する可能性があります。たとえば、の値をいじくり回したサブルーチンを呼び出すと想像してください。プログラムが機能しないことに突然驚かれることでしょう。$_

もう1つ-lはテストオペレーターです。この演算子は、指定されたファイルがシンボリックリンクであるかどうかを確認します。すべてのテスト演算子を説明するPerldocにリンクしました。

UnixまたはBASH/Korn / Bourneシェルスクリプトに精通していない場合、ダッシュで始まるコマンドがあると奇妙に見えます。しかし、Perlの構文の多くが盗まれました...つまり、Unixシェルとawkコマンドから借用したということです。Unixには、次のように使用できるtestというコマンドがあります。

if test -L $FILE
then
    ....
fi

Unixでは、これ-Lはテストコマンドのパラメーターであり、Unixでは、コマンドのほとんどのパラメーターはダッシュで始まります。Perlは単に同じ構文ダッシュとすべてを借用しました。

興味深いことに、これらのテストコマンドのPerldocを読むと、foreachループのよう$_に、変数またはファイル名を指定しない場合、さまざまなテストコマンドが変数を使用することに気付くでしょう。そのスクリプトを書いた人は誰でも、次のようにループを書くことができたはずです。

foreach (@items)
{
    if (-l)   ## Notice no mention of the `$_` variable
    {
        ...
    }
}

ええ、それはすごい明らかです！

参考までに、多くのPerlエキスパート（咳ダミアンコンウェイ咳）が推奨する最新の方法は、変数をできるだけ避けることです。これは、実際には明確さを追加せず、問題を引き起こす可能性があるためです。彼はまた、ただ言って忘れて、同じ行に中括弧を使用することをお勧めします。 $_forforeach

for my $file (@items) {
    if ( -l $file ) {
        ...
    }
}

それはコマンドには役立たないかもしれません-lが、少なくともファイルを扱っていることがわかるので、それがファイルと関係があるので-lはないかと疑うかもしれません。

残念ながら、Perldocはこれらすべてのファイルテストをセクションの下に置き、X-Xの下にアルファベット順に並べています。そのため、Perldocでコマンド、またはダッシュで始まるコマンドを検索している場合、知らない限りそれを見つけることはできません。ただし、少なくとも、次のようなものが表示されたときにどこを見ればよいか、将来的にはわかっています。-l-s $file

于 2013-03-05T15:02:15.843 に答える
6

ファイルがシンボリックリンクかどうかをチェックする演算子です。

于 2013-03-05T13:42:39.600 に答える
5
于 2013-03-05T14:12:05.177 に答える
4

perldocから:

 -l File is a symbolic link.
于 2013-03-05T13:43:38.230 に答える