Perl Saroyan

by Anonymous Monk

on Sep 12, 2020 at 00:56 UTC ( #11121647=poem: print w/replies, xml )

Need Help??

perl -e 'use Time::HiRes qw(usleep); foreach $i (1..145) { print join("", (" " x 72)) . "crickets\n"; usleep 550000 }'

Comment on Perl Saroyan Download Code

Replies are listed 'Best First'.
Re: Perl Saroyan by hippo (Bishop) on Sep 12, 2020 at 10:48 UTC
`$i` is unused and the join does nothing. `perl -e 'use Time::HiRes qw(usleep); for (1..145) { print " " x 72 . " +crickets\n"; usleep 550000 }'` [download] There, now that's much more relaxing. ;-) 🦛	[reply] [d/l] [select]