#!/usr/local/bin/jperl -- # -*- Perl -*-

# 
# memogrep: メモファイルの項目検索
# 
#     [1996/07/27] OSHIRO Naoki. 
# 
#     $Log:$
#

$delim='^---+\s*$'; # メモ区切り

$pat=shift(@ARGV); # 検索パターン取得

$pat_sw=0;
$block="";
for (<>) {
    $pat_sw=1 if /$pat/;
    if (/$delim/) {
	print "---\n$block" if ($pat_sw);
	$pat_sw=0;
	$block="";
        next;
    }
    $block.=$_;
}
print "---\n$block" if ($pat_sw);
print "---\n";