All pastes #232040 Raw Edit

Something

public text v1 · immutable
·published 2006-11-01 04:42 UTC
rendered paste body
#!/usr/bin/perl -w 
use File::Copy; 
use File::Find; 

find(\&movefile, "d:\\webpics"); 

sub movefile {
	$count=1; 
	if (/\.jpg$/) { 
		move($_, "d:\\images\\image$count.jpg"); 
		$count++; 
	}
}