10

この質問に対する明白な答えはすでに知っています。ただし、私は、ローカルの IT スタッフによって、コンピューターに何を入れることが許可されているかについて厳密に管理されている環境で働いています。Windows XP で Perl にアクセスできます。ここに私が思いついた簡単なPerlスクリプトがありますが、コマンド出力をそれにパイプするか、ファイル（またはファイルのリスト）を渡すことができるようにバッチファイルを設定する方法がわかりません?) 「grep への式」の後の引数として:

perl -n -e "print $_ if (m![expression]!);" [ファイル名]

たとえば、次のようなバッチ スクリプトを作成するにはどうすればよいですか。

ディレクトリ | grep.bat マイパターン
grep.bat mypattern myfile.txt

編集:別の「回答」をマークしましたが、別の回答が技術的に私が望んでいたものに近い場合でも、それを行うのは本当に「Windows Way」であるため、Ray Hayes の回答に称賛を与えたいと思いました。

4

6 に答える 6

27

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
于 2008-09-19T22:18:54.387 に答える
12

ackをダウンロードしてインストールします。これは grep の優れた代替品であり、Perl のマジック デュアル モード .BAT / Perl スクリプト マジックのおかげで、コマンド ラインで動作します。

于 2008-09-19T22:49:02.863 に答える
5

まず、ワンライナーではなく実際のスクリプトに変換します。

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 Power Toolsプロジェクトを参照してください。

Perl しか実行できない場合は Perl Power Tools が適していますが、私は一般的にGnuWin32ツールのセットを好みます。インストールは必要ありません。(管理者権限は必要ありません。書き込み可能なディレクトリだけが必要です。)

于 2008-09-19T23:15:04.703 に答える
5

私はこれをしばらく前に書きました：

@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
于 2008-09-19T22:29:39.930 に答える
1

次のようなことをする必要があります：

@echo off
perl -x -S script.pl %1

「%1」は引数を Perl スクリプトに渡します。.bat ファイルとして保存すれば、準備完了です。

于 2008-09-19T22:19:00.237 に答える
1

仕事により良いツールを使用することについて、Axeman と Hayes 氏に同意します。とはいえ、バッチ ファイルで次のようなことを試して、ファイルのワイルドカード式に対してカスタム スクリプトを実行することもできます。

@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」などを実行できます。

于 2008-09-19T22:39:40.780 に答える