Now rather than breaking File::Find out, I figured this was an easy one-liner. I don't do many one-liners, but I opened up perlrun, read (I thought) the relevant sections, and ran this from the root of a copy of the directory tree: perl -i -e'print "prepend\n"; print join "", <>; print "append\n";' *.html */*.html */*/*.html */*/*/*.html This prints everything to the screen, and turns everything into 0 byte files.
Any ideas what I'm missing?
In reply to In-place header/footer by swiftone
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |