#!/usr/bin/perl
package main;
&xJCDRead("E:\\",0);

sub xJCDRead {
	my ($xpath,$xtab) = @_;
	my $i;
	my $j;
	$xtab ++;

	my $tmpfile = "jcdread.tmp";
	system("dir \"$xpath\" > $tmpfile\n");
	open(xIN,"$tmpfile");
	my @xlist=<xIN>;
	close(xIN);
	system("del $tmpfile");

	for($i=5;$i<=$#xlist-2;$i++) {
		($xdate,$xtime,$xsize,$xname,$xnames) = &xJDIRline($xlist[$i]);
		if($xsize eq "<DIR>") {
		    if($xname eq "\." || $xname eq "\.\.") {}
		    else {
			for($j=0;$j<$xtab;$j++) { print " ";}
			print "$xtab:$xnames $xdate $xtime <DIR> $xpath$xname\n";
			&xJCDRead("$xpath$xname\\",$xtab);
		    }
		}
		else {
			for($j=0;$j<$xtab;$j++) { print " ";}
			print "$xtab:$xnames $xdate $xtime $xsize $xname\n";
		}

	}
}

sub xJDIRline {
	my ($xline)=@_;
	$xline =~ s/\n//g;
	my @xlist = split('',$xline);
	my $xnames = join('',@xlist[0..7]);
	$xnames =~ s/\s//g;
	my $xext = join('',@xlist[9..11]);
	$xext =~ s/\s//g;
	if($xext) { $xnames = "$xnames\.$xext";}
	my $xsize = join('',@xlist[15..25]);
	$xsize =~ s/\s//g;
	my $xdate = join('',@xlist[28..35]);
	my $xtime = join('',@xlist[38..42]);
	$xtime =~ s/\s//g;
	my $xname = join('',@xlist[44..$#xlist]);
	($xdate,$xtime,$xsize,$xname,$xnames);
}