Perl を使用して単純な grep のように動作するバッチ ファイルを作成するにはどうすればよいですか?
-
01-07-2019 - |
質問
私はこの質問に対する明確な答えをすでに知っています。「<お気に入りの Windows grep または grep に似たツールをここに挿入> をダウンロードするだけです。」ただし、私は、コンピューター上で何が許可されているかについて、現地の IT スタッフによって厳格に管理されている環境で働いています。敢えて言うなら:Windows XP で Perl にアクセスできます。これは、私が思いついた、私が望むことを行う簡単な Perl スクリプトです。しかし、コマンド出力をパイプで渡すか、ファイル (またはファイルのリスト) を渡すことができるバッチ ファイルを設定する方法がわかりません。 ?) 「grep する式」の後の引数として:
perl -n -e "print $_ if (m![expression]!);" [filename]
たとえば、次のようなことを実行できるバッチ スクリプトを作成するにはどうすればよいですか。
dir | grep.bat mypattern grep.bat mypattern myfile.txt
編集:別の「回答」を付けましたが、賞賛を送りたいと思いました。 レイ・ヘイズの答え, 、たとえ別の答えが技術的に私が望んでいたものに近いとしても、それは実際には「Windows Way」であるためです。
解決
少し前にこう書きました。
@rem = '--*-Perl-*--
@echo off
perl -x -S %0 %*
goto endofperl
@rem -- BEGIN PERL -- ';
#!d:/Perl/bin/perl.exe -w
#line 10
use strict;
#use Test::Setup;
use Getopt::Long;
Getopt::Long::Configure ("bundling");
my $ignore_case = 0;
my $number_line = 0;
my $invert_results = 0;
my $verbose = 0;
my $result = GetOptions(
'i|ignore_case' => \$ignore_case,
'n|number' => \$number_line,
'v|invert' => \$invert_results,
'verbose' => \$verbose,
);
my $regex = shift;
if ( $ignore_case ) {
$regex = "(?i:$regex)";
}
$regex = qr/$regex/;
print "\$regex=$regex\n";
if ( $verbose ) {
print "Verbose: Ignoring case.\n" if $ignore_case;
print "Verbose: Printing file name and line number.\n" if $number_line;
print "Verbose: Inverting result set.\n" if $invert_results;
print "\n";
}
@ARGV = map { glob "$_" } @ARGV;
while ( <> ) {
my $matches = m/$regex/;
next unless $matches ^ $invert_results;
print "$ARGV\:$.:" if $number_line;
print;
}
__END__
:endofperl
他のヒント
grep の機能のほとんどは、すべての Windows 2000、XP、および Vista マシンに含まれる Windows アプリケーション FindStr.exe ですでにマシン上で利用可能です。RegExpr などを提供します。
Perl を呼び出すバッチ ファイルよりもはるかに簡単です。
c:\>FindStr /?
Searches for strings in files.
FINDSTR [/B] [/E] [/L] [/R] [/S] [/I] [/X] [/V] [/N] [/M] [/O] [/P] [/F:file]
[/C:string] [/G:file] [/D:dir list] [/A:color attributes] [/OFF[LINE]]
strings [[drive:][path]filename[ ...]]
/B Matches pattern if at the beginning of a line.
/E Matches pattern if at the end of a line.
/L Uses search strings literally.
/R Uses search strings as regular expressions.
/S Searches for matching files in the current directory and all
subdirectories.
/I Specifies that the search is not to be case-sensitive.
/X Prints lines that match exactly.
/V Prints only lines that do not contain a match.
/N Prints the line number before each line that matches.
/M Prints only the filename if a file contains a match.
/O Prints character offset before each matching line.
/P Skip files with non-printable characters.
/OFF[LINE] Do not skip files with offline attribute set.
/A:attr Specifies color attribute with two hex digits. See "color /?"
/F:file Reads file list from the specified file(/ stands for console).
/C:string Uses specified string as a literal search string.
/G:file Gets search strings from the specified file(/ stands for console).
/D:dir Search a semicolon delimited list of directories
strings Text to be searched for.
[drive:][path]filename
Specifies a file or files to search.
Use spaces to separate multiple search strings unless the argument is prefixed
with /C. For example, 'FINDSTR "hello there" x.y' searches for "hello" or
"there" in file x.y. 'FINDSTR /C:"hello there" x.y' searches for
"hello there" in file x.y.
Regular expression quick reference:
. Wildcard: any character
* Repeat: zero or more occurances of previous character or class
^ Line position: beginning of line
$ Line position: end of line
[class] Character class: any one character in set
[^class] Inverse class: any one character not in set
[x-y] Range: any characters within the specified range
\x Escape: literal use of metacharacter x
\<xyz Word position: beginning of word
xyz\> Word position: end of word
ダウンロードとインストール 確認しました. 。これは grep の優れた代替品であり、Perl のマジック デュアル モード .BAT / Perl スクリプト マジックのおかげで、コマンド ラインで動作します。
まず、これをワンライナーではなく実際のスクリプトに変換します。
use strict;
use warnings;
my $pattern = shift or die "Usage: $0 <pattern> [files|-]\n";
while (<>) { print if /$pattern/ }
次に、pl2bat を使用してバッチ ファイルに変換します。
pl2bat mygrep.pl
これにより「mygrep.bat」が作成されます。
完全に Perl で書かれたフル機能の grep (および他の多くの Unix アプリケーション) については、 Perl パワーツール プロジェクト。
Perl を実行することしかできない場合は Perl Power Tools が適していますが、私は通常、次のセットを好みます。 GnuWin32 ツール。インストールは必要ありません。(管理者権限は必要ありません。書き込み可能なディレクトリがあれば十分です。)
私もアックスマン氏と氏の意見に同意する。ヘイズ氏は、仕事のためにより良いツールを使用することについて語ります。つまり、ファイルのワイルドカード式に対してカスタム スクリプトを実行するには、バッチ ファイルで次のようなことを試すことができます。
@echo off
for /f "usebackq delims==" %%f in (`dir /w /b %2`) do (
perl -n -e "print $_ if (m!%1!);" "%%f"
REM or something like: myperlscript.pl %1 "%%f"
)
このようにして、「grep mypattern myfile.txt」、「grep mypattern .」、「grep mypattern *.doc」などの操作を行うことができます。
次のようなことを行う必要があります。
@echo off
perl -x -S script.pl %1
「%1」は引数を Perl スクリプトに渡します。それを .bat ファイルとして保存すれば準備完了です。