Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2019
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. $ cat generate.pl
  2. #! /usr/bin/env perl
  3. use Modern::Perl '2015';
  4. ###
  5.  
  6. say '#! /usr/bin/env perl';
  7. for (1..12_000_000) {
  8. say 'print "hello world!\n";'
  9. }
  10. $ perl ./generate.pl > 12M.pl
  11. $ time perl ./12M.pl > out
  12.  
  13. real 9m11.857s
  14. user 2m0.406s
  15. sys 3m41.608s
  16.  
  17. $ wc -l *
  18. 12000001 12M.pl
  19. 8 generate.pl
  20. 12000000 out
  21. 24000009 total
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement