Perlの正規表現の練習に基づいて、

説明：第IV章の第3版の自動洗練「浸透テスターのためのGoogleのハッキング」からのコンテンツのこの部分

目標

テキスト検索、電子メールアドレス、のURLとIPのアドレスを

Perlスクリプト

#!/usr/bin/perl
# 
# Usage: ./search.pl FILE_TO_SEARCH WORDLIST
#
use strict;
open(SEARCHFILE,$ARGV[0]) || die("Can not open searchfile because $!");
open(WORDFILE,$ARGV[1]) || die("Can not open wordfile because $!");
my @WORDS=<WORDFILE>;
close(WORDFILE);
my $LineCount = 0;
while(<SEARCHFILE>){
    foreach my $word (@WORDS){
	chomp($word);
	++$LineCount;
	if(m/$word/) {
		print "$&\n";
		last;
		}
	}
}
close(SEARCHFILE);

サプリメント

。改行以外の任意の文字にマッチ
マッチ「[^ A-ZA-Z0-9_に文字またはアンダースコア文字や数字、または同等のワット\ ]」を。
\ sが空白と一致する
D試合番号\
\ bは単語の先頭や末尾と一致する
^文字列が開始と一致する
、一致する文字列$の終わりを

IPレギュラー

(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])

URLの正規の

[a-zA-Z]{3,4}[sS]?://((([\w\d\-]+\.)+[a-zA-Z]{2,4})|((25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])))((\?|/)[\w/=+#_~&:;%-\?\.]*)*

通常のメール

[a-zA-Z0-9\._\-]+@(([a-zA-Z0-9._-]{2,99}\.)+[a-zA-Z]{2,4})|((25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9])\.(25[0-5]|2[0-4]\d|1\d\d|[1-9]\d|[0-9]))

例