#! /usr/bin/env perl
use strict;
use warnings;

my %dict = (
	'twinkle' => 'きらきら',
	'little' => 'ちいさな',
	'star' => 'ほし',
	'how' => 'いかに',
	'i' => 'わたし',
	'wonder' => 'おどろく',
	'what' => 'なに',
	'you' => 'あなた',
	'are' => 'である',
	'up' => 'うえ',
	'above' => 'うえに',
	'the' => 'その',
	'world' => 'せかい',
	'so' => 'とても',
	'high' => 'たかい',
	'like' => 'のよう',
	'a' => 'ひとつの',
	'diamond' => 'ダイヤモンド',
	'in' => 'なかに',
	'the' => 'その',
	'sky' => 'そら',
	);

while (<STDIN>) {
	while (/(\W*)(\w*)/g) {
		my ($other, $word) = ($1, $2);
		print $other;
		if (exists($dict{lc($word)})){
			print $dict{lc($word)};
		}else{
			print $word;
		}
	}
}
print "\n";

このコードに有名なきらきらスターというムジークをインサートします。

twinkle_star.txt

Twinkle, twinkle, little star,
How I wonder what you are.
Up above the world so high,
Like a diamond in the sky.
Twinkle, twinkle, little star,
How I wonder what you are.

コマンドイン！した結果です。ご査収ください。
f:id:senobro:20170511224136p:plain

アイエエエエ！？カタコト！？カタコトナンデ！？

…まあ、いうまでもなく順番を考えずに単語だけを一つずつ訳してるだけなので
おかしな日本語になるのは当然の帰結ですね。

そういえば最近のGoogleほんやく㌠は優秀になってきてるとかなんとか。
ITの進歩は目覚ましいですねぇ…

続きはまた次回

2017-05-07

番外：GWが終わりますね…

瀬野です。就寝前の更新です。

一つうれしいことがありました。

今月の弊ブログPVが100を突破したようです。めでたい！

これもひとえに読者皆様、ふらっと立ち寄って読んでくれた画面の前の皆々様のおかげです。
本当にありがとうございます。今後ともよろしくお願い申し上げます。

~~ところでPVって何ですか？プロモーションビデオですか？~~

GWも開けるので、また週1更新に戻ると思いますが、
今後もPerlなりhtmlなりCSSなり書いていければと思ってます。

それでは、続きはまた次回。

次回は引き続き正規表現か、コンテキストについて書くことになると思います。

2017-05-06

正規表現の話～perlがAll I Wantを翻訳（？）するとどうなるのか～

こんばんは。瀬野です。
正規表現を勉強してます。

さて、perlで避けて通れない正規表現で面白いことが出来たので書いておきます。

唐突ですが、昔flash全盛期の頃にAll I Wantという曲が流行ったのを覚えてますでしょうか？
知ってる方は友達になれそうですので今度飲みに行きましょう。~~知らない奴は聞け。オフスプは良いぞ~~

ちなみにこんな曲です
www.youtube.com

lyrics(歌詞)を正規表現でperlくんが翻訳暗号化したものがこちらです。

#! /usr/bin/env perl
use strict;
use warnings;

my $ofsply =
### 著作権の都合により歌詞削除 ###
."\n\n";

$ofsply =~ tr[a-mn-zA-MN-z][n-za-mN-ZA-M];

print "\n";
print "All I want The Offspring"."\n";
print "~Encryptipted by perl~"."\n\n";
print $ofsply;

以下、出力結果です。

All I want The Offspring
~Encryptipted by perl~

Qnl nsgre qnl lbhe ubzr yvsr'f n jerpx
Gur cbjref gung or whfg
Oerngur qbja lbhe arpx
Lbh trg ab erfcrpg
Lbh trg ab eryvrs
Lbh tbggn fcrnx hc
Naq lryy bhg lbhe cvrpr
Fb onpx bss lbhe ehyrf
Onpx bss lbhe wvir
Pnhfr V'z fvpx bs abg yvivat
Gb fgnl nyvir
Yrnir zr nybar
V'z abg nfxvat n ybg
V whfg qba'g jnag gb or pbagebyyrq
Gung'f nyy V jnag
Nyy V jnag
lnlnlnlnln!

これもう発音不可能ですねきっと。
また一つperlの面白さに触れた日になりました。

続きはまた次回。

合法SESおじさんがPGを目指す日記

合法SESおじさんがICT現場でひたすら足搔く様子はなるたけ書かない技術ブログです

ポートフォリオ一応仕上げ終わり

バリデーション作業。バリバリ

サーバーうｐなう

お知らせ：ポートフォリオ２作目

ドーモ。perlほんやくチーム=サン

番外：GWが終わりますね…

正規表現の話～perlがAll I Wantを翻訳（？）するとどうなるのか～