dir processing script

gistfile1.pl

#!/usr/bin/perl

use utf8;
use v5.10;
use warnings;
use File::Spec;

if ( $#ARGV == -1 ) {
    say 'Usage: fix_dirs.pl [FILE]';
    exit;
}
my %dirs = ();

while ( my $line = <> ) {

    my ( $pf, $fsize ) = split /[ ]{2}/ms, $line;
    chomp $fsize;

    my ( undef, $d, $f ) = File::Spec->splitpath($pf);

    my $prefix = '/';
    my $key    = '';
    foreach my $piece ( split /\//xms, $d ) {
        next if ( $piece eq q() );

        my $entry = "D  $prefix$piece  1K  1341691250";
        $prefix = "$prefix$piece/";
        $key    = $entry;
        next if ( exists $dirs{$entry} );

        $dirs{$entry} = '';
    }

    $dirs{$key} .= "F      $f   $fsize  1341691250\n";
}

print <<'HEADER'
[kdirstat 2.5.3 cache file]
# Do not edit!
#
# Type  path  size  mtime  <optional fields>

HEADER
    ;

foreach ( sort keys %dirs ) {
    say $_;
    say $dirs{$_};
}