端末のウィンドウサイズを表示する #!/usr/bin/env perl use Curses; initscr; $win = new Curses; $r = rand; $win->addstr(1,1,$r); $x = getmaxx(); $y = getmaxy(); $win->addstr(2,1,"x: $x, y: $y"); $win->refresh; while(1){ sleep 2; $r = rand; $w…

(test_diff.pl) #!/usr/bin/env perl @a = qw/ a b cd e /; @b = qw/ a b c e f /; if(@a > @b){ $length = @a; }else{ $length = @b; } print "a: @a\n"; print "b: @b\n"; for($i=0;$i<$length;$i++){ if($a[$i] ne $b[$i]){ print "$i: $a[$i] > $b[$i]\n…

https://books.google.co.jp/books?id=9nUdAwAAQBAJ&pg=PA79&lpg=PA79&dq=shiitake+kawauso+kappa+cisco&source=bl&ots=dC3zsEV4dW&sig=Wdnkz8DU0pk2LHXjivsVeHUrR6A&hl=ja&sa=X&ved=0CB4Q6AEwAGoVChMI5-Lw6NG8xwIVio-UCh2XDQ9R#v=onepage&q=shiitake%20kawa…

https://www.youtube.com/watch?v=si4gGPxioUw