hikiko/image-list.pl

## image-list.pl
#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use Getopt::Long;
use File::MimeInfo;

my @files;
my $help;
my $filetype;
my $dir;

GetOptions("d=s" => \$dir,
		   "h"   => \$help);

if ($help) {
	print qq[Help:
		-d <directory>, png images directory
		-h, print this help and exit]."\n";
		exit;
}

if (!$dir) {
	$dir = ".";
}
die "Directory $dir not found.".$!."\n" unless -d $dir;

opendir(DIR, $dir) or die "Failed to open $dir: ".$!."\n";
@files = (readdir DIR) or die $!."\n";
closedir(DIR) or die $!."\n";

my $index = "$dir/index.html";
open FP, ">", $index;

print FP qq[
<html>
	<body>
		<table>
			<tr><th>Image</th><th>Filename</th></tr>];
my $mime_info = File::MimeInfo->new();
foreach (@files) {
	next if (!$_ || $_ eq "." || $_ eq ".." || -d "$dir/$_" );
	$filetype = $mime_info->globs($_);
	next unless $filetype eq qq[image/png];

	print FP qq[
			 <tr><td><img src="$_" alt="$_"></td>];
			 $_ =~ s{\.[^.]+$}{};
	print FP qq[<td>$_</td></tr>];
}
print FP qq[
		</table>
	</body>
</html>];
close FP or die $!."\n";
	#!/usr/bin/perl

	use strict;
	use warnings;
	use diagnostics;

	use Getopt::Long;
	use File::MimeInfo;

	my @files;
	my $help;
	my $filetype;
	my $dir;

	GetOptions("d=s" => \$dir,
	"h" => \$help);

	if ($help) {
	print qq[Help:
	-d <directory>, png images directory
	-h, print this help and exit]."\n";
	exit;
	}

	if (!$dir) {
	$dir = ".";
	}
	die "Directory $dir not found.".$!."\n" unless -d $dir;

	opendir(DIR, $dir) or die "Failed to open $dir: ".$!."\n";
	@files = (readdir DIR) or die $!."\n";
	closedir(DIR) or die $!."\n";

	my $index = "$dir/index.html";
	open FP, ">", $index;

	print FP qq[
	<html>
	<body>
	<table>
	<tr><th>Image</th><th>Filename</th></tr>];
	my $mime_info = File::MimeInfo->new();
	foreach (@files) {
	next if (!$_ \|\| $_ eq "." \|\| $_ eq ".." \|\| -d "$dir/$_" );
	$filetype = $mime_info->globs($_);
	next unless $filetype eq qq[image/png];

	print FP qq[
	<tr><td><img src="$_" alt="$_"></td>];
	$_ =~ s{\.[^.]+$}{};
	print FP qq[<td>$_</td></tr>];
	}
	print FP qq[
	</table>
	</body>
	</html>];
	close FP or die $!."\n";