#!/usr/bin/perl

my $jpath = "";
local $jrtempfile = "D:\\util\\jr.tmp";

my @files = read_dir($jpath);
foreach $afile (@files) {
        if($afile eq "") {
        }
        else {
                #print "JIN:$afile:\n";
                my $bfile = $afile;
                $bfile =~ s/\[abc\]/\[a b c\]/g;
                #$bfile =~ s/\[a b c\]/\[abc\]/g;
                if($afile eq $bfile) {}
                else {
                        #print "move \"$afile\" \"$bfile\"";
                        system("move \"$afile\" \"$bfile\"");
                }
        }
}


sub read_dir {
        my ($jpath) = @_;
        my @lists = "";

        system("dir $jpath > $jrtempfile");
        open(IN,"$jrtempfile");
        my @files =<IN>;
        close(IN);
        system("del $jrtempfile");

        foreach $afile (@files) {
                my ($fname,$fext,$fsize,$fdate,$ftime,$flname)
                        = &read_dirline($afile);
                #print "O:$fname:$fext:$fsize:$fdate:$ftime:$flname:\n";
                if(! $fname) {
                        #rint " ...Nothing...\n";
                }
                elsif($fname =~ /^\./) {
                        #rint ".:$fname:$fext:$fsize:$fdate:$ftime:$flname:\n";
                }
                elsif($fsize =~ /\<DIR\>/) {
                        #rint "D:$fname:$fext:$fsize:$fdate:$ftime:$flname:$jpath:\n";
                }
                else {
                        #rint "F:$fname:$fext:$fsize:$fdate:$ftime:$flname:$jpath:\n";
                        push(@lists,$flname);
                }
        }
        return @lists;
}

sub read_dirline {
        my ($dirline) = @_;
        chop($dirline);

        if($afile =~ /^\s/) {
                return ();
        }
        else {
                my @abc = split('',$dirline,13);
                my $fname = join('',@abc[0..7]);
                $fname =~ s/\s//g;
                my $fext = join('',@abc[9..11]);
                $fext =~ s/\s//g;
                $abc[12] =~ s/^[\s]+//g;
                my ($fsize,$fdate,$ftime,$flname) = split(/[\s]+/,$abc[12],4);
                return($fname,$fext,$fsize,$fdate,$ftime,$flname);
        }
}