こぴぺ ＆ マークした領域を色づけ

emacsで、こぴぺ手順。（1,2が通常のエディタでいうドラッグして選択する部分）
１.キーバインド　C-SPC（スペース）...マークの作成
２.目的の場所までキーを移動
３.キーバインド　M-w...コピー
４.キーバインド　C-y...ペースト
注）mac OS Xでは、C-SPCでspotlightが起動するのでショートカットを変えるかはずす。

カットしたい時は
キーバインド　C-w...カット


ちなみに、1,2の作業でマーク領域を色づけして視認性をあげるには
.emacsに下記を追記するとおk。
↓ここから----------------------------------
;; マークした領域を強調表示する.
(setq transient-mark-mode t)

; 領域の色指定
(set-face-background 'region "light blue")
↑ここまで-----------------------------------

書いたら　M-x eval-buffer　で再読み込み。

perldoc -l モジュール名

を使ってみたら、すごい勢いで
you need to install the perl-doc package to use this program
としかられた。

というわけで、ubuntuでも使えるようにするために...
sudo apt-get install perl-doc

これでOK
ちなみに、
perldoc -l モジュール名より
perldoc -ml モジュール名の方がよいみたい。

詳細は下記より！
http://blog.livedoor.jp/nipotan/archives/50146747.html

.emacsを変更したら...

M-x eval-buffer

メタキーの入力について
win/LinuxならAltキーなので...
Alt-x eval-buffer　(Altキーを押しながら)

macならESCで代用なので...
ESC x eval-buffer　(ESCキーを一度押したのちに)
C-[ x eval-buffer でもOK

emacsの終了

キーバインド … C-x C-c

未保存のファイルがある場合は
y … 保存する
n … 保存しない
! … 未保存のファイルすべてを保存する
q … 未保存のファイルすべてを保存しない

n or qを選択後未保存のデータがある場合下記のように聞かれ
Modified buffers exist; exit anyway?

yes … 終了する
no … 終了しない

emacsの起動

$ emacs
$ emacs hoge.cgi ←cdにある「hoge.cgi」を開く
$ emacs +2 hoge.cgi ←cdにある「hoge.cgi」の10行目、カーソルは先頭で開く
$ emacs +2:3 hoge.cgi ←cdにある「hoge.cgi」の10行目、カーソルは3文字目で開く

オプション
--nw … コンソールモードで起動
-l ファイル名 … 起動時に指定したファイルをロードする

virtualBox関係の情報

VirtualBox…Sunの仮想化デスクトップソフト。
(Ubuntu)VirtualBox用仮想マシン用ダウンロードページ

ゲストOSの“シームレス表示”に対応した仮想PCソフト「VirtualBox」v1.5.0…参考までに、この記事を書いている時は、ver2.1.0です。
バーチャルPCの導入手順

ubuntuを入れた時の確認めも。

自分めも。
思いついた順についか。

まずは、アップデート。
firefox
→about:config変更
　・browser.search.openintab true(検索した際新規タブで表示)
→アドオン追加
　・Firebug
　・YSlow
　・Greasemonkey

Opera追加(再起動？)
→文字化け対策
　・ツール->設定->ウェブページ　でフォントを日本語用に変える。
Opera 9.50 for Linux のフォント設定

ブラウザ共通。(超私的メモ)
→一つだけブックマークを追加
　・http://bookmarker.sakura.ne.jp/　(web上でブックマークを管理してるので)




端末関係
sudoの設定
$su
パスワード：(rootのパス)
#/usr/sbin/visudo で、rootの下に自分のユーザを追加

-------------------------------------
root ALL=(ALL) ALL
(UserName) ALL=(ALL) ALL
-------------------------------------


screen
・インストール不要(デフォルトである)
　ホームディレクトリに./screenrcを作成
----------------------------------------------------------
escape ^Tt
vbell off
hardstatus alwayslastline "%'%-w%{=b bw}%n %t%{-}%+w"
autodetach on
defutf8 on
bind ^k kill
----------------------------------------------------------


zsh
・インストール
　$sudo apt-get install zsh

・bush->zsh切り替え
　$chsh
　パスワード入力
　/bin/zsh
　(次回ログイン時有効)
　ホームディレクトリに.zshrcを作成。(漢のzshより適当にチョイスしたもの。。)
----------------------------------------------------------
autoload -U compinit
compinit

autoload predict-on
predict-on

## Environment variable configuration
#
# LANG
#
export LANG=ja_JP.UTF-8

# set terminal title including current directory
#
case "${TERM}" in
kterm*|xterm)
precmd() {
echo -ne "\033]0;${USER}@${HOST%%.*}:${PWD}\007"
}
;;
esac

# auto change directory
#
setopt auto_cd

# auto directory pushd that you can get dirs list by cd - [tab]
#
setopt auto_pushd

# command correct edition before each completion attempt
#
setopt correct

# compacked complete list display
#
setopt list_packed

# noo beep sound when complete list displayed
#
setopt nolistbeep

## Keybind configuration
#
# emacs like keybind
bindkey -e

# historical backward/forward search with linehead string binded to ^P/^N
#
autoload history-search-end
zle -N history-beginning-search-backward-end history-search-end
zle -N history-biginning-search-forward-end history-search-end
bindkey "^P" history-beginning-search-backward-end
bindkey "^N" history-beginning-search-forward-end

## Command history configuration
#
HISTFILE=~/.zsh_history
HISTSIZE=100000
SAVEHIST=100000
setopt hist_ignore_dups # ignore duplication command history list
setopt share_history # share command history data

## Macport envirment path
#
export PATH=/opt/local/bin:/opt/local/sbin/:$PATH
export MANPATH=/opt/local/man:$MANPATH
----------------------------------------------------------



emacs
$sudo apt-get install emacs
ホームディレクトリに.emacsを作成
(内容はまだまだカスタマイズ中なので割愛　笑)

ホームディレクトリに.elファイル補完用フォルダを作成
上記フォルダのパスを通す
　→.emacsに記載(これは、ホームディレクトリにelispフォルダを作った場合
------------------------------------------
;;pathの設定
(setq load-path
(append
(list
(expand-file-name "~/elisp/")
)
load-path))
------------------------------------------


・apache2
#sudo apt-get install apache2

http://localhost/ にアクセスして
It Works!が出ればok


・MySQL
#sudo apt-get install mysql-server

mySQLの設定ファイルは
/etc/mysql/my.conf

rootで起動
/usr/bin/mysql -u root -p



おまけ１
emacs -nw
と入力するとGUIじゃなくCUIが立ち上がる。

おまけ２
端末のプロファイルは
色：　テキスト->#ffffff 背景色->#555753
効果：透過画像を選択して透過具合を少し落とすと
いい感じ♪

おまけ３
パスワードを忘れたら？
$ sudo su -
# passwd
で新しいパスの設定

cpanのロックファイルが残ってしまい起動しない時。

Terminal does not support AddHistory.
There seems to be running another CPAN process(略)

というわけで、ロックファイルが残った時は、
エラー内に示されているLockfileを削除する。

(参考)Mac OSXでPerlの環境を整える。- CPANモジュールのインストールまで

mac OS X(10.5)でのapache

Apacheの起動。
システム環境設定 -> 共有 -> web共有
のチェックボックスを入れる。

すると、
http://localhost/
で、APACHEの「あなたの予想に反して××」が表示され

http://localshost/~×××　←ここにログイン時のuserNameが入る。
そうすると、、、下記のようなページが見れるようになります。


尚、プライベートネットワーク上から見れるということで
他のPCからもさっくりこのページが見れます。。
他のPCからアクセスする場合は、上記で説明したweb共有のページで
表示されるアドレス(http://192.168で始まるアドレス)を入力すると
みることができますね。

OS X(10.5)ではhttpd.confは特に変更することなくcgiが動きますね。
httpd.confのアドレスは
/etc/apach2/httpd.conf

cgiの置き場は
/Library/WebServer/CGI-Executables

その他のファイルは
/Library/WebServer/Documents

に置けばOKですね。


後は、下記アドレスとかに
/Library/WebServer/CGI-Executables/hoge.cgi
sudoでファイルをコピーして置いてファイル権限を変更してあげると
http://localhost/cgi-bin/hoge.cgi
でみることができますね。

mac メモ

おもむろにCPANでインストールしようとすると…

(略)
make: *** [pure_site_install] Error 13
/user/bin/make install --NOT OK

となってしまうのは、一般ユーザだからだそうな。
Mac OSX でのCPAN

というわけで、
sudo perl -MCPAN -e shell　
でおｋ

emacs起動時のオプション

%emacs -nw
や
%emacs --no-window
のように起動時オプションとして

-nw
--no-window

とすると、グラフィカルな環境でなくコンソール上で起動するっと。

メタキー

うーん。。
macbookになってから自分好みのエディタが見つからないので
ようやく、Emacsに入信する決意を固めてみたのだけど、、
（半年前にMeadow触っておもっきり挫折した。w)

macの場合メタキーってescキーがメタキーなのか。。
遠すぎて、何光年かかるかわからないような位置にある
キーを叩くのは精神的にもストレスがかかりすぎるので、
C-[
で代用するか
commandキーあたりにメタキーを割り振って使うのがベターらしぃ。。
というわけで、ひとまずメモっとこ。
(setq mac-command-key-is-meta t)

どうしても．．．

macを使い始め４日目くらい。。
どうしても日本語と英語の切換えで
windows時代でいうとこのキーボード左上にある
半角／全角キーを押してしまう癖がぬけない。。
その結果、そこにあるキーは「１」なのでむなしく「１」が表示される。。

FTPソフト

どれがよいのかわからないけども
ひとまず、Cyberduckを入れてみた。

使い勝手は→http://www.affrc.go.jp/NSS/man/ss/mac-ftp-cyberduck.html
Cyberduckは→http://cyberduck.ch/

これで日常の生活は、送れそうだ　笑

MacPorts

MacOSX 上で利用可能なパッケージシステムの一つで、主に UNIX 向けに開発されたオープンソース・ソフトウェアを手軽にインストールすることができます。

ですっと。
Mac wiki -MacPorts-

インストールの流れ。
Xcode Toolsをインストール。
付属のOSインストールディスクからインストール。
http://connect.apple.comからもインストール可

次にMacPortsのインストール
http://svn.macosforge.org/repository/macports/downloads/
から適するものをダウンロード。

ひとまず、形からでも入門してみよう。

漢のzsh

MacのSafariでリンク先をタブで開く

target = _blank
に設定されているようなリンクを踏むと新規ウィンドウで
開かれるとブラウザだらけになっていやーな感じになります。

なら、
commandボタン + リンククリック
で新規タブに表示できるやん。
と、いわれるかもですがそれはそれでめんどい　笑

ということで、デフォルトの設定をターミナルで変えましょう。。
新規ウィンドウ->新規タブ
defaults write com.apple.Safari TargetedClicksCreateTabs -bool true

新規タブ->新規ウィンドウ
defaults write com.apple.Safari TargetedClicksCreateTabs -bool false
か
defaults write com.apple.Safari TargetedClicksCreateTabs

でおkとのこと。
あとはブラウザを立ち上げ直せば有効になってますね。

拡張子を表示する

拡張子を表示するには、、、
Finder->環境設定->詳細
すべてのファイル拡張子を表示　にチェックを入れる。

スクリーンショット

ぶろぐに記事を書こうと思ったらまずスクリーンショットの使い方がわからなかったのでmemo
スクリーンショットの使い方

全画面の場合
commandボタン ＋ shift ３

矩形選択部のショットの場合
commandボタン ＋ shift ４

矩形選択部のショットでのオプション(commandボタン ＋ shift ＋ 4 の後で）
スペースボタン　の後でカーソルを移動すると、ウィンドウ単位での撮影ができる。

デフォルトの拡張子はpng
デフォルト拡張子をかえたい場合はターミルで
defaults writes com.apple.screencapture type 拡張子
と入力しログインし直すと有効になる。
拡張子は
png/tif/pict/jp2bmp/gif/psd/sgi/tga/jpg
が選べるそうな。

小さい文字の入力

Mac(ことりえ)で小さい文字を
la→「ぁ」
li→「い」
lu→「う」
le→「ぇ」
lo→「ぉ」

でするには、
ことりえをクリックして環境設定を選択


選択後、「Windows風のキー操作」にチェックを入れるとOK

帰宅

と、言うわけで
テスト的に、Googleのブログサービスを使ってみたわけですが、、、
いいよ！
　いいよ！
　　これ楽しいよ！

でもね、普段つかっているSleipnirでログインできなかったり
ちょろめを使って、記事を編集しようとしたらタイトル欄が
へんなとこに表示されたりして、なんだかなーという気分になったので
元の巣に戻ります　笑
→http://d.hatena.ne.jp/maeyan/

File::Pathモジュール

ディレクトリを追加したり(mkdir関数)、ディレクトリを削除(rmdir関数)
していてふと思ったのだけど、rmdir関数だとディレクトリの中身が
空じゃないと削除してくれないんですね。

そんなわけで、削除したいディレクトリにファイルがある場合は
ディレクトリ内を削除してからフォルダを削除しないといけない
わけですが、非常にめんどい。
てか、車輪が標準装備されてるんだから使いましょう。
って話。

という流れで登場するのが、File::Pathモジュール。
やってくれることは、階層を持ったディレクトリの作成や
rm -rfコマンドのごとく指定したディレクトリにファイルが
あってもモジュール側で削除してくれます。

で、CPANに飛んでいきまずは、SYNOPSISをコピペで動かしみよう～
→File::Path(Ver 2.04)

と、思ったらうまくいかないのですよ…
で、よくよく見たらmodernとtraditionalに別れてるわけで
自分のPCや、レンタル鯖のFile::Pathのバージョンを調べてみると
Ver1.08なわけです。
で、ひょっとしてってことで
perldoc -m File::Path
で、Ver1.08のPODを眺めてみるとサポートしてるのは、
Ver2.04で書いてあったtraditionalの方の書き方だったので
ひとまず、そちらで書いたら動いてくれました。


という前置きをしてから。
カレントディレクトリに./a/b/cと言ったディレクトリを作りたければ

use strict;
use warnings;
use File::Path;

#modern
mkpath( './a/b/c', {verbose => 0, mode => 0755} );

#traditional
mkpath( ['./a/b/c'], 0, 0755)

(※modernをサポートしてるかは、各自確認してみてください。)

引数についてですが、
２番目の引数をtrueになるように何か与えると
生成したフォルダの情報を吐き出します。
↓こんな感じ

mkdir ./a
mkdir ./a/b
mkdir ./a/b/c

勿論、既にフォルダが存在していた場合は何もしません。

3番目の引数は、パーミッションの設定です。
何もセットしない場合は、ディフォルトで0777がセットされるようです。


削除に関しても同じです。
カレントディレクトリに./a/b/cという構成のディレクトリがあったとして…

use strict;
use warnings;
use File::Path;

#modern
rmtree( './a' );

#traditional
rmtree( ['./a'] )

これで、削除ができますね。

おまけ。
winで、ppmから最新のFile::Pathを探してみたのだけど
最新を含んだリポジトリが見当たらなかったんで、
perl -MCPAN -e shell で
install File::Path で
さっくり入ってくれました。
ver2.04だと他にも引数が用意されていますね。

perldoc -l モジュール名 Enter でモジュールの格納場所がわかるのね。 EOM

シュウォーツ変換！

前回、シュウォーツ変換を勉強した際の記事を下記にて覚え書きしました。
→れっつ、そーと。

で、その続きです。
前回のシュウォーツ変換では、ソートで使った値に重複がありませんでした。
もし、テストの得点順に並び替えるなんて時を考えた場合にある科目では
同じ点数の人がいたので、別の科目もつかって並び替えをしようとした場合を
考えてみます。

Excelで見たらどういうことかわかりよいですかねぇ？？
ExcelでB列に名前、C列に国語の点数、D列に算数の点数が入っていたとします。
点数は、下の図の通りです。



それで、国語の点数で高い順に並び変えようと思ったのですが
tarou と jirou、saburou と shirouが同じ得点だったので
算数の得点も使って高得点な順に並び変えることにしました。
↓つまりこういうこと。



これを実行すると、下記のようになりますよね。



これをシュウォーツ変換を使ってやってみます。

use strict;
use warnings;

my %score = (
            tarou => {
                    kokugo => 90,
                    sansuu => 10,
                      },
            jirou => {
                    kokugo => 90,
                    sansuu => 50,
                      },
            saburou => {
                    kokugo => 10,
                    sansuu => 10,
                      },
            shirou => {
                    kokugo => 10,
                    sansuu => 90,
                      },
              );

my @person  = qw(tarou jirou saburou shirou);
my @ranking = map  { $_->[0] }
              sort { $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2] }
              map  { [$_, $score{$_}{'kokugo'}, $score{$_}{'sansuu'} ]}
              @person;

print "@ranking\n";

こんな感じになって実行すると…
jirou tarou shirou saburou
になります。

つまり、map-sort-mapのうち最後のmapでは、
map { ['並び替えたい物', '値１', '値2', ･･･, '値N'] }
としてあげればよくて
スペースシップ演算子では、左右で同じ値だと０を返すので
or演算子で同じ値だったら次の条件を使って判断してもらう
ようにすれば、いくらでも条件を追加していくことができます。
sort{ $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2] || … $b->[N] <=> $a->[N] }
最初のmapはリファレンスの最初の要素を拾っているだけなので変わりません。
便利よいですね。

以上

Instant.js

0.Instant.jsって
画像をフォトフレームに入れて表示したように見せることができます。
フレームの色や傾きなど指定できます。

1.download
http://www.netzgesta.de/instant/
内の下の方に移動するとDowloadという折りたたみ式のメニュー
があるのでクリックするとリンクが出てきます。

(なにげに、一番上のinstant.jsってロゴをクリックしてもダウンロードできますねぇ。)

2.使い方
ファイル構成が下記の場合で説明します。

index.html
┣ js
┃ ┗ instant.js
┗ pic
   ┣ image-1.jpg
   ┣ image-2.jpg
   ┣ image-3.jpg
   ┣ image-4.jpg
   ┣ image-5.jpg
   ┗ image-6.jpg

まず、javascriptのファイルを指定をします。

<script type="text/javascript" src="./js/instant.js"></script>

あとは、imgタグに class="instant" を追加するだけです。
例）

<img src="http://www.blogger.com/pic/image-1.jpg" class="instant" />
<img src="http://www.blogger.com/pic/image-2.jpg" class="instant" />
<img src="http://www.blogger.com/pic/image-3.jpg" class="instant" />

デフォルトだと、フレームが白で傾きが
左下がり、平行、右下がりの繰り返しになります。



ちなみに、class名を変えることで下記の効果が得られます。
◇傾き
"instant" → "instant itiltnone" ⇒ 画像を傾けない。
"instant" → "instant itiltleft" ⇒ 左下がり
"instant" → "instant itiltright" ⇒ 右下がり

◇写真フレームの影
下記のようにshadowの後に0(薄い)～100(濃い)を
追加することで写真フレームの影の濃さを変更できます。
"instant" → "instant ishadow50"

◇フォトフレームの色
下記のようにicolorの後に色を指定することで
フォトフレームの色を変えることができます。
"instant" → "instant icolor1038C6"

上の３つを混合し、全て右上がりでフレームカラーを
googleちっくにして一番左だけ影を濃くするにはこんな
コードになります。

<img src="http://www.blogger.com/pic/image-1.jpg"
                                       class="instant itiltleft ishadow100 icolor1038C6" />
<img src="http://www.blogger.com/pic/image-2.jpg" class="instant itiltleft icolorCE1800" />
<img src="http://www.blogger.com/pic/image-3.jpg" class="instant itiltleft icolorFFCF00" />
<img src="http://www.blogger.com/pic/image-4.jpg"
                                       class="instant itiltleft ishadow100 icolor1038C6" />
<img src="http://www.blogger.com/pic/image-5.jpg" class="instant itiltleft icolor4ACB4A" />
<img src="http://www.blogger.com/pic/image-6.jpg" class="instant itiltleft icolorCE1800" />

3.参考サイト
ゼロからはじめるInstant.js - Webの画像を壁掛け写真風にアレンジ

4.instant.jsのサイト
http://www.netzgesta.de/instant/

Image::Magickモジュール

いろいろいじってみます。
ひとまず、ファイルの構成は下記の通りで進めます。
-----ファイル構成-----

t.pl
┗ pic
　　┗ b001.bmp

----------------------

◆画像のサイズを調べてみます。

use strict;
use warnings;
use Image::Magick;

my $picture = "./pic/b001.bmp";

my $img = Image::Magick->new();
$img->Read($picture);
my ($x, $y) = $img->Get('width', 'height');
print "Size:$x×$y\n";

実行結果
----------------------
Size:333×272
----------------------


◆縦/横比を保ったまま、100pxの正方形に収まるようにリサイズ変更する。
(縦/横のうち長い方を指定したサイズに変更し、縦横比に従い短い方を自動的に変更する方法）

use strict;
use warnings;
use Image::Magick;

my $old_pic = "./pic/b001.bmp";
my $new_pic = "./pic/new_b001.bmp";

my $img = Image::Magick->new();
$img->Read($old_pic);
my ($x, $y) = $img->Get('width', 'height');
print "Old_Size:$x x $y\n";

$img->Resize(geometry => 100);
$img->Write($new_pic);
$img->Read($new_pic);
($x, $y) = $img->Get('width', 'height');
print "New_Size:$x x $y\n";

実行結果
-------------------------------------------
Old_Size:333×272
New_Size:100×82
-------------------------------------------
これで、picフォルダ内に、new_b001.bmpが
100×82の画像が作成されます。


ちなみに、画像じゃないデータを渡すと何もおきません。
(※今後少しずつ追記していきます。)
Image::Magickの使い方→http://www.imagemagick.org/script/perl-magick.php

File::Findモジュール

あるディレクリ内のファイルを再帰的に探し出したい！
という時に使えるモジュールですね。

今回のコードはこんな環境で使ったとします。

test.pl
┗ etc
 　┗ h001.html
  　　┣ pic
  　　┃ ┗ g001.gif
  　　┃
  　　┗ file
   　　　┣ c001.css
   　　　┗ j001.js

use strict;
use warnings;
use File::Find;

my $directory = "./etc";    #./etcをスタートしてその配下を探索。
find(\&output, $directory); #ﾌｧｲﾙorﾌｫﾙﾀﾞを見つけるたびに\&outputを参照。

sub output{
  print "\$File::Find::dir  : $File::Find::dir\n";
  print "\$_                : $_\n";
  print "\$File::Find::name : $File::Find::name\n\n";
}

実行結果
---------------------------------------
$File::Find::dir : ./etc
$_ : .
$File::Find::name : ./etc

$File::Find::dir : ./etc
$_ : file
$File::Find::name : ./etc/file

$File::Find::dir : ./etc/file
$_ : c001.css
$File::Find::name : ./etc/file/c001.css

$File::Find::dir : ./etc/file
$_ : j001.js
$File::Find::name : ./etc/file/j001.js

$File::Find::dir : ./etc
$_ : pic
$File::Find::name : ./etc/pic

$File::Find::dir : ./etc/pic
$_ : g001.gif
$File::Find::name : ./etc/pic/g001.gif

---------------------------------------
見ての通りなんですが
$File::Find::dirで起点からのパスが格納されます。
$_は、ファイル名orフォルダ名が格納されます。
$File::Find::nameで起点からのパス + (ファイル名｜フォルダ名)となってます。

Dumpvalueモジュール

前回投稿したData::Dumperモジュールに引き続き
データ構造見るならデバッガのxコマンドで吐出す形式と
同じ方がいいなぁーという場合には、

use strict;
use warnings;
use Dumpvalue;

my $d = Dumpvalue->new();
my %hash;
$hash{a}{b} = "ab";
$hash{a}{c} = "ac";
$hash{b}{a} = "ba";
$hash{b}{c} = "bc";
$hash{c}{a} = "ca";
$hash{c}{b} = "cb";
$d->dumpValue(\%hash);

実行結果

'a' => HASH(0x276224)
   'b' => 'ab'
   'c' => 'ac'
'b' => HASH(0x27605c)
   'a' => 'ba'
   'c' => 'bc'
'c' => HASH(0x1853ef0)
   'a' => 'ca'
   'b' => 'cb'

例えば、大量に続くコードの途中にある変数の構造が知りたい時に
標準出力してしまうよりファイルに出力した方が何かと便利よさそうですよね。
『PERL HACKS』が言うには、
dumpValue()の出力先が標準出力であることを利用して
select関数を使って標準出力を一時的に変更してあげれば
ファイルへ出力もOKになるってことで…

use strict;
use warnings;
use Dumpvalue;

my $d = Dumpvalue->new();
my %hash;
$hash{a}{b} = "ab";
$hash{a}{c} = "ac";
$hash{b}{a} = "ba";
$hash{b}{c} = "bc";
$hash{c}{a} = "ca";
$hash{c}{b} = "cb";

open my $temp_fh, '>dump.txt';
my $old_fh = select($temp_fh); #select関数は、標準出力を変更し、現在の標準出力を返す。
$d->dumpValue(\%hash);
close $temp_fh;
select($old_fh); #標準出力を$old_fh(main::STDOUT)に戻す

で、ファイルに出力できますね。

Data::Dumperモジュール

リファレンスなどを含んでたり、構造が深くなっていくと
パットそれがどんな構造なのかわからなかったり、
あるモジュールの返す値ってどんな構造なんだ？？
というときがあります。
そういう時に便利よいのがData::Dumperモジュールだそうです。
というわけで、使ってみる。

use strict;
use warnings;
use Data::Dumper;

my @array = ([qw(a b c)], [qw(d e f)], [qw(g h i)]);
print Dumper \@array; #ﾘﾌｧﾚﾝｽを渡す

実行結果

$VAR1 = [
          [
          'a',
          'b',
          'c',
          ],
          [
          'd',
          'e',
          'f',
          ],
          [
          'g',
          'h',
          'i',
          ],
      ];

わかりよいですねぇー。
他にも試してみますよー。

use strict;
use warnings;
use Data::Dumper;

my %hash;
$hash{a}{b} = "ab";
$hash{a}{c} = "ac";
$hash{b}{a} = "ba";
$hash{b}{c} = "bc";
$hash{c}{a} = "ca";
$hash{c}{b} = "cb";
print Dumper \%hash;  #ﾘﾌｧﾚﾝｽを渡す

実行してみると…

$VAR1 = {
          'c' => {
                 'a' => 'ca',
                 'b' => 'cb'
                 },
          'a' => {
                 'c' => 'ac',
                 'b' => 'ab'
                 },
          'b' => {
                 'c' => 'bc',
                 'a' => 'ba'
                 }
        };

ちなみに、Data::Dumperにはオプションがあります。
Indent...インデントを変更。下記値を指定するとOK。
0→インデントなし
1→固定幅
2→自動可変(ディフォルト)

Terse...変数名の表示/省略
0→変数名を省略しない(ディフォルト)
1→可能であれば省略

Sortkeys...項目のソート
0→キーをソートしない(ディフォルト)
1→キーをソートする


例えば、インデント固定幅（１） 変数名なし（０）でキーでソートする（１）ように指定すると…

use strict;
use warnings;
use Data::Dumper;

my %hash;
$hash{a}{b} = "ab";
$hash{a}{c} = "ac";
$hash{b}{a} = "ba";
$hash{b}{c} = "bc";
$hash{c}{a} = "ca";
$hash{c}{b} = "cb";
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Sortkeys = 1;
print Dumper \%hash; #ﾘﾌｧ(ry

実行結果

{
'a' => {
  'b' => 'ab',
  'c' => 'ac'
},
 'b' => {
   'a' => 'ba',
   'c' => 'bc'
},
 'c' => {
   'a' => 'ca',
   'b' => 'cb'
}
}

Date::Dumperの和訳みっけましたので、メモ書きしときます。
→Data::Dumper - perlデータ構造の出力/eval両用文字列化

関連→Dumpvalueモジュール

URIモジュール

URLを触る時は、URI（perlモジュール名)が超便利だと思う。

と、言うわけで触ってみた。
-分解編-

use strict;
use warnings;
use URI;

print "URI_VERSION: ", URI->VERSION, "\n\n";
my $uri = URI->new("http://www.hoge.com/path1/path2/?q1=abc&q2=cde");

print "URI: ", $uri, "\n";
print "scheme: ", $uri->scheme, "\n";
print "host: ", $uri->host, "\n";
print "path: ", $uri->path, "\n";
print "query: ", $uri->query, "\n\n";

$uri = URI->new("http://www.hoge.com/path1/path2/index.html#hoge");
print "URI: ", $uri, "\n";
print "fragment: ", $uri->fragment, "\n";

実行結果



-結合編-

use strict;
use warnings;
use URI;

my $uri = URI->new("http://www.hoge.com/path1/path2/");
$uri->query_form(q1 => 'abc', q2 => 'def');

print "URI: ", $uri, "\n";

実行結果
-------------------------------------------------------------
URI: http://www.hoge.com/path1/path2/?q1=abc&q2=def
-------------------------------------------------------------

use CGI；のタグリスト

タイトルのまんま。
よく使うのに、いまだにどのタグリストが何をサポートしてるんだかだったんで
CGI.pmよりがっつりハードコピー。

%EXPORT_TAGS = (
':html2'=>['h1'..'h6',qw/p br hr ol ul li dl dt dd menu code var strong em
tt u i b blockquote pre img a address cite samp dfn html head
base body Link nextid title meta kbd start_html end_html
input Select option comment charset escapeHTML/],
':html3'=>[qw/div table caption th td TR Tr sup Sub strike applet Param
embed basefont style span layer ilayer font frameset frame script small big Area Map/],
':html4'=>[qw/abbr acronym bdo col colgroup del fieldset iframe
ins label legend noframes noscript object optgroup Q
thead tbody tfoot/],
':netscape'=>[qw/blink fontsize center/],
':form'=>[qw/textfield textarea filefield password_field hidden checkbox checkbox_group
submit reset defaults radio_group popup_menu button autoEscape
scrolling_list image_button start_form end_form startform endform
start_multipart_form end_multipart_form isindex tmpFileName uploadInfo URL_ENCODED MULTIPART/],
':cgi'=>[qw/param upload path_info path_translated request_uri url self_url script_name
cookie Dump
raw_cookie request_method query_string Accept user_agent remote_host content_type
remote_addr referer server_name server_software server_port server_protocol virtual_port
virtual_host remote_ident auth_type http append
save_parameters restore_parameters param_fetch
remote_user user_name header redirect import_names put
Delete Delete_all url_param cgi_error/],
':ssl' => [qw/https/],
':cgi-lib' => [qw/ReadParse PrintHeader HtmlTop HtmlBot SplitParam Vars/],
':html' => [qw/:html2 :html3 :html4 :netscape/],
':standard' => [qw/:html2 :html3 :html4 :form :cgi/],
':push' => [qw/multipart_init multipart_start multipart_end multipart_final/],
':all' => [qw/:html2 :html3 :netscape :form :cgi :internal :html4/]
);

こうしてみると、パラメータのデータはCGI.pmで受け取りたいけど
HTMLはヒアドキュメントを使ってがっつりモリモリ書いてます…
という人なら
use CGI qw/:cgi/;
で、おｋなのね。

パラメータをCGI.pmで受け取って、HTMLもCGI.pmで生成するのであれば
use CGI qw/:standard/;
で、おｋなのね。

CGI.pmを解説しているページ
　→http://tuka.s12.xrea.com/index.xcg?p=CGI.pm

じゃんじゃん参考にさせていただきまひょ。

|| && 演算子のメモ

初期値をセットするのによく使うor演算子。

sub hoge{
my $arg = shift || "hogehoge";
print $arg, "\n";
}

上の場合は、引数があればその値を表示し
なければ"hogehoge"を表示することになる。
じゃ、下の場合は何を表示する？

use strict;
use warnings;

print 1  || 2,  ",\n";
print 0  || 3,  ",\n";
print "" || 4,  ",\n";
print "" || "", ",\n";
print "" || 0,  ",\n\n";

print 5  && 6,  ",\n";
print 7  && 0,  ",\n";
print 0  && 8,  ",\n";
print 9  && "" && 0, ",\n";

最後に評価した物が返されるってことさえ頭にあればとくに問題ないですよね。
or演算子が最後に評価するものといえば、
一つでも真がある時、一番最初の真の値
真がない時、一番最後の偽の値

and演算子が最後に評価するものといえば
全て真の時、一番最後の真の値
偽の時、一番最初の偽の値

リファレンスの復習

用語的なもの。
リファレンス・・・値、変数を指し示す物
リファレント・・・リファレンスが指し示す元の値・変数
$scalar(変数)
$ref_scalar = \$scalar(リファレンス)
$value = ${$ref_scalar}(リファレント)

ref関数で返す値
スカラ値：undef
スカラへのリファレンス："SCALAR"
配列へのリファレンス："ARRAY"
ハッシュへのリファレンス："HASH"
サブルーチンへのリファレンス："CODE"
ファイルハンドルへのリファレンス："IO"または"IO::Handle"
型グロブへのリファレンス："GLOB"
事前コンパイルパターンへのリファレンス："Regexp"
別リファレンスへのリファレンス："REF"
bless済みの変数：クラス名

いろんなHello,World!

プログラムの最初に必ずと言って登場する言葉ですよね　笑
そんなHellow,World!突き詰めてみると案外新しい発見が
あったりするもので、なかなか侮れません　笑

そんなわけで、いろんなHellow, world!を扱った
ページでものっけておきますねぇ。

-マイコミの場合-
・Hello Worldコレクション（Perlなら→Perl編 - 意外!?に多芸多才なスクリプト言語）

-どう書く?orgの場合-
・どう書く？org（Hello, world!）
・どう書く？org（Hello, world!2）

-wikipediaの場合-
・Hello worldプログラムの一覧

少し使って思った。

ここのブログ物足りないこともあるけ
ども、全般的にいい感じだーね。
ブログ単体としてみたらね。

コミュニティを含めて判断するとそれはまた別のお話だったりして　笑

動作確認用webサーバ

Catalystの動作確認用webサーバで
実行時の -rオプションは、アプリケーションが変更した時に読みなおす。
実行時の -pオプションは、ポート番号を指定。
Ctrl + c　で動作確認用webサーバの停止。


-rオプションをつけずに動作確認用webサーバを起動した場合は、
アプリの変更が反映されないので、 -restartオプションをつけて
再起動する必要があるらしい。。

いろいろ試してみるか。

サブルーチン名; と &サブルーチン名; の違いのメモ。

&なしでサブルーチンを呼び出す時は、
既にサブルーチンが定義されている必要がある。
&ありの場合は、その後に定義されていても問題ない。

use strict;
use warnings;

csrf;

sub csrf{
print "こんにちはこんにちは!\n"
}

&なしのサブルーチン呼び出しだと先に定義されていないと叱られる。
定義後に&なしのサブルーチン呼び出しならOK

use strict;
use warnings;

sub csrf{
print "こんにちはこんにちは!\n"
}

csrf;

ただし、&ありでサブルーチンを呼び出すのならば
サブルーチンの定義前後関係なく呼び出しOKとなる。

use strict;
use warnings;

&csrf;

sub csrf{
print "こんにちはこんにちは!\n"
}

これだけかと思ったら、
&のあるなしで、もっともっと微妙な違いがある。
(以下、ものすごい勢いで頭の片隅において置く…)

use strict;
use warnings;

@_ = qw(abc def);

sub csrf{
 @_ ? print "@_\n" : print "こんにちはこんにちは！";
}

&csrf;
csrf;

この時の　&csrf;　と　csrf;　の違いは？
ということなんですが…
ひとまず、上記コードを実行してみます。



&csrf;　は、&csrf(@_);と同義。
csrf;　は、 csrf();と同義。

&付きサブルーチン呼び出しは、引数を
設定していない時は、@_を渡すようです。
当然ながら、@_を設定していなければ、csrf;の時
同様こんにちはこんにちは！って表示されます。
(※と、書いてあったものの@_に何か設定することってあるのかなぁ？？)

リファレンスの復習

なんだかうろ覚えなとこがあったんで
復習の意味を込めてメモ書きしておきます。

スカラーの場合。

use strict;
use wanings;

#set
my $scalar = "スカラー";   #ｽｶﾗｰのﾌｧﾆｰ文字は$

#ﾘﾌｧﾚﾝｽ
my $ref_scalar = \$scalar; #ﾘﾌｧﾚﾝｽを取得するには\をつける

#表示
print "$ref_scalar\n";     #ﾘﾌｧﾚﾝｽを表示してみる
print "${$ref_scalar}\n";  #ﾃﾞﾘﾌｧﾚﾝｽしてから表示

結果

・ひとまずまとめ。
変数や値のリファレンスを取得したい場合はそれぞれに \をつければOK
リファレンスから元の対象を参照(デリファレンス)するには、参照先の変数が
使用しているファニー文字（変数の頭につける$とか@とか)をつけるとOK
デリファレンスの書き方は、ブラケットを取り外し$$ref_scalarと書くこともOKだが…
可読性を考えると${$ref_scalara}の方がよい。


配列とハッシュの場合。

use strict;
use warnings;

#set
my @array  = qw(array1 array2 array3);
my %hash   = (guu   => "rock",
      cyoki => "scissors",
      paa   => "paper",
     );

#ﾘﾌｧﾚﾝｽ
my $ref_array = \@array;
my $ref_hash  = \%hash;

#表示
print "@{$ref_array}\n";
print "%{$ref_hash}\n";

結果


さきほど、ファニー文字つけりゃリファレンス元の値を表示できると
書いてしまいましたが、配列の方は、各要素が表示されているけども
ハッシュの方は何か変ですね…
これって、
%{$ref_hash}→%{とリファレンスと}を表示しているだけですね　汗

そもそも
print "@array\n";
で変数展開されても
print "%hash\n";
じゃ、変数展開されませんからねぇ
当然と言えば当然な挙動ですね　笑

use strict;
use warnings;

my @array  = qw(array1 array2 array3);
my %hash   = (guu   => "rock",
      cyoki => "scissors",
      paa   => "paper",
     );
print "@array\n";
print "%hash\n";

結果


どうでもよい話ですが…
print @array, "\n";
print %hash, "\n";
とすると
array1array2array3
paarockcyokiscissorsguurock
と展開されます。。


さて横道へそれるのはここまでとして配列とハッシュの各要素を表示してみます。

use strict;
use warnings;

#set
my @array  = qw(array1 array2 array3);
my %hash   = (guu   => "rock",
       cyoki => "scissors",
       paa   => "paper",
       );

#ﾘﾌｧﾚﾝｽ
my $ref_array = \@array;
my $ref_hash  = \%hash;

#表示
print "${$ref_array}[0], ${$ref_array}[1], ${$ref_array}[2]\n";
print "${$ref_hash}{guu}, ${$ref_hash}{cyoki}, ${$ref_hash}{paa}\n";

結果


配列、ハッシュ、サブルーチンは、アロー演算子を使って簡略化して表記できます。
書き方は、下記の通り。
リファレンス->[要素]　配列
リファレンス->{要素}　ハッシュ
リファレンス->(引数) 　サブルーチン

つまり
${$ref_array}[0]　　　→　$ref_array->[0]
${$ref_hash}{guu}　→ 　$ref_hash->{guu}
と書くことができる。
これって、多次元配列をデリファレンスする時に便利よいのねぇ。


ということで、次は多次元配列でも。
@number = ((1, 2, 3),
(4, 5, 6),
(7, 8, 9),
);
としたところで、多次元配列にならない。
平坦化してしまうので上の表記は、
@number = (1, 2, 3, 4, 5, 6, 7, 8, 9);
と同じことである。
多次元配列を実現したい場合は、
@row1 = (1, 2, 3);
@row2 = (4, 5, 6);
@row3 = (7, 8, 9);

@cols = (\@row1, \@row2, \@row3);

$number = \@cols;

としてあげるとOK
たとえば、4を表示するには…
${$number}[1]　と書くと \@row2　というリファレンスを表している。
目的の４は、\@row2の第１要素なので…
${${$number}[1]}[0] となる。
非常にわかりづらい…
じゃ、アロー演算子を使ってもう一度考えてみる。
配列でアロー演算子を使うには
リファレンス->[要素] で表現できるので…

${$number}[1]　は、　$number->[1]と表記できる
$number->[1]はリファレンスで４は、\@row2の第１要素なので
${$number->[1]}[0]となる。
${$number->[1]}[0]　は、　$number->[1]->[0]と表記できる。

ちなみに、アロー演算子は　]->[ 　や　}->{　といった風に
（角括弧|ブラケット)の間にある場合省略することができる。

