scripts/indexed-filenames


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

#!/usr/bin/perl -w

use strict;

open(FH, $ARGV[0]);

my $line;
my $is_indexed;
my $filename;
my $event = "";

while ( $line = <FH> ) {

	if ( $line =~ /^-----\ Begin chunk\ -----$/ ) {
		$is_indexed = 0;
		$event = "";
	}

	if ( $line =~ /^Image\ filename: (.*)$/ ) {
		$filename = $1;
	}

	if ( $line =~ /^Event: (.*)$/ ) {
		$event = $1;
	}

	if ( $line =~ /^Cell\ parameters/ ) {
		$is_indexed = 1;
	}

	if ( $line =~ /^-----\ End chunk\ -----$/ ) {
		if ( $is_indexed ) {
			printf("%s", $filename);
			if ( $event ) {
				printf(" %s\n", $event);
			} else {
				printf("\n");
			}
		}
	}


}