All pastes #776254 Raw Edit

why_windows_sucks.pl

public text v1 · immutable
·published 2007-11-15 23:34 UTC
rendered paste body
$num = 0;

while (<>) {
  if (/File.*My Music.(.+)/) {
    $ful = $1;
    $new = sprintf(q(%02d - %s),++$num,@{[ split(/\\/,$ful) ]}[1]);
    system(qq(copy "$ful" "$new"));
  }
}