#! /usr/bin/perl -w

# rgbtojpg: convert all rgbs in current dir to jpgs (uses ImageMagick)

$quality = 90;

opendir(DIR, '.') || die "Cannot open current directory: $!";
@rgbfiles = grep /.rgb/, (grep !/^\.\.?$/, readdir DIR);
close(DIR);

@jpgfiles = @rgbfiles;
grep s/rgb/jpg/, @jpgfiles;

print "Converting files...\n";
 
for ($i = 0; $i <= $#rgbfiles; $i++)
{
  print "convert -quality $quality $rgbfiles[$i] $jpgfiles[$i]\n";
  system ("convert -quality $quality  $rgbfiles[$i] $jpgfiles[$i]\n");
}