Perlスクリプトを数字列に変換するモジュールAcme::Decimalizeを作ってみた - すぎゃーんメモ
前のエントリでマジメに勉強しようと誓ったばかりだけど、とりあえず作ってみようと思ったものは作っておかないと気が済まなかったので。 「Acme::Decimalize」というAcme::Bleach系のモジュールを作ってみました。 http://github.com/sugyan/Acme-Decimalize 中身 あらゆるPerlスクリプトは10種類の記号と改行だけで表現できるか？ - すぎゃーんメモで考えた記号化を数字に置き換えてみただけです。 使い方 このモジュールをuseすると、スクリプトを0~9の数字の羅列に置き換えることができます(途中、改行を挟む)。 例えば、以下のようなスクリプト'hoge.pl' print'hoge ' に対し、以下のコマンド perl -MAcme::Decimalize hoge.plを実行すると、 use Acme::Decimalize; 183
Perlスクリプトをワンライナー化するモジュールAcme::OneLinerを作ってみた - すぎゃーんメモ
GitHubにおいてます。 GitHub - sugyan/Acme-OneLiner: ワンライナー生成モジュール たとえばhello.plというスクリプトを用意して #!/usr/bin/perl use strict; use warnings; print 'Hello world!', "\n"; Acme::OneLinerをuseして実行すると、ワンライナーに変換してくれます。 $ perl -MAcme::OneLiner hello.pl perl -e 'use warnings; use strict q/refs/; print q/Hello world!/, "\n";'出力結果をそのままコピペしてコマンド実行すればスクリプトの実行と同じ結果が得られる…はず。 作成の経緯 スクリプトをワンライナーに変換できないかなー ↓ 基本的に行末はセミコロンで区切ってあるし
記号解読にチャレンジ - すぎゃーんメモ
Perlで記号プログラミング - TAKESAKOのはてな出張所 に対しての挑戦が。 id:TAKESAKO に挑戦してみる - yujiorama の日記 面白そうなので自分もやってみる。 #!/usr/bin/perl $^='-^\\\\%+"<&]\\$=/**:.](%_,//;<#)\\^_%$=]."\\&=\'?/:$?({/!_})(([=##!-^/\'%_#"]{"?~<]$\':$;#"&]`<#:?', $^_='_~`||`]@^_`"./,))<%?%<"(?<_}+^.;#^^@@{`:,|[{_``__[]_;/@-<~<;^.[^~::<&""[_`}*.[?]+[?!|-_`@[*);//(]?",=_+?]{{#`,@@<*@[{|/`.@#@[""[+_}[?__(?.+[_}<.?_"{>|!{}@@^_,{<', $^_^='{>][[[;/,
形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ
MacにてText::MeCabを使う - すぎゃーんメモで下準備を終えた。 何がしたかったかというとこれ。 まずはこんなスクリプトを書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Text::MeCab; my $mecab = Text::MeCab->new(); my $n = $mecab->parse($ARGV[0]); my @nodes = (); # 分かち書きしたものを一つの配列に入れる my @noun = (); # 名詞を検出した番号を格納する my $index = 0; while ($n = $n->next) { push(@nodes, $n->prev->surface); if ((split(/,/, $n->prev->feature))[0] eq '名詞') { push
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
