Help for this page

Select Code to Download


  1. or download this
    #fix dir
for my $i (@arr){
    $i->{dir} = $1 if $i->{path} =~ m{^(.+)/};
}
  2. or download this
    /c/
/c/a1.mp3
/c/a2.mp3
...
/c/bb/aa1.mp3
/c/bb/aa2.mp3
/c/cc/