というわけで、
$number->[1]->[0]　は、　$number->[1][0]と表記できる。
最初に記した
${${$number}[1]}[0]　と比較すると
$number->[1][0]　　　　の方がわかりよいですよねぇ。


で、ここであることに気づきます。
せっかく、row1,row2,row3,colsという配列を作ってみたものの
最終的に各要素にアクセスするのに$number->[1][0]で済んで
しまい、せっかく悩んでつけた変数名が入ってません。
そんなわけで、無名配列を使えば変数名を使わずに同様のことができます。

配列やハッシュで値を代入する際に
@array = (1, 2, 3);
%hash = (a=>1, b=>2, c=>3);
のように括弧でくくります。
無名配列や無名ハッシュを作る場合は、
配列は[]でくくり、ハッシュは{}でくくります。
それぞれの要素にアクセスする際に何でくくるかを思い出すとよいですよね。

つまり、さきほどのrow1, row2, row3, colsを使わないで表現すると
$number = [[1, 2, 3], [4, 5, 6], [7, 8, 9]];
と表現できます。
無名配列や無名ハッシュは、"無名"なんで何かの変数に入れないと使えません。
そして、代入しているものは、実際の値ではなくリファレンスです。


次は、サブルーチンです。

use strict;
use warnings;

#set
sub csrf{                            #引数を取らない場合
print "こんにちはこんにちは！\n";
}
sub message{                         #引数を取る場合
my $str = shift;
print "$str\n";
}

