単一行のPerlプログラム

はじめに

単一行のPerlプログラムについてお話します。 1行のPerlを習得すれば、多くの時間を節約できます（節約できます）。

この投稿の目的は、find、grep、awk、sedの代わりにPerlを使用する方法を示すことです。 投稿の最後に、なぜこれが必要なのかが書かれています。

まあ、まず最初に。

旗

フラグ-e
このフラグを使用すると、コンソールで真珠コードを直接実行できます。この機能を使用して、何らかのテストコードをテストします。
16進数の0xFA23Bの10進数値を知りたいとします。

perl -e "print 0xFA23B" 

ご注意 Windowsから単一行のパールバーコードを実行する場合、コードを二重引用符で囲む必要があります。

 perl -e "print 0xFA23B" 

、Linux / Unixの場合、コードは二重引用符と一重引用符の両方にすることができますが、Unix / Linuxでは、二重引用符の場合は記号「$」でエスケープする必要があります

 perl -e "\$i = 0;print \$i" 

ご注意 -eフラグの後、コードはすぐに続きます 。

フラグ-l
このフラグは、変数$ /および$ \を値 "\ n"で初期化します。
$ /変数は、入力フィールドの区切り文字を設定します。
$ \変数は、印刷コマンドの後に何が印刷されるかを指定します。

プログラム：

 perl -le "print 1" 

以下と同等：

 BEGIN { $/ = "\n"; $\ = "\n"; } print 1; 

したがって、最後にprint "\ n"と書く必要はありません。

フラグ-n
ここから楽しみが始まります。

次のコード：

 perl -ne 'print 1' 

これと同等：

 LINE: while (defined($_ = <ARGV>)) { print 1; } 

これはどこで使用できますか？
そしてここでは、たとえば、名前が数字で始まるファイルの名前に拡張子「bak」を追加する必要があります。

出来上がり：

 ls | perl -lne 'rename $_, "$_.bak" if /^\d+/' 

そして、Windows用？ お願い：

 dir /b | perl -lne "rename $_, \"$_.bak\" if /^\d+/" 

結果のプログラムを見てみましょう：

 BEGIN { $/ = "\n"; $\ = "\n"; } LINE: while (defined($_ = <ARGV>)) { chomp $_; rename $_, "$_.bak" if /^\d+/; } 

ムシャムシャ食べる$ _; -lフラグから取得： -nとともに、BEGIN {$ / = "\ n";だけでなく、chomp $ _;も追加します。 $ \ = "\ n"; }

フラグ-a
-aフラグを使用すると、Perlをawkとして使用できます。

次のコード：

 perl -nae "print 1" 

と同等：

 LINE: while (defined($_ = <ARGV>)) { our(@F) = split(" ", $_, 0); print 1; } 

つまり、各行はスペースに分割されて分割され、結果のフィールドは@F配列に入れられます。
フィールド区切り文字は、 -Fフラグを使用して変更できます。

/ etc / passwdファイルからホームディレクトリを含むユーザー名を出力するとします。

 less /etc/passwd | perl -F: -nlae 'print "$F[0]:$F[4]"' 

また、たとえばWindowsの場合、2009年9月に最後に変更したフォルダー内のファイルの名前を調べたいと思います。

 dir /TW | perl -nale "print $F[$#F] if $F[0] =~ /\.09\.2009/" 

-Pフラグ
また、このフラグは-nが「print $ _」で別のcontinueブロックを追加するだけです。

次のコード：

 perl -pe "print 1" 

と同等：

 LINE: while (defined($_ = <ARGV>)) { print 1; } continue { print $_; } 

ファイル/ etc / passwdを出力し、同時に3を6に置き換えたとします。

このコードの代わりに：

 less /etc/passwd | perl -ne "s/3/6/;print \$_" 

私たちは書くことができます：

 less /etc/passwd | perl -pe "s/3/6/" 

フラグ-i
iフラグを使用すると、ファイルを変更できます。

次のプログラム：

 perl -i.bak -pe "s/foo/bar/" 

これと同等：

 BEGIN { $^I = ".bak"; } LINE: while (defined($_ = <ARGV>)) { s/foo/bar/; } continue { print $_; } 

