Raw Paste

#!/usr/bin/perl @pgs = qw(cardinality.html contact.html credits.html foo.html fun.html groups.html hw-rules.html links.html math-names.html others.html papers.html pedagogy.html research.html teaching.html vita.html whist.html whytype.html); for $j (@pgs) { system("cp $j /home/jj/htdocs/$j"); }

---

Login or Register to edit or fork this paste. It's free.