タグ付けされた質問 「perl」

特定の検索条件に基づいてファイル内の文字列を置き換えることは非常に一般的なタスクです。どうやって 現在のディレクトリ内のすべてのファイルで文字列fooを置き換えますbarか？ サブディレクトリにも同じことを繰り返しますか？ ファイル名が別の文字列と一致する場合にのみ置き換えますか？ 特定のコンテキストで文字列が見つかった場合にのみ置き換えますか？ 文字列が特定の行番号にある場合は置き換えますか？ 複数の文字列を同じ置換で置き換えます 複数の文字列を異なる置換に置き換えます

752 text-processing  awk  sed  perl 

Perlのドキュメントでは、perlrun（1）は、バイリンガルシェル/ Perlヘッダーを使用してPerlスクリプトを起動することを提案しています。 #!/bin/sh #! -*-perl-*- eval 'exec perl -x -wS $0 ${1+"$@"}' if 0; どういう${1+"$@"}意味ですか？"$@"代わりに（Bashを/ bin / shとして使用して）使用してみましたが、同様に機能するようです。 編集 以下の2つの回答は、にあるはずだと言っています${1:+"$@"}。${parameter:+word}bash（1）で文書化されている（ "Use Alternate Value"）構文を知っています。しかし、私は納得できません。なぜなら 両方${1+"$@"}と"$@"うまく、パラメータがない場合でも作業。としてsimple.shを作成した場合 #!/bin/sh eval 'exec /usr/bin/perl -x -S -- $0 "$@"' if 0; #!perl use Data::Dumper; print Dumper(\@ARGV); およびquestion.shとして #!/bin/sh eval 'exec /usr/bin/perl -x -S -- $0 ${1+"$@"}' …

43 bash  shell  perl 

大きなcsvファイルを含むディレクトリとサブディレクトリのリストがあります。これらのファイルには約5億行あり、それぞれがレコードです。私が知りたいのですが 各ファイルの行数。 ディレクトリ内の行数。 合計何行 最も重要なことは、「人間が読める形式」でこれが必要なことです。12345678ではなく12,345,678 3つの方法でこれを行う方法を学ぶといいでしょう。プレーンバニラバッシュツール、awkなど、およびperl（またはpython）。

40 bash  awk  python  perl 

Windows管理から来て、Linux（Debian）をさらに掘り下げたいと思います。Webの検索に答えることができなかった（見つけられなかった）私の非常に難しい質問の1つは、PowerShell for Windowsのようないわゆる「一対多」のリモーティングをどのように達成できるかということです。 それを基本に分解するには： Linuxに関する私の見解： サーバーにsshしてコマンドを入力できます 結果が得られました。10台のサーバーの環境では、それぞれにコマンドを送信する（perl / python？）スクリプトを作成する必要がありますか？ Windowsからの私の経験： コマンドを入力し、「invoke-command」を使用して、これを多数のサーバー（テキストファイルから）に「送信」して、同時に実行し、結果を（さらなる作業のオブジェクトとして）取得します。 複数のセッションを確立することもでき、接続はバックグラウンドで保持され、これらのセッションに選択的にコマンドを送信し、必要に応じてリモートで入出力できます。 （シェフ、パペットなどについて聞いたことがあります。これはそのようなものですか？） Update 2019: 多くのことをしようとした後-私はお勧めレックス（参照以下このコメントを簡単にセットアップ（あなたが少しだけを知っていれば、使用する（効果的にそれだけのssh、他には何が必要） - ）はPerlそれも良いでしょうが、それはオプションです） でレックス（IFYを）アドホックコマンドを実行して実際の構成管理に進めることができます（...つまり、それは最初のCMですが、アドホックタスクにも適しています）Webサイトは古くなっていますが、現在（2019年1月現在）それは活発に開発されており、IRCチャネルもアクティブです。 Windowsの新しいopensshでは、さらに多くの可能性があります あなたが試すことができます： rex -u user -p password -H 192.168.1.3 -e 'say run "hostname"'

38 linux  ssh  perl  remote-management 

sedやawkなどの一般的なコマンドラインツールを使用して、バックスラッシュのように、特定の文字で終わるすべての行を結合できますか？ たとえば、次のファイルを考えます： foo bar \ bash \ baz dude \ happy この出力を取得したい： foo bar bash baz dude happy

36 text-processing  awk  sed  perl 

File1 内容： line1-file1 "1" line2-file1 "2" line3-file1 "3" line4-file1 "4" File2 内容： line1-file2 "25" line2-file2 "24" Pointer-file2 "23" line4-file2 "22" line5-file2 "21" perl / shellスクリプトの実行後、File2コンテンツは次のようになります。 line1-file2 "25" line2-file2 "24" line1-file1 "1" line2-file1 "2" line3-file1 "3" line4-file1 "4" Pointer-file2 "23" line4-file2 "22" line5-file2 "21" すなわち、「ポインタ」を含む行の前にFile1in の内容を貼り付けFile2ます。

