Untitled

#!/usr/bin/perl
use File::Basename;

$filepath = $ARGV[0];
if(!$filepath) { $filepath = "." }
@files = <$filepath/*>;
foreach(@files) {
   if(! -d $_) {
      if(/\.flv$/) {
         $date = $_;
         $date = substr($date, 0, 8);
         push(@list, $date);
      }
   } else {
      $dir = basename($_);
      @a = <$filepath/*$dir*.flv>;
      if(@a) {
         $a = `mv $filepath/*$dir*.flv $_/`;
      }
   }
}

%seen = ();
@uniq = ();
foreach $item (@list) {
   push(@uniq, $item) unless $seen{$item}++;
}

foreach(@uniq) {
   $dir = "$filepath/$_";
   if(mkdir($dir)) {
      $a = `mv $filepath/*$_*.flv $dir/`;
   }
}