青春→鯖鰆みたいなやつ - アスペ日記
今日、こんなツイートを見かけました。 娘１のクラスの寄せ書き、「楽しかったよ」「また会おうね」が多い中、キラリとひかる名文発見。「青春って魚編をつけると鯖鰆（サバサワラ）って読めるよね。似たような熟語を見つけたら教えて」By 町田高史(仮名) 彼が無事に社会に適応できますように。— 藤川ｵﾚﾝｼﾞｰﾅ (@Forangina) 2017年3月21日 ぼくもこういうのは大好きです。 （社会に適応できているかどうかは微妙なところです） それで、こういうのを探してみることにしました。 漢字の構造については、漢字構造情報データベース（CHISE）というものがあります。 （かなりの労力がかかっていると思われるデータベースです。作られた方に感謝します。） 今回は、これを使わせていただきます。 % git clone http://git.chise.org/git/chise/ids.git この中の
■ #!/usr/bin/env _ 今さらながら、 CGIの神話と現実というエントリ。ただし内容とはまったく関係なし。スクリプト言語の shebang 行（#!）でスクリプトインタープリタを直接書かずに /usr/bin/env でラップするという悪習はいったい誰が広めたんだろうか。ruby な人に多いように思うがそれだけじゃないし。 _ hoge というインタープリタを使うスクリプトの1行目をたとえば #!/usr/bin/env hoge としておくと、hoge の実行バイナリが /usr/b
今さらながら、 CGIの神話と現実というエントリ。ただし内容とはまったく関係なし。スクリプト言語の shebang 行（#!）でスクリプトインタープリタを直接書かずに /usr/bin/env でラップするという悪習はいったい誰が広めたんだろうか。ruby な人に多いように思うがそれだけじゃないし。 hoge というインタープリタを使うスクリプトの1行目をたとえば #!/usr/bin/env hoge としておくと、hoge の実行バイナリが /usr/bin/hoge でも /usr/local/bin/hoge でも $HOME/bin/hoge でもどこにあってもパスが通ってさえいれば起動できる。それはメリットなんだろうか。わしにはむしろデメリットにしか思えない。 /usr/bin/env を使うというのは、PATH の値にしたがってインタプリタの場所を探すという意味である。つまり
WWW::Mechanize - Perlオブジェクト中のハンディWebブラウザ - perldoc.jp
名前¶ WWW::Mechanize - Perlオブジェクト中のハンディWebブラウザ VERSION¶ Version 1.02 $Header$ 概要¶ WWW::Mechanize、あるいは縮めてMechはWebサイトとのやりとりの自動化を 助けます。これはリンク先やフォームデータの送信を含む、複数のページの取得を サポートします。取得したページはそれぞれ解析され、そのリンクやフォームが 抽出されます。リンクやフォームを選択し、フォームを埋め、次のページを取得 することが可能です。Mechは訪れたURLの履歴を保持しますので、これを問い あわせたり再訪することも可能です。 use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->get( $url ); $mech->follow_link( n => 3 ); $m
たった一つのツイートでひたすらアイドル水着画像を集める - ゆーすけべー日記
元★ネタ たった10行のコードでひたすらアイドル水着画像をあつめる - UT Startup Gym たった3行のコードでひたすらアイドル水着画像をあつめる（Rubyだよ） - maeharinの日記 たった数行のコードでひたすらアイドル水着画像をあつめるのをGoutteで書いてみた - iakioの日記 やること なんだかよく分からないタイトルだと思うけど、間違っていないと思う！ 目的の仕様としてはNAVERまとめに張られた水着写真のimgタグを持って来て、 imgタグだらけの.htmlをダンプすれば嬉しいよね〜っていうスクリプトを少ない行数で書けるか？ 他の言語ではどう書くのか？みたいなことなんだけど... Perlでワンライナー書いてたら、Twitterのツイートに収まる文字数、つまり140文字以内になった。 コードをツイートするって言うと、なんか昔miyagawaさんが変態的なこと
Kindleで2段組の論文を読む - 日本Kindleの会
はじめまして Kindle (6インチ版)でA4サイズ2段組の論文(PDF)を読むことを目的に PDFの版面を片段ずつ分割するためのツールを探していたのですが， perl のPDF::API2というモジュールを利用すれば比較的簡単に 自作できることがわかりました． とりあえず，版面を上下左右に4分割または左右に2分割するスクリプトの例です． LinuxとWindows (Activeperl + MinGW)で動いているようですが， どなたか確認＆機能拡張していただければ幸いです． ------------------------<pdfsplit.pl>------------------------ #! /usr/bin/perl use PDF::API2; my $split = 4; while (($_ = shift @ARGV) =~ /^\-/) { $spli
Perl道場 PerlエンジニアがつくるPerlエンジニアのための検定試験
Perl道場 説明がはいります。説明がはいります。説明がはいります。説明がはいります。説明がはいります。説明がはいります。
「Perl中級者への道」でステップアップ！
「Perl中級者への道」でステップアップ！ 2011-05-24-3 [Programming] ラクダ本の翻訳などで知られる近藤嘉雪さんによるプレゼン資料。 初心者がつまづきがちなリファレンスの話が分かりやすいです。 必読。 - Perl中級者への道 (近藤 嘉雪, at PerlCasual #4) http://www.slideshare.net/KondoYoshiyuki/perl-perlcasual-4-2011428 一部メモ： - 必須 use strict; use warnings; - 推奨 open my $data, "<", "file"; - 推奨 print {$data} "this...\n"; - 異なる ${$a[2]} $$a[2] - 異なる $a[2][1] $a->[2][1] - 無名 無名配列、無名ハッシュ、無名サブルーチン - 便利
Perlのメモリリークを見つける方法 - Islands in the byte stream (legacy)
Perlではメモリリーク検出ツールがいくつか開発されているので、top(1)の結果を眺めるよりそういうツールを使うほうが楽である。 さて、メモリリークが発生しているとき、その可能性としてはだいたい以下の4つが挙げられる。 Perlレベルでの循環参照 グローバル変数に値をどんどん足しているとき*1 XSレベルでリファレンスカウントの管理ミス XSレベルでmalloc()したメモリの管理ミス この1-3についてはすべてPerlインタプリタ内の出来事であり、Test::LeakTraceを使って検出できる。4を検出するのは難しいが、Test::Valgrindが役に立つ。 Test::LeakTraceのSYNOPSISは歴史的経緯によりごちゃごちゃしているが、テストで使うべき関数はno_leaks_ok()とleaks_cmp_ok()だけである。 たとえば、以下のようにして使う*2。 #!p
Perl で MapReduce - Mahout Frequent Pattern Mining Data - - hamadakoichi blog
最近、Perl も書き始めてみたので、Hadoop 上で分散実行できる Perl での MapReduce 実装を紹介する。大規模データマイニング・機械学習のライブラリ Apache Mahout の Parallel Frequent Pattern Mining の入力データを生成する Perl MapReduce 実装の紹介。 Frequent Pattern Mining 入門 Frequent Pattern Mining (Association Analysis )は、隠されたルールパターンを抽出するアルゴリズム。有名な例としては、1992年のウォルマートのクリスマス商戦で「おむつを買った人は半ダースのビールを買う可能性が最も高い」という頻出ルールを抽出し、商品陳列に活かした売上向上した事例。 入門資料： 第５回R勉強会＠東京 で話してきた - 「R言語によるアソシエーション
Perlモジュール徹底解説 - Perl入門ゼミ
Perl › here Perlのモジュールについての解説です。Perlでいうモジュールとは良く使う機能や便利な機能をプログラムで利用するための仕組みです。 Perlの基本文法を覚えたらいろいろなモジュールを使ってみましょう。モジュールを組み合わせると複雑な問題を簡単に解決したり、業務の自動化に役立ったりします。 またCPANと呼ばれるモジュールの配布サイトでは役立つたくさんのモジュールが有志によって登録されており無料で利用することができます。cpanコマンドの使い方についてはCPANモジュールの解説を参考にしてください。 モジュールの作成方法 「パッケージ」などのモジュール作成のための基礎知識を知りたい場合は「モジュールの基礎」を参考にしてください。実際にモジュールを自分で作成してみたい方はModule::Starterモジュールを使って、モジュールのひな型を作成するのが早道です。 モジ
ImagerとImage::Magickのよく使うメソッドをまとめてみた - 80nikki
簡単に違いを書くと Imagerはインターフェースがかっけえ Image::Magickはなんか枯れてる 速度はあんまかわんない ファイル読み込み、書き出し、エラー出力 Imager my $img = Imager->new; $img->read(file => $filename) or warn $img->errstr; $img->write(file => $filename) or warn $img->errstr; Image::Magick my $img = Image::Magick->new; $err = $img->Read($filename); $err = $img->Write($filename); $err = $img->Read('-'); # 標準入力から読み込み $err = $img->Write('png:-'); # 標準出力へ書き
Imager::Marquee、あるいは、揺れるイケメン - Kentaro Kuribayashi's blog
画像を左右に動かしたり揺らしたりするモジュールを作成しました。 https://github.com/kentaro/imager-marquee 以下、使い方を説明します。 たとえばここに、イケメンを写した画像があります。 確かにイケメンです。しかし、しばらくほれぼれと眺めているうちに、いくらイケメンとはいえ、動きがないとちょっと飽きてしまうのも事実(「美人は3日で飽きる」ともいいますし)。これでは、せっかくのイケメンも片無しです。そこで、ちょっと動きをつけてみましょう。 use strict; use warnings; use Imager::Marquee; my $image = Imager::Marquee->new(file => shift); $image->marquee(3)->write( file => 'marquee.gif', gif_loop => 0,
perl - tie()って何をtieするの? : 404 Blog Not Found
2008年07月05日01:30 カテゴリLightweight Languages perl - tie()って何をtieするの? 私はタイをまとうのがだいっきらいですが、Perl 5の中で一番好きな関数がtie()だったりします。 tie関数とは - 燈明日記 すると、裏で処理が動き、オブジェクトをコンストラクトしたり、とある処理結果が参照できたり、代入したものに対応したものを格納出来たりする。 というわけで、tie()について語っておくことにしましょう。 tie()とはなにか? ずばり、「オブジェクトではない、perlの組み込みデータタイプを裏でオブジェクト化する仕組み」のことです。それがなぜtieと呼ばれるかと言えば、変数を指定されたクラスに結びつけるから、です。 論より証拠、実際に見てみましょう。 use strict; use warnings; { package MySca
wakaponさんのよく☆ある☆ふつーの備忘帳: ithreads共有変数いろいろ
共有変数の実装を見ていこうとしたけど，そもそもPerlレベルでまじめに仕様を見て使ったことが無かったのでそこから開始．まずは基本的な使い方から．ある変数をスレッド間で共有したい場合，変数の属性にsharedをつけるか，share関数を変数に施してやればよい．共有変数化できるのは，スカラ，配列，ハッシュとなる．型グロブやサブルーチンは現時点ではまだサポートされていない．スレッド間の共有変数を利用する大原則として，スカラ・配列・ハッシュともに直接，値を参照できる部分までしかスレッド間で共有化されない．なんでそうなんだーというと，ithreadsのsharedモジュールがそういう仕様なんだからしょうがない．以下，変数をスレッド間で共有するサンプルコード．スカラ・配列・ハッシュの共有変数use threads;use threads::shared;my $val : shared; # 共有変数
Perl one liner 集 perl 1行野郎
Landscape トップページ | < 前の日 2003-06-03 2003-06-04 次の日 2003-06-05 > Landscape - エンジニアのメモ 2003-06-04 Perl one liner 集 perl 1行野郎 当サイト内を Google 検索できます * Perl one liner 集 perl 1行野郎この記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] - one liner、日本語で言うと一行野郎いわゆる一行スクリプトを解説したページ。 昔はよく参照してたが、google をいくら探しても見つからない。 仕方がないので、ここに転載しておく。 - Internet Archive で見つけた。「perl でいいよ」 というページの一コーナーだったようだ。 http://web.archive.org/web/2
40行で作るPerl用テンプレートエンジン
60行で作るPHP用テンプレートエンジン やってしまった・・・。 方針： PHPのように＜?php・・・?＞が無いのでそのまま表示と(foreach|if|unless)に対応。[% $c{title} %]で普通に表示(TTっぽい？)[# $c{title} #]でHTMLエスケープ表示package SixtyLinesTemplate; use strict; use warnings; our $VERSION = '0.01'; sub convert { return unless defined(my $str = shift); $str =~ s{&}{&}gso; $str =~ s{<}{<}gso; $str =~ s{>}{>}gso; $str =~ s{\"}{"}gso; $str; } sub include_temp
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
bayashi.jp
IBM Developer
pepepeのblog: Pod::Simple::Wikiを試してみる
今日のCPANモジュール（跡地） 目次