1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
# cf. https://twitter.com/mattn_jp/status/987128843633770496 # cf. https://twitter.com/dankogai/status/987145070385160192 # Windows use 5.024; use warnings; use Encode; use utf8; $| = 1; my $hoge = <<EOF; (´・_・`)´・_・`) (´・_・`)_・`) (´・_・`)`) ((´・_・`) (´・(´・_・`) (´・_(´・_・`) (´・_・`)´・_・`) (´・_・`)_・`) (´・_・`)`) (´・_・`)) ((´・_・`) (´・(´・_・`) (´・_(´・_・`) EOF my @a = split /\n/, $hoge; foreach my $str (@a) { sleep 1; print encode( 'cp932', $str ), " ", "\r"; }
You can clone a snippet to your computer for local editing. Learn more.