#!/usr/local/bin/perl

# 
# zzcat: {.gz|.Z} は zcat で，それ以外 は cat で出力する
# 
#     [1997/10/16] OSHIRO Naoki.
#     [1998/01/26] OSHIRO Naoki. verbose filname '-v' option.
# 
#     $Log:$
#

require "getopts.pl";
&Getopts("v"); # v:verbose filename

if ($0=~/zzgrep$/) {
    $opt_g=shift(@ARGV);
}
foreach $f (@ARGV) {
    #print STDERR "$f:\n" if $opt_v;
    $com=($f=~/\.(gz|Z)$/)? "zcat":"cat";
    open(F, "$com $f |");
    while (<F>) {
	if (!$opt_g || /$opt_g/) {
	    print "$f:" if $opt_v;
	    print "$_";
	}
    }
    close(F);
}