Re: List Contents of Windows Directory Folder

[karlgoethebier]

With "type" you mean the suffix of the file(s), right? Here is another small solution that might do the job. Give it a try. It should be easy to order the output according to your needs. Some illuminated brothers provided already some links for further reading/diving deeper a.s.o.

#!c:/perl/bin/perl.exe                                                
+                                                  

use strict;
use warnings;
use IO::All;
use File::Basename;

my ( $in, $out, $io_objects, @line );

( $in, $out ) = @ARGV;

@io_objects = io($in)->all;

for my $io_object (@io_objects) {
    if ( $io_object->type eq 'file' ) {
        @line = (
            $io_object->name,
            ( $io_object->stat )[7],
            ( $io_object->stat )[9],
            ( fileparse( $io_object, qr/\.[^.]*/ ) )[2],
        );
    }
    join( "\t", @line ) . qq(\n) >> io($out);
}

__END__

Regards, Karl