赤道直下の熱帯から北極・南極まで世界中の海洋を調査する、海洋地球研究船「みらい」。
本書では研究者と乗組員が「みらい」から撮影した美しい空と海の写真を紹介し、科学的な解説を加える。
自然の見せる壮大な芸術に圧倒され、また空と海のふしぎがよくわかる一冊。
【美しい絶景が満載! 】
ビーナスベルト……日没後の空に生まれるピンクの帯
天使の梯子……雲間から漏れる光のシャワー
グリーンフラッシュ……太陽が緑色の光を放つ瞬間
蓮葉氷……北極の海に浮かぶ生まれたての氷
アイスブルー……巨大氷山が生む青い彩り
キョクアジサシ……北極から南極まで飛ぶことができる鳥
真夜中の夕焼け……真夏の南極、23時の美しい日没
#!/usr/bin/perl use strict; use warnings; use utf8; use open ':utf8'; binmode STDOUT, ":utf8"; binmode STDIN, ":utf8"; my $n = shift @ARGV; while (<>) { chomp; my ($str, $hlen) = get_first_n_hkchars($_, $n); my $rest = $n - $hlen; my $fill = "#" x $rest; print "[$str$fill] from [$_]\n"; } # 先頭から半角N文字分取る # 取った文字列と実際の長さ(半角文字数)を返す sub get_first_n_hkchars { my ($str, $n) = @_; my $s = ""; my $slen = 0; foreach my $c (split(//, $str)) { my $clen = 2; if ( $c =~ /\p{InBasicLatin}/ or ($c =~ /\p{InHalfwidthAndFullwidthForms}/ and $c =~ /\p{Katakana}/) ) { $clen = 1; } last if $slen + $clen > $n; $slen += $clen; $s .= $c; } return ($s, $slen); }
% cat hkcut-test.txt 123456 198273 1に3し4ろく 【ひらがなと漢字】 カナカナascii ハンカクカナabc全角仮名 % ./hkcut.pl 5 hkcut-test.txt [12#] from [123456] [198#] from [198273] [1に3#] from [1に3し4ろく] [【ひ#] from [【ひらがなと漢字】] [カナカ] from [カナカナascii] [ハンカクカ] from [ハンカクカナabc全角仮名] % ./hkcut.pl 8 hkcut-test.txt [1234] from [123456] [19827#] from [198273] [1に3し4#] from [1に3し4ろく] [【ひらが] from [【ひらがなと漢字】] [カナカナas] from [カナカナascii] [ハンカクカナab] from [ハンカクカナabc全角仮名] % ./hkcut.pl 13 hkcut-test.txt [123456#] from [123456] [198273####] from [198273] [1に3し4ろく##] from [1に3し4ろく] [【ひらがなと#] from [【ひらがなと漢字】] [カナカナascii##] from [カナカナascii] [ハンカクカナabc全角] from [ハンカクカナabc全角仮名]