http://code.google.com/p/svg-edit/ http://svg-edit.googlecode.com/svn-history/r1771/trunk/editor/svg-editor.html javascript? すごい。

http://d.hatena.ne.jp/tokuhirom/20081018/1224300947 http://search.cpan.org/perldoc?Lingua::JA::Regular::Unicode 同じことができるモジュールとして id:takefumi 作の Lingua::JA::Regular というものがあるのですが、これは EUC-JP 前提なので、昨今の「内部コードは flagged utf8」という流れからすると、無駄に二回文字コードの変換をはしらせなくてはならず... 確かに。 perlで半角<->全角等の変換ならLingua::JA::Regular::Unicodeがいいかも ひらがな<->カタカナの変換もありますしね。

http://d.hatena.ne.jp/end0tknr/20140302/1393733814 先日の↑エントリの別バージョン。 住所から郵便番号を検索する場合、市町村合併が影響するので、googleのカスタム検索APIの結果から、郵便局の郵便番号検索ページを探すとよさそう。 という訳で↓こう書きました。 (住所変換→〒というより、住所に含まれる全ての〒を展開?します) #!/usr/local/bin/perl use strict; use utf8; use Encode; use JSON; use LWP::UserAgent; use Data::Dumper; main( @ARGV ); sub main { my ($org_file) = @_; open(my $fh,$org_file) or die "can't open file"; my @org_li

ピアソンの相関係数( Pearson correlation coefficient )とは ※はてなtex記法(mimeTeX)で数式を記載しています 数式を表示する（tex記法） - はてなダイアリーのヘルプ mimetex.html perlなら、Statistics::Basic::Correlation で相関係数を算出 http://search.cpan.org/dist/Statistics-Basic/ use Statistics::Basic qw(:all); ↑こちらのdocumentに記載されている通りです。 Statistics::Basic には、他にも関数があるので、主要なものを記載しておきます。 中央値 my $median = median( 1,2,3 ); 平均 my $mean = mean( [1,2,3]); 分散 my $variance

急遽、oracleデータベースの必要に駆られ... DBD::Oracleをインストール / CentOS・Red Hat Linux実践テクニック - サンプルコードによるPerl入門 ↑こちらを参考にさせて頂きながら、colinux環境へ↓こちらをインストール。 DBD::Oracle - search.cpan.org ありがとうございました。 > perlcodesample さん oracleクライアントツール群のinstall Instant Client for Linux x86 のダウンロード まず、3つのrpmパッケージをinstall $ su - # rpm -ivh oracle-instantclient12.1-basic-12.1.0.1.0-1.i386.rpm # rpm -ivh oracle-instantclient12.1-devel-12.1.

記事一覧→ http://d.hatena.ne.jp/end0tknr/20111016/1318729659 ヘッダと段落(<p>) ヘッダのhtml <h1>h1. ヘッダ1</h1> <h2>h2. ヘッダ2</h2> <h3>h3. ヘッダ3</h3> <h4>h4. ヘッダ4</h4> <h5>h5. ヘッダ5</h5> <h6>h6. ヘッダ6</h6> 段落(<p>)のhtml <h3>文書表示例</h3> この部分はサンプル文書の本文です。この部分はサンプル文書の本文です。 この部分はサンプル文書の本文です。この部分はサンプル文書の本文です。 この部分はサンプル文書の本文です。この部分はサンプル文書の本文です。 <h1>ヘッダ例<small>smallタグでサブヘッダを表示しています&hellip;</small></h1> Misc. elements や Blockq

httpd.confのTimeOutではcgiの処理時間を制限できない? ある機能の処理時間が長くなった場合、処理を中断させようと、apacheのhttpd.confにTimeOut (apache2.2ではデフォルト300sec)を設定し、サーバ(perl)側で、sleep() による動作確認を行なっても、httpd.confのTimeOutでは意図した時間にタイムアウトしませんでした。 httpd.apache.org にあるTimeOutのドキュメントを読むと、次のように記載されており、どうやらhttpd.confのTimeOutではcgiの処理時間を制限できないようです。 The TimeOut directive defines the length of time Apache will wait for I/O in various circumstances: When r

http://search.cpan.org/dist/PDF-API2/ PDFファイルを生成する必要があったので、cpanを眺めていたら、PDF::API2というモジュールがありました。 これまでPDFファイルの自動生成というと、pdfjやpdflibの名前を聞いたことがありますが、PDF::API2でも十分に使えるように思えます。 今回は、予めprimoPDFで作成(印刷?)した帳票上(というより背景として?)に、文字や写真を追加してみました。 #!/usr/local/bin/perl use strict; use warnings; use encoding qw/cp932/; #cp932以外では機種依存文字がpdfに出力されない? use PDF::API2; use PDF::API2::Resource::CIDFont::CJKFont; main(); sub m

http://d.hatena.ne.jp/end0tknr/20090111/1231635743 昨日、紹介したSpreadsheet::ParseExcelはexcelファイルの内容を読むmoduleですが、excelファイルに出力するmoduleにSpreadsheet::WriteExcelもあります。 http://search.cpan.org/perldoc?Spreadsheet::WriteExcel 機種依存文字出力ならEncode::decode("cp932",〜) decode("cp932",〜)のようにcp932でEncode::decodeした結果をSpreadsheet::WriteExcelに与えると、機種依存文字も問題なく出力されます。 #!/usr/local/bin/perl use strict; use warnings; use Encod

PCの買替えに伴い、ActivePerl ver.5.8.8をinstall後、ppm.batを起動すると、PPMのUIがGUIになっているではありませんか。 いつのまに変わったんだろう... でも c:\Perl\bin\ppm-shell.bat がCLI版PPMとして残っていたので安心しましたよ。

ActivePerl for winのPPMでDBD::Pgをインストールしようとしても、標準のリポジトリにはDBD::Pgがありません。 ActivePerlへのDBD::Pgのインストール方法を紹介しているページをいくつか見つけましたが、私の環境にあるActivePerl 5.8.8.824ではmsvcr80.dllやPg.dllに問題があるようで、正常に動作しませんでした。 http://mofumofusan.blogspot.com/2008/01/activeperldbd-pg.html http://d.hatena.ne.jp/higurasias/20080828 http://www.kana.mydns.jp/etc/index.html 次のurlでDBD-Pg.zip (ver.1.22)が配布されていますが、このDBD::Pg ver.1.22であれば、私の環

前回のentryでは、224224サイズの画像ファイルしか扱えませんでしたので 大きなサイズの画像は、224224サイズにタイル分割した上で、 特徴量を算出するようにしました。 ( 前回のentryにあった calc_feature(onnx_session, img_path) を 改良しています ) 2. 各画像ファイルの特徴量算出 import glob import os import numpy as np import onnxruntime import PIL.Image img_base_dir = os.path.abspath( "./png" ) feature_base_dir = os.path.abspath( "./feature" ) merged_feature_dir = os.path.abspath( "./merged_feature" ) me