Moving files

[Michael O'Donnell]

> But, thanks to everyone for the suggestions.  They served as a great
> jumping off point for a fairly interesting discussion.  However,
> I was a bit upset that no one posted a solution in assembly ;-)

OK.  This doesn't really fit the bill except
as a smartass technicality, but here ya go...


.section	.rodata
	.align 32
.LC0:
	.string	"perl -MFile::Find -e 'find(sub{return if (! -f); $orig = $_; y/ /_/; rename($orig, $_);}, \"kens-mp3-dir\");'"
.text
	.align 4
.globl main
	.type	 main, at function
main:
	pushl %ebp
	movl %esp,%ebp
	subl $8,%esp
	addl $-12,%esp
	pushl $.LC0
	call system
	addl $16,%esp
	leave
	ret