Make VGA 640x480 size jpeg.pl

print "\n# read_file_names_only: input are @in" if $verbose;

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Directory entry and opts detection
#_________________________________________
for($k=0; $k < @in; $k++){
if ( $ineq '.'){ push(@in_dir,$pwd); splice(@in, $k, 1); $k--; next }
if( !(ref($in[$k))){
print "\n# read_file_names_only: $inis not a reference";
if($in[$k=~/D=(\S+)/i){
print "\n# read_file_names_only : $1 is used as input dir ";
push(@in_dir, $1); splice(@in, $k, 1); $k--; next; }
if( -d "$in){
print "\n# read_file_names_only: $in[$k is a dir";
if($in/> $path_include=1; ## If the input dir has '/', I assume path should be added to out file names
print "\n# read_file_names_only: \$path_include is set to 1";
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Removes the last slash '/' of input dir name
#________________________________________________
if($in[$k=~/\/$/){ chop($in}
push(@in_dir, $in[$k);
splice(@in, $k, 1); $k--; next;
}
if(!(-f $inand $in[$k =~ /^\-p *$/ ){ ## somehow, ' *' is essential
$path_include=1;
splice(@in, $k, 1); $k--;
}elsif(!(-f $inand $in[$k =~ /^\-s *$/ ){$sort_opt=1; splice(@in, $k, 1); $k--;
}else{
print "\n# (W) read_file_names_only: $innot a file, nor dir, a file extnsion?\n";
}
}elsif(ref($in[$k)){
if(ref($ineq 'SCALAR'){
if( -d ${$in[$k}){
if(${$inchop(${$in[$k}) }
push(@in_dir,${$in/> splice(@in, $k, 1);
$k--;
}elsif(!(-f $in[$k) and ${$in=~ /^\-p$/ ){$path_include=1; splice(@in, $k, 1); $k--;
}elsif(!(-f $in[$k) and ${$in=~ /^\-s$/ ){$sort_opt=1; splice(@in, $k, 1); $k--;}
}elsif(ref($in[$k) eq 'ARRAY'){
@target_file_names=@{$insplice(@in, $k, 1); $k--;
for($x=0; $x < @target_file_names; $x++){ # making a hash out of @array
$target_file_names{$target_file_names[$x}=$target_file_names/> }
}
}
}
if(@in_dir < 1){ push(@in_dir, $pwd) }
if($verbose){
print "\n# read_file_names_only: Final input directories are : @in_dir";
print "\n# read_file_names_only: going to \'File name and extension detection\' stage with \@in";
}

for($k=0; $k < @in; $k++){
if( !(ref($in[$k))){
if($in/> $glob_given=1;
#~~~~~~~~~~~~~~~~~~~~~ Reads globbed files and attaches path if opt -p is set
if($path_include==1){ @final_files=map{ "$dir/$_" } <$in[$k>;
}else{ @final_files=<$in}
splice(@in, $k, 1); $k--;
}elsif(!(-f $in[$k) and $in=~/e=\.?(\S+)/){
$temp=$1;
if($temp=~/\,/){ push(@extensions, split(/\,/, $temp));
}else{ push(@extensions, $temp); }
splice(@in, $k, 1); $k--;
$extension_given =1;
}elsif(!(-f $in[$k) and $in=~/\.*(\S+)/){
$temp=$1;
if($temp=~/^e=$/){ next } ## Empty extension entry case.
print "\n# read_file_names_only: pushing $1 as an extension" if $verbose;
$extension_given =1; push(@extensions, $temp);
splice(@in, $k, 1); $k--;
}elsif(!(-f $in[$k) and $in=~/^([^\-{0,8})$/){ ## extension name can not be larger than 8 chars
print "\n# read_file_names_only: pushing $1 as an extension" if $verbose;
$extension_given =1; push(@extensions, $1);
splice(@in, $k, 1); $k--;
}
}elsif(ref($in/> if(ref($in[$k) eq 'SCALAR'){

if(${$in/> $glob_given=1;
if($path_include==1){ @final_files=map{ "$dir/$_" } <${$in[$k}>;
}else{ @final_files=<${$in}
splice(@in, $k, 1); $k--;
}elsif(!(-f ${$in[$k}) and ${$in=~/e=(\S+)/ ){ $extension_given = 1;
$temp=$1;
if($temp=~/\,/){ push(@extensions, split(/\,/, $temp));
}else{ push(@extensions, $temp); }
splice(@in, $k, 1); $k--;
}elsif(!(-f ${$in[$k}) and ${$in=~/^\.?(\S+)/ ){$extension_given =1;
push(@extensions, $1); splice(@in, $k, 1); $k--;
}
}
}
}
chdir($pwd);
}
if( $glob_given == 1 and $extension_given !=1 ){ # when glob input is given only(without any extension input!
print "\n# read_file_names_only: You used glob for file name, but without extension name\n" if $verbose;
return(\@final_files);
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
# Main READING PART
#_________________________________________________
print "\n# read_file_names_only: \@in_dir is @in_dir, @extensions\n";
for($k=0; $k< @in_dir; $k++){
chdir($in_dir[$k) or die "\n# read_file_names_only: could not get into $in_dir/> opendir(DIR1, ".");
@read_files = readdir(DIR1);
print "\n# read_file_names_only: content of \@read_files in $in_dir[$k : @read_files\n" if $verbose;
if(@read_files < 1){ print "\n# read_file_names_only: ERROR??, \@read_files is empty\n\n\n"; }
for($i=0; $i < @read_files; $i ++){
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# If the user has specified the target file names
#____________________________________________________
if( @target_file_names > 0){
if( -f "$read_filesand -s $target_file_names{$read_files[$i} ){ ##
if($extension_given ==1 ){
for $ext (@extensions){
if( $read_files=~ /\.$ext$/){
if($path_include==1){
push(@final_files, "$in_dir[$k\/$read_files);
}else{
push(@final_files, "$read_files[$i" );
}
}
}
}else{ ## reading everything !!!
push(@final_files, $read_files/> }
}
}else{
if( -f "$read_files[$i" ){ ##
if($extension_given ==1 ){
for $ext (@extensions){
if( $read_files=~ /\.?$ext$/){
if($path_include==1){
push(@final_files, "$in_dir[$k\/$read_files);
}else{
push(@final_files, "$read_files[$i" );
}
}
}
}else{ ## reading everything !!!
push(@final_files, $read_files$i);
}
}
}
}
chdir($pwd);
}
@final_files=sort @final_files if $sort_opt == 1;
return(\@final_files);
}