Perl で STDIN や入力ファイルからプログラム的に読み込む

質問

Perl で標準入力や入力ファイル(提供されている場合)から プログラム的に読み込むための最もスマートな方法は何でしょうか？

どのように解決するのですか？

while (<>) {
print;
}

は、コマンドラインで指定されたファイルか、ファイルが指定されない場合は標準入力から読み込みます。

もし、コマンドラインでこのループ構造を必要とする場合は -n オプションで指定します。

$ perl -ne 'print;'

の間にコードを置くだけです。 {} の間に、最初の例から '' に変更します。