Perl to the Rescue

So here's a simple example of the sort of small Perl script I routinely cobble together for work. In this case I needed to run a quick external program repeatedly on a series of files and extract the parameters used inside. The files were named with whether or not they were correct, and this code uses that to build a table which sorts the files and summarizes the parameters.

	use strict;
	use DirHandle;
	my %results;
	foreach my $directory (@ARGV)
	{
	my $dir = DirHandle->new($directory);
	my @files = grep { /\.data/i } $dir->read();
	foreach my $file (@files)
	{
	my $parameters = [];
	open DATA, "code.exe $directory\\$file |" or die "Unable to run code.exe: $!\n";
	while (<DATA>)
	{
	$parameters->[$1] = $2 if (/parameter\s*\[(\d+)\]\s*\=\s*(.+)/);
	}
	close DATA;
	$results{$file} = $parameters;
	}
	}
	my @sorted_correct_files = sort grep { /Correct/ } keys %results;
	my @sorted_incorrect_files = sort grep { !/Correct/ } keys %results;
	print "\nResults:\n";
	foreach my $file (@sorted_correct_files, @sorted_incorrect_files)
	{
	format STDOUT =
	@<<<<<<<<<<<<<<<<<< @#### @#### @#### @#### @#### @#### @#### @#### @####
	$file, $results{$file}->[1], $results{$file}->[2], $results{$file}->[3], $results{$file}->[4], $results{$file}->[5], $results{$file}->[6], $results{$file}->[7], $results{$file}->[8], $results{$file}->[9]
	.
	write;
	}

view raw make_table.pl hosted with ❤ by GitHub

There are a few ways this script is atypical for me. The brainwashing has worked -- for the first time I can remember, I actually started a script with use strict. I don't think it saved me this time, but it was simple enough to obey its strictures.

This is the first time I've used the DirHandle module. Combined with grep, it proved an elegant way to get the filenames to work on.

And actually, the use of grep to filter lists is a fairly new technique, which I think I picked up in my Perl 6 experiments.

By the way, once the full table was generated, I had the bug's cause pinned down in about twenty seconds.