#ﾘﾌｧﾚﾝｽ
my $ref_csrf    = \&csrf;
my $ref_message = \&message;

#サブルーチンを実行
&{$ref_csrf};
&{$ref_message}('今日の更新は長い…');

結果


さきほど、アロー演算子の説明の時、下記のように書きました。
リファレンス->[要素]　配列
リファレンス->{要素}　ハッシュ
リファレンス->(引数) 　サブルーチン

つまり、
&{$ref_message}('今日の更新は長い…');　は、
$ref_message->('今日の更新は長い…');　　と書くことができます。

ちなみに、このエントリーの最初の方でリファレンスを取得するには
変数や値に\をつければOKと書きました。

つまり、
$ref_message->('今日の更新は長い…');　は、
$ref_message->(\'今日の更新は長い…');　と書くことができます。

そうなると、サブルーチン内で受け取る$strはリファレンスということになるので
print関数内はデリファレンスしなければいけません。

use warnings;

#set
sub message{
  my $str = shift; #$strの中身は、ﾘﾌｧﾚﾝｽ
  print "${$str}\n";
}

#ﾘﾌｧﾚﾝｽ
my $ref_message = \&message;

#ｻﾌﾞﾙｰﾁﾝを実行
$ref_message->(\'今日の更新は長い…');

