csv_grep.pl

csv_grep.pl

#!/usr/bin/env perl

# csv_grep.pl
# (c) 2011, Chetan Sarva <chetan@evidon.com>

use Getopt::Long;
use Data::Dumper;

my($dump, $field, $exact, $str);
my $ret = GetOptions(
    "d|dump"    => \$dump,
    "e|exact"   => \$exact,
    "f|field=i" => \$field,
);
$str = "@ARGV";

if (!$dump && (length $str == 0 || !$field)) {
    print "usage: csv_grep.pl [--dump] [--exact] --field <num> <search string>\n";
    exit;
}

while (<STDIN>) {
    chomp;

    my @s = split(/\t/);

    if ($dump) {
        for (my $i = 0; $i < scalar @s; $i++) {
            print "$i: $s[$i]\n";
        }
        exit;
    }

    my $v = $s[$field];
    if (($exact && $v eq $str) || $v =~ /$str/) {
        print "$_\n";
    }

}