#!/usr/bin/perl # # Programmer: Craig Stuart Sapp # Creation Date: Mon Dec 15 14:00:15 PST 2008 # Last Modified: Mon Dec 15 14:00:15 PST 2008 # Filename: /disk/linux3/craigsites/mazurka/website/auto/scorealign/mazurka68-3/makemazurkaindex # Syntax: perl 5 # # Description: # use strict; #pid919401-04-sa.txt #pid919401-04-sadiff.txt #pid919401_04.eps #pid919401_04.png my %performerpid = getPerformerPid("/project/mazurka/website/info/discography/mazurka-discography.txt"); my @keys = sort keys %performerpid; my @printlist; my $i; my $label; for ($i=0; $i<@keys; $i++) { if (-r "$performerpid{$keys[$i]}.png") { $label = $keys[$i]; $label =~ s/\t.*//; $printlist[@printlist] = $performerpid{$keys[$i]}; $printlist[@printlist] = $label; } else { # print "Cannot find $performerpid{$keys[$i]}.png\n"; } } printHeader(); printContents(@printlist); printFooter(); exit(0); ########################################################################### ############################## ## ## printHeader -- ## sub printHeader { print <<"EOT"; EOT } ############################## ## ## printContents -- ## sub printContents { my @images = @_; print ""; my $itemsperrow = 1; my $rows = (@images + ($itemsperrow - 1))/ $itemsperrow; my $file; my $label; my $base; my $jj; my $ii; for ($ii=0; $ii<$rows; $ii++) { print "\n"; for ($jj=0; $jj<$itemsperrow; $jj++) { print "\n"; } print "\n"; } print "

\n"; $file = $images[$ii * $itemsperrow + $jj * 2]; $base = $file; #$base =~ s/_/-/g; $file = "$file.png"; $label = $images[$ii * $itemsperrow + $jj * 2 + 1]; if (-r $file) { print "

"; print "[SV | "; print "diff | "; print "mb]"; } else { print ""; } print "

"; } ############################## ## ## printFooter -- ## sub printFooter { print <<"EOT"; EOT } ############################## ## ## getPerformerPid -- ## sub getPerformerPid { my ($file) = @_; my $line = "XXXX"; open (FILE, $file) or die; my %output; my $pid; my $perf; my $year; my @fields; while ($line = ) { chomp $line; @fields = split(/\t/, $line); next if @fields < 8; $pid = $fields[7]; $perf = $fields[2]; $year = $fields[3]; next if $pid =~ /pid/; #$pid =~ s/-/_/g; $pid = "pid$pid"; $output{"$perf $year\t$pid"} = "$pid"; } close FILE; return %output; }