最後に、無名サブルーチンです。
無名(配列|ハッシュ)と一緒ですね。
my $csrf = sub {print "こんにちはこんにちは！"};
&{$csrf};
でOKですね。
無名サブルーチンは、クロージャあたりで使うらしいですよ。

strictプラグマは何でディフォルトじゃないのか？

ちらほらこの手の疑問は見かけていたものの、
自分も何でディフォルトじゃないんだろう？？
と思っていました。

弾さんのブログで解説がありましたのでリンクをば。
perl - use strict なしでstrictに

予約語プログラミング

面白すぎ！　笑



TAKESAKOさんの ppencode が何で動くのか分かった。

おまけ：最もタメになる「初心者用言語」は Brainf*ck！

せっかくだから。

はてなスターを表示するコードを追加してみた。
はてなバーを入れているとディフォルトで表示されるんで
毎日ながめているとブログの方にjavascript追加して標準で
表示した方が入れてないブラウザで見る時とか便利よいかと　笑

ちなみに、はてなバー入れてるとwikipediaも☆表示されるんね
(追記)うまくいかないやん！
下記説明をもとにやってみたんですが
http://d.hatena.ne.jp/hatenastar/20070707
☆＋ボタンが表示されるようになるのだけど
☆を追加すると、はてなにログインしているにも関わらず
キミにアカウントは何？おしえてーよーでれでれ
ってダイアログが表示されユーザ名を入力すると
もーログイン済みじゃん！つんつん
って叱られるんですが…


ちなみに、上記にのっけた解説ページに登場する「ははててなな」ですが…
☆＋ボタンすらないですよ…　汗
http://hahatetenana.blogspot.com/

my宣言メモ

my宣言のスコープは、my宣言をしてからブラケットの終わり(})まで。
下記コードを書いた場合
$strは、ブラケットの終わりまで…
つまり、ここではif文を抜けるまでが範囲となる。
よって、if文の後に$strを書くとuse strictに
グローバル変数$strを使ってるぞ！
と、こっぴどく叱られることになる。

use strict;
use warnings;

if(1){
  my $str = "ok";
}

print "$str\n"; #strictプラグマにこっぴどく叱られる

でも、同じif文でもif修飾子になるとブロックを
排除するのでスコープの範囲が変わる。

use strict;
use warnings;

my $str = "ok" if(1);
print "$str\n"; #okと表示される。

たいしたネタもないので…

ここ最近ソートに絡む記事を書いていたので
ついでに、バブルソートでも書いてみた。
（近いうちに更新する内容の仕込みです．．．）

use strict;
use warnings;
#bubble-sort
my $num = 20;
my @array;

for(my $i=0; $i<$num; $i++){  push @array, int(rand(100)) + 1; } print "Before-sort:@array\n"; my $loop = $num; while($loop){  for(my $i=$num-1;$i>$num-$loop-1;$i--){
($array[$i], $array[$i-1]) = ($array[$i-1], $array[$i]) if(($array[$i] - $array[$i-1])<0);

Catalyst

Catalyst…キター！



と、言うわけでCatalyst入れてみました。
あちこちwebを彷徨って見るとわかるように、GUIのppm立ち上げて
Task::Catalystを実行して、Catalystに必要な物達を入れようと企んでも
conflict forほげほげって叱られて入らないんですよねぇ。
で、-force　オプションつければＯＫだよ！(-forceオプションは、問題がある場合でも強制的インストールするので要注意・・・)
なんて話があって、GUIの方ではオプションのつけ方がわからないので
プロンプト（CUI)の方で
ppm install -force task::catalyst　でＯＫでした。
ちなみに、Perlのバージョンは、5.8.8。


というわけで、週末にじっくりほげほげしたりして遊んでみよう♪
参考にしたページ。
PerlのMVCフレームワーク、Catalystを試す
Perlメモ/Plaggerモジュール
ActivePerl5.8/5.PPMチュートリアル/1.PPMでモジュールをインストールする

正規表現メモ o修飾子とは

正規表現に変数を取ることができる為に
正規表現を実行するたびに内部表現へと
コンパイルが発生してしまう。

正規表現に変数(値の変わる入れ物)として使うのでなく、
正規表現を見やすくする為の置き換えとして変数を利用
している場合、リテラルと同等の為正規表現を実行する
たびにコンパイルのは無駄になる。

こういった場合、o修飾子をつけてあげると変数であっても
最初の１回しかコンパイルしないことで効率を上げるとい
った用途で使う。

どう書く？::比較しないソートの作成

どう書く？orgの問題でも解いてみました。
ひとまずこれ。
→比較しないソートの作成

ソート対象のデータ同士で一切比較などを行わずにソートし、ソート結果を出力するプログラムを作成してください。条件は以下の通り。
・最低値・最大値・個数・並び替え対象の4つを引数として受け取る
・最大値と最低値はあくまで取りうる可能性であり、実際に出現することを保障するものではない。
・同値が複数出現することがある。
・入出力方法及びフォーマットは自由、関数として実装し引数に渡す形でも良い。
・小数点以下の数値が渡されることはないが、負の数は渡される可能性がある。
・最大値や最低値を元に算出した数値との比較は使用しても問題ありません。
・出来るだけ多様な条件のデータをソートできるアルゴリズムを使ってください(データが多少多いときや一定の並び順だとソート失敗するものはダメ)
・昇順降順はどちらでもかまいません

以下サンプル入出力
>>入力
-1 10 10
-1 9 4 8 9 6 3 9 5 2
>>出力
-1 2 3 4 5 6 8 9 9

ひとまず、バケットソートで解いてみました。

use strict;
use warnings;

my $set_min = -1;
my $set_max = 10;
my @set_num = (-1, 9, 4, 8, 9, 6, 3, 9, 5, 2);

&bucketSort($set_min, $set_max, \@set_num);

sub bucketSort{
 my $delta     = 1 - shift;
 my $delta_max = $delta + shift;
 my $ref_num   = shift;
 my @array;
 for (@$ref_num){
    ($array[$_ + $delta]) ? $array[$_ + $delta]++ : ($array[$_ + $delta] = 1);
 }
 for (my $i=1; $i<$delta_max; $i++){
   if($array[$i]){
     my $temp = $i - $delta;
     print " $temp"x$array[$i];
   }
  }
}

実行結果。

正規表現メモ ?:

正規表現で、javaにもjavascriptにもマッチさせたい場合
/java(script)?/と書けばよいわけだけど
括弧を使うと自動的に$1にメモリされる。

$_ = "javascript";
print "\$1=$1\n" if(/java(script)?/);

この場合
$1=script
と表示される。

でも、この手のシチュエーションで括弧内の
情報が知れると嬉しいなんてことはまずない。
つまり、使いもしないのに$1としてメモリを消費したことになる。
この無駄なメモリ消費を回避するにはどうすればよいかと言うと
最初の括弧の後に?:（クエスチョンマークとコロン)を並べるとメモリしなくなるそうな。