これはこれと同等です：

 $extension = '.bak'; LINE: while (<>) { if ($ARGV ne $oldargv) { if ($extension !~ /\*/) { $backup = $ARGV . $extension; } else { ($backup = $extension) =~ s/\*/$ARGV/g; } rename($ARGV, $backup); open(ARGVOUT, ">$ARGV"); select(ARGVOUT); $oldargv = $ARGV; } s/foo/bar/; } continue { print; # this prints to original filename } select(STDOUT); 

perl -i.bak -pe“ code” <file name>という行が呼び出されたときに何が起こるかを簡単に説明します。 たとえば、次のように呼び出します。

 perl -i.bak -pe "s/foo/bar/" test.txt 

test.txtファイルの名前がtest.txt.bakファイルに変更され、新しいtest.txtファイルが作成されます。 次に、ソースファイルの各行で、fooがbarに置き換えられ、新しいtest.txtファイルに書き込まれます（明らかに、ファイルの名前が変更された場合でも、その行にアクセスできますか？）

ファイル内の\ r \ nを\ nに置き換えたいとします：

 perl -i.bak -pe 's/\r\n/\n/' test.txt 

このコードの結果、2つのファイルが取得されます。1つはソースのコピーであるtest.txt.bak、もう1つは\ r \ nが\ nに置き換えられたtest.txtです。

ご注意 上記のプログラムを詳細に見ると（$ extension = '.bak'; ...）、perl -ibak_ * ...のように呼び出すと、バックアップファイルが「bak_test.txt」と呼ばれることがわかります。パラメータiの値にアスタリスクが含まれている場合、この値は拡張子ではなくテンプレートと見なされます。アスタリスクはファイル名を示します。

フラグ-M

-Mフラグを使用すると、モジュールを接続できます

たとえば、私はCGIモジュールがどこにあるかを知りたい：

Windowsの場合：

 perl -MCGI -le "print $INC{'CGI.pm'}" 

Linuxの場合：

 perl -MCGI -le "print \$INC{'CGI.pm'}" 

最近、拡張子「.cgi」を持つすべてのファイルに対してchmod a + xを作成する必要がありました。
しかし、サーバー上で何らかの理由でchmodの-Rフラグが機能しなかったため、これが私がしたことです。

 perl -MFile::Find -e 'finddepth(sub {print $File::Find::name . "\n"}, "."})' | grep -P '\.cgi$' | perl -nle '`chmod a+x $_`' 

このコードでは、「perl -MFile :: Find -e 'finddepth（sub {print $ File :: Find :: name。„ \ N“}、”。 "}）'」 'File：Findモジュールのfinddepth関数を呼び出しました。現在のディレクトリを再帰的にバイパスし、完全なファイルパスを表示しました。

次に、グリップを使用して、「。cgi」で終わるファイルのみを取りました（-Pはパール大麦の正規表現が使用されることを意味します）、次のプログラム「perl -nle '' chmod a + x $ _``」で実行権を作りました見つかったファイル。

このコードは次のように書くこともできますが：

 perl -MFile::Find -e 'finddepth(sub {$n = $File::Find::name;`chmod a+x $n` if $n =~ /\.cgi$/}, ".")' 

$ _に「\ n」のないファイル名が含まれないように、-lフラグを使用する必要があることに注意してください。

しかし、プラグインパッケージからメインパッケージにいくつかの変数またはルーチンを接続する必要がある場合はどうでしょうか。
次に、書く必要があります：

 perl -MModule=foo,bar -e '...'; 

または

 perl '-Mmodule qw(foo bar)' -e '...'; 

BEGINおよびEND

awkと同様に、最初と最後に発生する必要があるアクションにBEGINとENDを使用できます。

 perl -e 'BEGIN{< >};<>;END{ }'; 

たとえば、レポートの最初と最後に40個の「=」記号で構成される線を描画します。

 dir /b | perl -pe "sub line {print '=' x 40 . \"\n\"};BEGIN{line();};END{line()}" 

デバッグする

単一行のプログラムをデバッグするには、B :: Deparseモジュールを接続する必要があります。

実行する場合：

 perl -MO=Deparse -ne "print 1" 

出力が得られます：

 LINE: while (defined($_ = <ARGV>)) { print 1; } -e syntax OK 

B :: Deparseモジュールは、「-MO = Deparse」のように接続する必要がありますが、「-MB :: Deparse」のように接続する必要はありません。 どうやらこれは、プログラムでメソッドを使用するだけでなく、このモジュールを使用してプログラムのソースコードを表示することを明確に定義するために行われたようです。

これは、B :: Deparseモジュールが通常のモジュールとして使用される方法です。コード出力はありません。

 perl -MB::Deparse -e "print 1" 

上記の例では、MO = Deparseを使用してプログラムコードを出力しました。

単一行プログラムの例

ファイルの行数を出力します（Unix wc -lのアナログ）

 perl -ne '}{ print $.' abc.txt 

同等のプログラム：

 LINE: while (defined($_ = <ARGV>)) { (); } { print $.; } 

ここでは、トリッキーなトリック「} {」が使用されています。 私たち自身がサイクルを閉じました。

バイナリ出力

 perl -e "printf '%b', shift" 200 

ファイル内の\ r \ nを\ nで置き換える

 perl -i.bak -pe 's/\r\n/\n/' file.txt 

ご注意 何らかの理由で、Windowsでは同様のコードは機能しません：それは永続的に\ r \ nを追加し、binmode ARGVを行いました、
binmode $ ARGV、binmode * ARG {FILEHANDLE}、しかし何も役に立たなかったので、さらに戦います。 Windowsで\ r \ nを\ nに置き換える方法を書いていただければ幸いです。

IPアドレスを数字からドットに変換する：

 perl -e "print unpack('N', pack('C4', split /\./, shift))" 127.0.0.1 

現在のフォルダーとそのサブフォルダー内の.svnフォルダーを（再帰的に）削除する

 perl -MFile::Find -MCwd -e '$path = getcwd;finddepth(sub {print $File::Find::name."\n"}, "$path")' | grep '\.svn$' | perl -ne 'system("rm -rf $_")'; 

Windowsでも同じこと：

 perl -MFile::Find -e "finddepth(sub{ print $File::Find::name . \"\n\"; }, '.')" | perl -ne "print if /.svn$/" | perl -pe "s|/|\\|g" | perl -ne "system(\"rd /s /q $_\");" 

16進IPアドレス出力

 perl -e "printf '%02x' x 4, split /\./, shift" 127.0.0.1 

ファイルの先頭に「＃！/ Usr / bin / perl」という行を追加します

 perl -i.bak -pe "print \"#!/usr/bin/perl\n\" if $. == 1" abc.pl 

Linux / Unixの場合：

 perl -i.bak -pe 'print "#!/usr/bin/perl\n" if $. == 1' abc.pl 

なぜこれが必要なのですか？

約束したように、なぜこれがすべて必要なのかを書きます。 find、awk、grep、sedがあると言えますが、なぜ単一行のPerlなのでしょうか？

まず、Windowsでは、デフォルトでgrepとawkはありません。 はい、もちろんgrepを使用して行を選択する方が高速ですが、たとえばファイルの名前を変更するなど、もう少し行う必要がある場合はどうでしょうか。 結局、あると言う、そうです。 それでは、単線真珠を守るために何と言いますか？

そしてここに何があります：

まず、Perlでプログラミングする場合、Perlを非常によく覚えているので、人を見ずにすぐに単一行のプログラムの作成を開始できます。 （ただし、最初は少し珍しいかもしれませんが、参加すると簡単になります）

第二に、Perlを使用すると便利です。 たとえば、Perlの力でawkの類似物（-aフラグを参照）が必要な場合（たとえば、単一行プログラムでpack、unpack、またはPerl正規表現を使用したい）

第三に
Perlは強力な言語です。 単一行のperlプログラムは、コマンドラインのみの通常のPerlプログラムです。 したがって、単一行の真珠プログラムはさまざまなタスクに使用できます！ （ただし、長い単一行のプログラムを作成しない方が良いと思います。通常の真珠のスクリプトを作成する方が良いでしょう）。

おわりに

grep、find、sed、またはawkを拒否することを強くお勧めするだけだとは思わないでください。 私は促しません！ 私自身もgrepを使い続けています。 Perlでプログラミングする人にとって便利な「1行の真珠」として別の便利なツールについてお話ししたかったのは、1）人を読む必要がない（すでにすべてを覚えている）、2）Perlの力が使用されているから

ご清聴ありがとうございました。 興味がある人はここに送ってください：

perldoc.perl.org/perlrun.html-perldoc、すべてのフラグの説明。
sial.org/howto/perl/one-liner-さまざまな例

私はあなたに単語を使って真珠の単一行プログラムをグーグルにすることを勧めます：ワンライナー

更新：
Windowsで\ r \ nを\ nに置き換えるには、次のように書くだけです。

 perl -i.bak -ple "s/\r|\n//g;binmode ARGVOUT" file.txt 

アントン・シェルビニンを尊重する

更新：
AntonShcherbininのコードに追加された「 s / \ r | \ n // g; 」、それ以外の場合はLinuxでbinmodeをロールしないだけで、このコードは普遍的です：WindowsとLinuxの両方で動作します。

アップデート（2012年8月26日）：
<source lang = "Perl"> </ source>タグの下のコード例を書き直しました