Help for this page

Select Code to Download


  1. or download this
    mkdir $DIR{$_} for sort { length $DIR{$a} <=> length $DIR{$b} } keys %DIR;
  2. or download this
    mkdir $_ for sort { length $a <=> length $b } values %DIR;
  3. or download this
    mkdir $_->[0] for sort { $a->[1] <=> $b->[1] } map [ $_, length $_ ], values %DIR;
  4. or download this
    mkdir $_ for sort { $a =~ tr[/][] <=> $b =~ tr[/][] } values %DIR;
  5. or download this
    mkdir $_->[0] for sort { $a->[1] <=> $b->[1] } map [ $_, tr[/][] ], values %DIR;