32 text-processing  awk  sed  perl 

注：この質問は、このQ＆Aを補完するものです。特定の範囲ではなく、行の長さを「grep」するにはどうすればよいですか？ テキストファイル（改行で区切られたワードリスト）から行を取得する必要があるのは、長さが3文字以上で10文字以下の範囲です。 例： 入力： egyezményét megkíván ki alma kevesen meghatározó 出力： megkíván alma kevesen 質問：どうすればこれを行うことができbashますか？

28 bash  sed  grep  perl 

ほとんどのLinuxディストリビューションでPerlがデフォルトでインストールされるのはなぜですか？

28 linux  system-installation  perl  distribution-choice  distributions 

多数の大きなCSVファイルがあり、それらをTSV（タブ区切り形式）で希望しています。複雑なのは、CSVファイルのフィールドにコンマが含まれていることです。例： A,,C,"D,E,F","G",I,"K,L,M",Z 期待される出力： A C D,E,F G I K,L,M Z （その間の空白は「ハード」タブです） このサーバーにPerl、Python、およびcoreutilsがインストールされています。

27 text-processing  python  perl  csv-simple 

どうやら、実行中： perl -n -e 'some perl code' * または find . ... -exec perl -n -e '...' {} + （の-p代わりに同じ-n） または perl -e 'some code using <>' * このサイトに投稿されたワンライナーでよく見られるものは、セキュリティに影響します。どうしたんだ？それを避ける方法は？

27 security  perl  filenames  options 

Apacheのhttpdプロジェクトの「サポート/ apxs.in」スクリプトで囲まれたテキストの@兆候が後に来ます#!。つまり、スクリプトの最初の行は次のとおりです。 #!@perlbin@ -w これはPerlのものですか、それともUNIXカーネルのものですか？つまり、path/to/script/script_name.in？を使用してこのスクリプトを実行することが可能です。 そうでない場合、スクリプトを開始する理由は何#!ですか？

26 scripting  perl  shebang 

txtファイルの最後の列を削除したいのですが、列番号がわかりません。どうすればこれができますか？ 例： 入力： 1223 1234 1323 ... 2222 123 1233 1234 1233 ... 3444 125 0000 5553 3455 ... 2334 222 そして、出力を次のようにします。 1223 1234 1323 ... 2222 1233 1234 1233 ... 3444 0000 5553 3455 ... 2334

25 text-processing  sed  awk  perl 

ファイル内のテキストは次のとおりです。 Pseudo name=Apple Code=42B state=fault Pseudo name=Prance Code=43B state=good 「42B」をgrepして、上記のテキストから次のような出力を取得する必要があります。 Pseudo name=Apple Code=42B state=fault grep/ awk/ を使用してこれを達成する方法について誰にもアイデアがありますsedか？

24 text-processing  awk  sed  grep  perl 

私のDebianシステム（まあ、私のLMDEシステムですが、十分に近い）には、少なくとも3つの異なるrenameプログラムがあります。 /usr/local/bin/rename：これは、Tom Christiansenによって書かれたPerlスクリプトです。奇妙なことに、どのパッケージがインストールされているのかわかりません。 $ dpkg -S /usr/local/bin/rename dpkg-query: no path found matching pattern /usr/local/bin/rename /usr/bin/prename：Robin Barkerによって作成された別のperlスクリプト。これはperlパッケージの一部です。 $ dpkg -S /usr/bin/prename perl: /usr/bin/prename /usr/bin/file-rename：さらに別のPerlスクリプト。明確な著者情報はありませんが、Larry（おそらくWall）とRobin（おそらくBarker）の両方が言及されています。これはrenameパッケージによってインストールされ、symlinkedにもあります/usr/bin/rename： $ dpkg -S /usr/bin/file-rename rename: /usr/bin/file-rename 私も持っrename.ulてutil-linuxいますが、今のところそれを無視しましょう。これら3つのPerlスクリプトの違いは何ですか？それらはすべて同じmanページを持っているようman renameでman file-rename、man prenameすべて同じページを提供してくれます。 スクリプト自体を調べて違いを理解しようとすることもできますが、それは簡単なことではありません。Debianの世界が3つの別個のPerl名前変更スクリプトを必要とする理由を説明するためのボーナスポイント。

24 debian  perl  rename 

テキストファイル（devel.xml）があります。 この文字列を別のファイル内のコンテンツに置き換えるために、単語REPLACETHISを追加しました（temp.txt）。 私が持っている最も近いものはこれです： sed -i -e "/REPLACETHIS/r temp.TXT" -e "s///" devel.txt; これにより、文字列の後にコンテンツが挿入され、その後文字列が削除されます。 これが最善の方法ですか？

20 text-processing  sed  perl