hikiko

#!/usr/bin/perl

use strict;
use warnings;

use Term::ANSIColor;
local $Term::ANSIColor::AUTOLOCAL = 1;

my $fname = $ARGV[0];
if(not defined $fname) {

hikiko

#include <stdio.h>

int main(int argc, char **argv)
{
	FILE *fp;
	int cur, c, prevc;

	if(argc < 2) {
		fprintf(stderr, "You should provide a filename.\n");
		return 1;

hikiko

#!/usr/bin/perl

use strict;
use warnings;

use IPC::System::Simple qw(capture);

my %cubefaces = (
		astc10_rgba => ["astc10-rgba.cube1", "astc10-rgba.cube2", "astc10-rgba.cube3", "astc10-rgba.cube4", "astc10-rgba.cube5", "astc10-rgba.cube6"],
		astc10_srgba => ["astc10-srgba.cube1", "astc10-srgba.cube2", "astc10-srgba.cube3", "astc10-srgba.cube4", "astc10-srgba.cube5", "astc10-srgba.cube6"],

hikiko

#!/usr/bin/perl

use strict;
use warnings;

my $string = "unsigned char pixels[] = {";

my %facecolors = (
		a => "255, 0, 0",
		b => "0, 0, 255",

hikiko

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy qw(copy);
#use X11::Protocol;

my $fname = $ARGV[0];
if(not defined $fname) {
	die "No input\n";
}

hikiko

#!/usr/bin/perl

use strict;
use warnings;
use POSIX;
use List::Util qw[min max];

my $fname = $ARGV[0];
if(not defined $fname) {
	die "You must set the vectors filename.\n";

hikiko

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long;

my $dir;
my $extname;
my $help;

hikiko

#!/usr/bin/perl

use strict;
use File::Path qw(rmtree);
use File::Copy;
use File::MimeInfo;
use Image::Magick;

my @files;

hikiko

#!/usr/bin/perl

use strict;
use Encode;
use File::Copy;
 
my $dir;
my @files;
my $file;
my $initfile;

hikiko

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use Getopt::Long;

my $dir = ".", my $help;
GetOptions("d=s" => \$dir,