Top > CGI(perl) > grep


grep /検索条件/ , 検索元
grep { /検索条件/ } 検索元

#!/usr/bin/perl

@searchstr = ("acha" , "porute" , "piipo");
@acha      = grep /acha/, @searchstr;
@porute    = grep { /po/ } @searchstr;
@pi        = grep { /^pi/ } @searchstr;
@indono    = grep { /yamaoku/ } @searchstr;

print "Content-type:text/html\n\n";

$length = @searchstr;

print "検索元 = ";
for ( $i = 0; $i < $length; $i++ )
{
	  print $searchstr[ $i ] . " ";
}
print "<br>";
print "achaを検索 = @acha<br>";
print "poを含むものを検索 = @porute<br>";
print "piから始まるものを検索 = @pi<br>";
print "検索結果なし = @indono<br>";

●出力結果
検索元 = acha porute piipo
achaを検索 = acha
poを含むものを検索 = porute piipo
piから始まるものを検索 = piipo
検索結果なし = 

grepは正規表現と合わせて使用すると最強です。正規表現を覚える必要があります。
コメントを外した文字列、コメントだけ、とか様々な文字列を取得することが出来ます。
文字列だけなく、ファイル名を検索したりなどほんとに便利なやつです。



Copyright © 2015 AchaPorutePiipo All Rights Reserved.