Snippets

sironekotoro tanakh.pl (For windows)

Created by sironekotoro
snippet.txt
Raw 
 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";
}

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.