試してみる。

$_ = "javascript";
print "\$1=$1\n" if(/java(?:script)?/);
print "\$1=$1\n" if(/java(script)?/);

実行結果


確かにメモリされてないですね。
コードが短けりゃ、このわずかなメモリ消費なんて気にする必要はないでしょうし
コードが長けりゃ、どこかしらに正規表現を使っていて$1等で呼び出しを一度でも
していれば、?:なんて記述はする意味がないのかなぁー
と思ってみたり。

EffectivePerlを見る限りだと相当時間にシビアな時に使うみたいですねぇ。
頭の片隅に入れときましょ。

いまさらですか 汗

会社（注）でFizzBuzzでgolfして遊んでいたら、
３の倍数と３の付く数字の時にアホになるのってどうかくのって？
話を振られたので、いまさらだけど書いてみた　笑

(/3/||$_%3==0)?print"$_(アホ)\n":print"$_\n"for(1..40);

うん。
いまさらですね　汗


(注)一応、断っておきますが、うちはメカ屋であってプログラムとは一切無縁の会社です　汗

GreyBox

0.GreyBoxって
ページを作成していて、例えばヘルプのページだったり
サムネイル状態の画像をクリックすることで本来のサイズで
閲覧したいなぁー
と言った時に便利よいのがこのライブラリ。
target="_blank"と違って、同じページ上に
灰色の透過レイヤを作成し表示してくれます。




1.download
http://orangoo.com/labs/GreyBox/Download/
内の「Download current version」の項目にあるリンクをクリック。
現在のバージョンは、5.53ですね。



