PERL   26

updates

Guest on 12th June 2022 03:30:03 AM

  1. #!/usr/bin/perl
  2.  
  3.  
  4. @pgs = qw(cardinality.html
  5. contact.html
  6. credits.html
  7. foo.html
  8. fun.html
  9. groups.html
  10. hw-rules.html
  11. links.html
  12. math-names.html
  13. others.html
  14. papers.html
  15. pedagogy.html
  16. research.html
  17. teaching.html
  18. vita.html
  19. whist.html
  20. whytype.html);
  21.  
  22. for $j (@pgs) {
  23.   system("cp  $j /home/jj/htdocs/$j");
  24. }

Raw Paste


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