Yep... Im a Code Slinger... Its just what I do!
What can I say, I happen to be a programmer, Its what I do for fun, work, and happens to be what I am attending this god awfull school for. Therefor, here is my programmer page that I feel I am required to have.
Useless C++ Project of the moment: SuperComputer
This is my wierd attempt at makeing a virtual cpu in software. It really serves no point other than giving me something to do, and allowing me to play around with low level stuff! Maybe i will post some more details later.
UseFull Perl Script of the moment: PhotoFlow
Here is a script I threw together last week to go through the current folder and resise all the jpg's to the given size and save it useing the given file names. Its acually quite usefull!.
#!/usr/bin/perl
#################################################
#Copyright 2005 Future X Design: Kevin Balthaser#
#Author: Kevin Balthaser #
#Date: 1/28/2005 #
#Point: Go thorough a directory and resize pics#
#Licence: Open, Do as you wish! #
#################################################
use Image::Magick;
my $input;
my $output;
my $width;
my $heigth;
my $result;
my $i;
$i = 0;
print ("Enter the output name:\t");
$input = ;
chomp($input);
print ("\n");
print ("Enter new Width:\t");
$width = ;
chomp($width);
print ("\n");
print ("Enter new Heigth:\t");
$heigth = ;
chomp($width);
@files = glob ("*.jpg");
$geo = $width . "x" . $heigth;
foreach(@files) {
$output = $input . "-" . $i . ".jpg";
$image=Image::Magick->new;
$result = $image->Read($_);
$result = $image->Resize(geometry=>$geo);
$result = $image->Write($output);
undef $image;
$i ++;
}
|
