Help for this page

Select Code to Download


  1. or download this
        my %oldfiles;
    foreach $file (@FileArray){
...
          if ( $oldfiles{$shortenedname}++ ) {
      # short name already exist, try again
...
  2. or download this
          if ( $oldfiles{$shortenedname}++  ) {
          my $base = substr($file, 0, 6);
...
      push @short_files, $shortenedname;
  }
  return @short_files;
  3. or download this
     if ($file =~ /\.mp3$/i ){
              push(@mp3files, $file);
          }