All pastes #776256 Raw Edit

why_windows_sucks-v2.pl

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

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