File: to_hist

package info (click to toggle)
ucbmpeg 1r2-6
  • links: PTS
  • area: non-free
  • in suites: hamm, potato, slink
  • size: 9,504 kB
  • ctags: 7,643
  • sloc: ansic: 79,920; tcl: 2,985; perl: 313; asm: 284; makefile: 269; csh: 13
file content (15 lines) | stat: -rwxr-xr-x 221 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
$prt=0;
while(<>) {
    if ($_ =~ /Number/) {
	$prt=1;
    } else {
	if (($prt==1) && ($_ =~ /Block/)) {
	    $prt=0;
	    print " ";
	} else {		
	    if ($prt==1) {	
		print $_;	
	    }}		       
    }
}