2.使い方
サンプルをみるとすぐにわかります。
サンプルは…解凍後、GreyBox_v5_53内のGreyBox_v5_53をクリックし
installation.html
をクリックすると設置の仕方が書いてあります。
注）var GB_ROOT_DIR　は、自分の設置するディレクトリに変えること。
後は、examplesのタブをクリックすると参考例が
のっているのでそれ通りにすると使えますね。
サンプルは、本家サイトにありますのでそちらをどうぞ。
→サンプル

3.参考サイト
ゼロからはじめるGreyBox - 一歩先行くウィンドウ表示
GreyBoxリファレンス


4.GreyBoxのサイト
http://orangoo.com/labs/GreyBox/

javascript

ふと、思った。
こっちのブログでは、Perlオンリーという風に
考えていたんだけども、実際にCGI書いてたら
便利なJavascriptのライブラリも使いたくなるんだけど
CPANほど便利よいものはないので見つけたらメモしていく
ことにしました。
(だって、JSANはいまいちなんだもん。)

正規表現メモ

ちょっぴり気になったものや、間違いそうな物を
自分メモとしてまとめておくエントリーです。
ただ、ただ羅列していきますよー

・"Perl"と"Javascript"というワードの間に任意個の半角スペースまたは、タブの混在を含む文字列にマッチするには？


/Perl( |\t)+Javascript/
例)

$_ = "Perl\t\t\tJavascript"; #match!
$_ = "Perl\t    \tJavascript"; #match!
$_ = "Perl           Javascript"; #match!

・"Perl"と"Javascript"というワードの間に任意個の半角スペースのみかタブのみのどちらかの文字列にマッチするには？


/Perl( +|\t+)Javascript/
例)

$_ = "Perl\t\t\tJavascript"; #match!
$_ = "Perl\t    \tJavascript"; #No match!
$_ = "Perl           Javascript"; #match!

正規表現といえば、こちらが参照するとよいかもですね。
http://oraclesqlpuzzle.hp.infoseek.co.jp/regex/

たぶん、後で読む本。

アマゾンをふらついていて、見つけてしまった本です。
☆の評価が4.7点/5点中という人気の本なんですが
昭和２９年６月２５日に発行となったこの本がいまだ
人気を誇っているというのもそそられる要因だったりしたのです　笑


いかにして問題をとくか…
本書は、数学を通し未知の問題に出会った場合どのように考えたらよいかを示した本で
日常の仕事においては、未知なる問題のオンパレードです。
そういったことを踏まえても本書は、魅力的な１冊に見えてくるわけです。
今度暇があった読もう。

今読んでいる本

前の記事でも触れましたが、Effective Perlは、よか本ねぇ！
よりPerlらしく書く為の情報がてんこ盛りですばい。
ばってん。
興味ある方は、買ってみたらいかがですか～？

れっつ、そーと。

「Effective Perl」面白いですねっ！
「Perlクックブック」だと分厚すぎて、時間のある時に
読もうと思い持ち運びなんて使いしづらいですもんね。
その点、Effective Perlなら手ごろな厚さで内容
も濃厚で読んでいて楽しいことこの上なしです！


で、今日は14項の「数限りなきソート術を学ぼう」を読んだのですが…
変なのキター！
というわけで、これですこれkr。

@sorted_names =
　map { $_ -> [0] }
　sort { $a -> [1] <=> $b -> [1] }
　map { [$_, -M] } @files;

@filesに格納されているファイル名をファイル変更日付でソートかけてるわけです。
これだけだと何のことだかわけわかめなんで、順を追ってメモメモ。


まずは、sort関数と言うと…下記の通りですよね。
ソートされた関数 ＝ sort (ソート順の定義)?　ソート対象のリスト;

use strict;
use warnings;

my @before = qw(e c a d b);
my @after = sort @before;
print "@after\n";          #a b c d e

じゃ、数字をsortしようとすると…

use strict;
use warnings;

my @before = 1..10;
my @after = sort @before;
print "@after\n";          #1 10 2 3 4 5 6 7 8 9

もし、ASCII順に並べ替えたいのならばこれでよいですが
たいていの場合この結果を期待する人は少ないはずですよね　汗
そうなると次に登場するのがソートの定義です。
さきほどの、数字の並び替えを期待したとおりに行うには下記のように
スペースシップ演算子を使って数値的にソートを行う必要がありますね。

use strict;
use warnings;

my @before = 1..10;
my @after = sort { $a <=> $b } @before;
print "@after\n";          #1 2 3 4 5 6 7 8 9 10

今度は、期待した通りになりましたね！
では、最初のファイルを更新日順にソートする話に戻ります。
簡単に書くのであれば

use strict;
use warnings;

my @files = qw(file1.txt file2.txt file3.txt);
my @sorted = sort { -M $a <=> -M $b } @files;
print "@sorted\n";

一般的に、比較をベースとするソートアルゴリズムは、
１回のソートでn log n回(nはソートする要素数)と言われているそうです。
つまり、単純な数値比較だとn log n回の数値比較を行うのに対し
ファイルの更新日順に並べるソートの場合、n log n回分の
ファイル更新時間の取得とその比較を行っている為無駄の
多いソートになっているわけです。

例えば、初めて比較する時だけファイル更新時間の取得を行い
それをキャッシュしておき、2回目以降の比較の際はキャッシュを
参照した方が高速になります。
要は、n log n回分の比較と n回分のファイル更新時間の取得で済むので。
それをあらわしたコードが下記のようになります。

use strict;
use warnings;

my @files = qw(file1.txt file2.txt file3.txt);
my %m;
my @sorted = sort {
($m{$a} ||= -M $a) <=>
($m{$b} ||= -M $b)
} @files;
print "@sorted\n";

ちなみに、　$m{$a} ||= -M $a　は、
$a = $a + 10;　の省略形が $a += 10;　となるのと同様に
$m{$a} = $m{$a} || -M $a;　が $m{$a} ||= -M $a;
と、なっているだけです。


で、上の内容をPerlハカーな方々は、シュウォーツ変換を
活用して書くそうでそれが、一番最初に出てきたコードだったわけです。
本によると、シュウォーツ変換とは、mapで囲まれたsortである（？）となってます。

キューピー３分●ッキング♪
本日の●ッキングは、３つのファイルを更新順にソート致します。
まずは、材料を用意します。
今回は、my @names = qw(file1.txt file2.txt file3.txt);を使います。
まずは、ソートの条件を確認します。
比較対象→ファイル更新日
アウトプット→ファイル名
と、言うことでまずは、下準備から。
では、mapで名無しリストを作成します。

@names_and_ages = map { [$_, -M] } @names;

この時、@names_and_agesの各要素には、[$_, -M]という
ファイル名と更新日時の無名リストのリファレンスが格納されます。
@names_and_ages = [["file1.txt", file1.txtの更新日],
　　　　　　　　　　　　　　　 ["file2.txt", file2.txtの更新日],
　　　　　　　　　　　　　　　 ["file3.txt", file3.txtの更新日]
　　　　　　　　　　　　　　　];
こんな感じですね。
次が、この○ッキングのメインのソートです。

@sorted_names_and_ages = sort {
　$a->[1] <=> $b->[1]
} @names_and_ages;

$a <=> $bだと、リファレンスの比較になっちゃいますね　汗
比較したのは、更新日なので、リファレンスの第２要素を指定する為
$a->[1] <=> $b->[1]となってます。

調理が完成したら、@sorted_namesという皿に盛り付けるだけです！
@sorted_names = map { $_->[0] } @sorted_names_and_ages;

@sorted_names_and_agesには、更新日を元にリファレンスが並び替えられてます。
最終的に欲しいデータは、ファイル名なので…
ファイル名は、リファレンスの第１要素に格納されているので
mapで$_->[0]を抜き出してリストを作って完成っと。
同じ変数を代入していくと…

use strict;
use warnings;

my @files = qw(file1.txt file2.txt file3.txt);
my @sorted_names =
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [$_, -M] }
@files;
print "@sorted_names\n";

完成です＼(^o^)／
とっても、おいしい料理ができあがりましたね！！


では、もう一度本日のおさらいです。
１．並び変えるデータと並び変え判定に使うデータのリファレンスを作成。(map)
２．並び変え判定に使うデータで並び替え。（sort）
３．並び変えるデータと並び替え判定に使うデータから並び替えるデータを取り出す。（map）
以上！

で、sort関係に関連してネットをさまよっていたら楽しい
ページをいくつか見つけたのでメモ書きしておきますね。
あなたが一番好きなアルゴリズムを教えてください。
また、その理由やどんな点が好きなのかも教えてください。
はてなの質問です。
個人的にはエラトステネスの篩が好きです　笑


プログラマーでなくても名前ぐらい覚えておきたいアルゴリズムx10
弾さんの記事です。
こういう記事を見ない限りなかなかアルゴリズムの知識も
増えないので非常に為になりました。。

