grok_outv.pl

来自「disksim是一个非常优秀的磁盘仿真工具」· PL 代码 · 共 19 行

#!/usr/bin/perl

# extract the various distributions out of a parv file

$tag = $ARGV[0];
$found = 0;
while(<STDIN>) {
    if(/$tag/) {
	$found = 1;
    }
    elsif($found) {
	if(! /^[0-9\. \s]+$/) { 
	    exit(0); 
	}

	print "$_";
    }
}