最後は、
いろいろなソートアルゴリズム
バブルソート/バケットソート/基数ソート/ヒープソート/マージソート/クイックソート
をJavaアプレットを駆使してわかりやすく解説してあります。
昔、おもれーって思って何度も眺めていた記憶が　笑

Project Euler.net

で、前フリを済ませたとこで…
さすがに、ランキング形式になている以上
解答のコードをのっけるわけにはいかないので
参考までに、
マシーンスペックと解答にかかった時間でものっけときますね。
(無駄の多いコード書くと途方に暮れてしまう場合がありますしねぇ　笑)

※測定に使っているノートPC。
OS:Microsoft Windows XP Professional Version2002 SP2
CPU:Intel® Core™2 Duo 2GHz
ﾒﾓﾘ:1GB RAM
Perl 5.8.8
(※1 スペックが高いマシーンだと差が出ないのでノートでチェックしてます)
(※2 Time::HiResモジュール使用)

Problem 1　　0.001秒
Problem 2　　0.000秒
Problem 3　　0.003秒
Problem 4　　0.042秒
Problem 5　　0.057秒
Problem 6　　0.001秒
Problem 7　　16.516秒
Problem 8　　0.004秒
Problem 9　　9.391秒

Ploblem (7|9)は、もう少しコードの見直しをする余地がありそうですねぇ...
Ploblem 3の600851475143の素因数のうち最大の値は？
って問題は、純粋にエラトステネスの篩を使ってみたところ
3時間2分44秒もかかってしまいましたからねぇ　笑
いかに無駄を無く書くかってのが大事かってのが身にしみました…

現在215番目/310人中

Project Euler.net

最初の投稿だけながながと。
Project Eulerとは…
以下サイトより拝借(別名引用)[引用先：http://projecteuler.net/]
----------------------------------------------------------------------
What is Project Euler?
Project Euler is a series of challenging mathematical/computer
programming problems that will require more than just mathematical
insights to solve. Although mathematics will help you arrive at
elegant and efficient methods, the use of a computer and programming
skills will be required to solve most problems.
----------------------------------------------------------------------

個人的主観を交えた意訳をするとProject Eulerってサイトは、
コンピュータを必要とするような大きな桁の数学の問題を
みんなで解いてランキングしようぜ！ってお話。(ﾏﾃ
→http://projecteuler.net/

で、好きな言語で問題を解いて各問題のページには
回答用のフォームが用意してあるので回答を入力して
送信することで正誤のチェックをしてもらえます。
その正誤を元にランキングが作られているってわけ。
ランキングは、Top1000 Scorers、国別のランキング、言語別のランキングがあります。
回答だけ書けばよいので、その気になれば手計算でもよいし！
BFだろうがWhitespaceだろうがちょっと草植えときますね型言語
であろうが何でもOKですね！

問題に正解すると、正解者だけが見ることのできる
フォーラムへ移動することが可能になります。
フォーラムには、コードをのっけている人もいれば
コメントだけの人もいます。

今日現在(2008/07/01)。
お題は、２００問に到達。少しずつ増えてます！

興味ある人は、登録してめきめき解いてみたらいかがでしょうか？
問題文の日本語訳は、こちらにまとまってます。→こちら

エラトステネスの篩

最近になってhttp://projecteuler.netの問題を少しずつ解き始めているのだけど
素因数絡みの問題が多いくて何度も書くのはめんどいのでモジュール化してみた。
(※のちのちメソッドをいろいろ追加する予定。)

package prime_factors;
use strict;
use warnings;

sub new{
  my $package = shift;
  my $ref = {};
  bless $ref, $package;
}

sub prime_factor{
  my $package = shift;
  my ($number) = @_;
  my $sqrt_num = int sqrt $number;
  my @prime_number = (2, 3, 5);
  my @prime_list;
  foreach (@prime_number){
    while($number % $_ == 0){
      $number /= $_;
      push @prime_list, $_;
    }
  }
  
  my $flag = my $flag7 = my $flag11 = 1;
  for(my $i=0; $flag; $i++){
    while ($number % (6*$i+7) == 0){
      $number /= 6 * $i + 7;
      push @prime_list, 6*$i+7;
    }
    while ($number % (6*$i+11) == 0){
      $number /= 6 * $i + 11;
      push @prime_list, 6*$i+11;
    }
    $flag7  = 0 if($sqrt_num<=(6*$i+7)  || $number == 1);
    $flag11 = 0 if($sqrt_num<=(6*$i+11) || $number == 1);
    $flag = 0 if(!$flag7 && !$flag11);
  }
  push @prime_list, $number if($number > 1);
  return @prime_list;
}
1;

で、確認の為使ってみる。(タイムも計測)

use strict;
use warnings;
use prime_factors;
use Time::HiRes qw(gettimeofday tv_interval);
my %time;
$time{'start'} = [gettimeofday];

my $obj = prime_factors -> new;

my $number = 600851475143;
my @list = $obj -> prime_factor(600851475143);
print "$numberの素因数は、@list\n";

$time{'end'} = [gettimeofday];
printf "time:%.3f second\n", tv_interval $time{'start'}, $time{'end'};
__END__

結果。


※測定に使ったノートPC。
OS:Microsoft Windows XP Professional Version2002 SP2
CPU:Intel® Core™2 Duo 2GHz
ﾒﾓﾘ:1GB RAM

PPMでImage-ExifToolを入れてみた。

ひとまず、自分のPCにImage-ExifToolを入れてみたのだけど…
レンタサーバの方には、入ってないようなんで
モジュール追加依頼をするか、手動で追加するしかないのねぇー。

Image-ExifToolとは…
Exifの情報を取得するモジュール。


じゃ、Exifってなんぞや？
Exifとは…

1994年に富士フィルムが提唱したデジタルカメラ用の画像ファイルの規格。
JEIDAによって標準化され、各社のデジタルカメラに採用されている。最新
版はExif 2.2(Exif Print)。TIFF形式で画像についての情報や撮影日時な
どの付加情報を記録できるほか、縮小画像(サムネイル)を記録することがで
きる。画像形式はRGB無圧縮方式やJPEG方式など複数の形式をサポート
している。[引用元：e-word]

ことの発端は、デジカメの日付とかの情報を知るにはどうしたらよいのかなぁー
と思って調べたら行き着いたモジュールってわけなんですけどねぇ。
こんな感じで使うそうですよ。
→Image-ExifTool：Perl で Exif 情報を取得

で、どんな情報を吐き出すのか気になったので、
ひとまずリンク先のコードを元に動かしてみた。
test.pl
┗ pic ━a.jpg
というファイル構成で何も考えずに以下を動かしてみる。

use strict;
use warnings;
use Image::ExifTool;

my $file = "./pic/a.jpg";
my $exifTool = new Image::ExifTool;
my $exifInfo = $exifTool->ImageInfo($file);

for(sort keys %$exifInfo){
print("$_ : $exifInfo->{$_}\n");

で得られた結果がこんな感じ。


後で、もう少しいじってみますか。
http://search.cpan.org/~exiftool/Image-ExifTool-7.30/lib/Image/ExifTool.pod

情報収集の仕方

ふと思った。
どうやったら、Perlな方々が書くblogに行き着けるのだろうかと。

で、結論。
perl-mongers.orgに投稿する人や
Shibuya Perl Mongersで発表するような
人達をチェックリストに入れておけばOKとか？

初心者な自分には、大部分がさっぱりですが
昔の記事に遡れば、誰しもが通ってたりする部分もあるので
情報を調べる候補地として最適だったりするわけでほげほげ。

単なるメモ。

世間では、Mooooooooooooooooooooooooooooooooooooooooooooooooose!
と騒いでいるので、何だろねってことでふらついてた時に見つけたぺーじ。
Perl初心者の自分にゃ、まだまだ理解する日が通そうだけど
ひとまず。メモってことで…汗
http://www.slideshare.net/hakobe/moose

PPMについて調べてみる。

Perl Package Manager
ActivePerlに付属しているもので、CPANからモジュールをインストールするのに使うもの。

PPMが設定されているリポジトリに行き、モジュールを探して、コンパイル済みの
バイナリを取得して保存します。この時関連するモジュールも無ければダウンロード
してくれます。

リポジトリ・・・容器、貯蔵庫、倉庫、集積所などの意味を持つ英単語。何らかのデータや情報、プログラムなどが体系だてて保管されている場所。アプリケーションやシステムの設定情報がまとめて記録されているファイルやフォルダのことや、複数の開発者が参加するプログラミング環境においてソースコードや仕様に関する情報をまとめて保管してくれるシステムなどを指すことが多い。[引用元：e-Words]

リポジトリのURLは、Perlのバージョンによって違うことに注意。

こちらの説明がすばらしくわかりやすかったです！
→Perlメモ/モジュールのインストール(PPM)

test

てすと投稿。