Google Analyticsに関してのセッションでした。
私が生業としているECの世界においても解析は重要なのですが、Google Analyticsは使ったことがありません。
慣れなのでしょうが、とっつきにくくて…。
と、思っていたら、その解析業務を助ける、GreaseMonkeyの存在を話されていて、これがあれば使える！と思いました。行ってよかった。
WordPressに直接関係する内容ではないものの、WordPressをはじめCMS各種って、運営に焦点をあてたシステムにも関わらず、実は制作サイドの意識としてはサイト構築ツールまでで終わっていることが多いですよね。良くも悪くも。
解析の話を通して、運営面に少しでも目が向くのならと思いました。
　

その後、MightyWorksさんの「WordPressとは」というセッション。
Wordopressを紹介するセッション。
かなーりWordPress愛を感じるセッションでした。
　

大体こんな感じ。その後懇親会→二次会。
　
全体通じて思ったのは、WordPressって情報がいっぱいネット上には転がってるんだけど、やっぱりオープンソースゆえ隠れた情報も沢山ある。オープンソースの利用にあたっては、コミュニティに参加することが、情報を集める上で一番良い手段で、かつ、コミュニティに参加して恩返しをすることへの意識が必要なのではと思った。その辺がプロプライエタリとの大きな差かな。
　
私は、普段一般のWEB制作の世界とは違うところで、サイト制作を行っているので、必ずしも、WordPressが最上位のパブリッシングプラットフォームだとは思っていない。（これは立場の問題なので、この部分を突っ込まれるとちょっと困るので、聞き流してくださいね）
それでも、これだけ沢山のユーザーがいて、これだけ沢山のコミュニティ参加者がいるWordPress。常に選択肢の中には入ってくるとは思う。
　
まぁ、そんなこんなで、WordCampお疲れ様でした。
最後に謝っておきます。若干立場的に微妙な人が参加しててごめんなさい。（分かる人が分かれば良い謝罪）
　

そんなこんなで一日終わり。疲れたぞ。

えー。自分でショートカット作っても動かない。
　
えー。どうしたもんかと、インストール時自動で作られた各ツールのショートカットのプロパティを覗いて、「リンク先」をコピーして、コマンドラインから起動したらうまくいった。
　
うわー。いちいちコマンドから起動せなあかんのか・・・。
　
ということで、私は、得意のなでしこからコマンド起動するアプリを作っておいて、それをランチャーとスタートメニューに登録することで解決。
コマンドランチャーに登録してもいいかもね。
　
ActiveStateの公式を読むと、ショートカットをVista互換モードで起動するといいよみたいなこと書いてあったけど、嘘っぱちでしたので注意。

これまで私は、
こちらのサイトを参考に正規表現だけで処理していました。

速度が云々あるでしょうけれど、そもそもそんなに速度が気になるのならCSVじゃないデータを使うべきでしょう。ということで、これだけで十分です。

※なお、CSVデータは完全にアプリケーション依存のデータフォーマットで入出力するアプリケーションによって形式が異なります。この記事ではMS-AccessのCSVを前提に書きます。エクセルも問題ないと思います。それ以外のアプリケーションでの動作は考慮していませんので、必要に応じて書き換えて使ってください。

いくつかのモジュールがあり、中には数々の文字コードのCSVの処理を考慮したものもありますが、エクセルでの出力で最も多いであろうShift-JISのデータを扱うには、Text::CSVをバイナリモードで使うのが一番トラブルが少ないようです。

じゃぁやってみよう！

use strict;
use Text::CSV;
use IO::File;


#CSVファイルを開きます。
my $file = "CSVのパス";
my $io = IO::File->new( $file, 'r' );

#解析をはじめましょう。
my $csv = Text::CSV->new({binary => 1});
while (not $io->eof and my $columns = $csv->getline($io)) {
    #ここでデータを処理する。
    #$columnsへ1レコード分のデータが配列への参照として渡されます。
    #例：$columns->[0]（1列目）
}
exit();

こんな感じ。意外にベタベタと書かないといけない。
Text::CSVは標準モジュールではないので、インストールが必要なことを忘れずに。

調べたら、なんだか直訳調っぽくて「何言ってんだか？」みたいなとこしかなかったので、
今回使った部分だけメモ。

use strict;
use Date::Calc qw(:all);
 
#UNIXタイムスタンプの取得
my $time = Mktime( 2009, 6, 5, 12, 42, 44); 
print $time . "\n";

#今の時間を取得
my ($year,$month,$day, $hour,$min,$sec) = Today_and_Now();
print "$year年$month月$day日 $hour時$min分$sec秒\n";
#日付のみ取得 ($year,$month,$day) = Today(); 
#時刻のみ取得 ($hour,$min,$sec) = Now();
 
#2008年6月1の30日前の日付を計算
($year,$month,$day, $hour,$min,$sec) = Add_Delta_DHMS( 2008, 6, 1, 0, 0, 0, -30, 0, 0, 0); 
print "$year年$month月$day日 $hour時$min分$sec秒\n";
#引数
#[0]:基準の年 [1]:基準の月 [2]:基準の日
#[3]:基準の時 [4]:基準の分 [5]:基準の秒
#[6]:何日後（前はマイナス指定）を計算するか
#[7]:何時間後（前はマイナス指定）を計算するか
#[8]:何分後（前はマイナス指定）を計算するか
#[9]:何秒後（前はマイナス指定）を計算するか

#今を基準にして10日後の3時間15分30秒前を計算
($year,$month,$day, $hour,$min,$sec) = Add_Delta_DHMS( Today_and_Now() , 10, -3, -15, -30); 
print "$year年$month月$day日 $hour時$min分$sec秒\n";
#第6引数まではToday_and_Now()を使える。
#日付のみの計算 ($year,$month,$day) = Add_Delta_YM($year,$month,$day, $Dy,$Dm);
#時刻のみの計算 ($year,$month,$day) = Add_Delta_YMD($year,$month,$day, $Dy,$Dm,$Dd); #日付のみの計算 ($year,$month,$day) = Add_Delta_YMD($year,$month,$day, $Dy,$Dm,$Dd);
#時刻のみの計算 (

#日付として正しいか？（リターンは1または0）
#↓不正
print check_date( 2009, 13, 1 ) . "\n";
#↓正常
print check_date( 2009, 12, 31 ) . "\n";

#時刻として正しいか？（リターンは1または0）
#↓不正
print check_time( 26, 12, 62 ) . "\n";
#↓正常
print check_time( 23, 59, 59 ) . "\n";

よく使いそうなところはこんなもん？

【一応メモ】
競合する関数名の関数を自分で作っているときは、競合してしまうので、
use Date::Calc qw(:all);
を
use Date::Calc;
に変更して、関数にDate::Calc::をつけて関数実行。

【すみません】
誤りがありました。日付の増減計算はありましたが、時刻のみの増減計算はありませんでした。修正しました。

Perlで複数分岐がif{}elsif{}else{}しかないのが不便だなー

Switch文使えないかなー

とか思ってたら、Switchというモジュールがあることを知った。

すげぇ。PerlでSwitch使えるじゃん！って思った。そしたら、5.8.0から標準モジュールだったんですね。

知らなかった。情けない(>_<)

ちなみにAcme::Commentモジュールを使うと、Cの/*—*/スタイルの複数行コメントが使えるよ。まぁ=pod — =cutスタイルで十分だけど。

そ・・・そんなはずは(-_-;)、と思って調べたら本当でした。

その対策方法をメモメモ。

どうも、Jcode.pmのtrを使って

全角マイナス記号「－」（コードでは、\xE2\x88\x92）
（※見た目はよく似ているけど、ハイフンでもないし、ダッシュでもないので注意。）
を半角記号へ変換するときに、
半角チルダ「~」になっちゃったり、
\x3Fという通常の環境で見ることができないコードに変換されている模様。

ってことで、Jcodeでtrしたあと、これらを無理やり「-」（コード\x2D）に変換することで対応。
本当にチルダが来たときどうすんだ！？という感じ。

だったので、さらに調べたら、

http://d.hatena.ne.jp/littlebuddha/20081121/1227241729

こちらのサイトにまとめがありました。のでまぁこの通り設定。
全角の扱いって難しいですね。

何か調べたら同じハイフンでも、
「ハイフン」「ノンブレーキングハイフン」「ハイフネーションポイント」…などなどあるんですって。
文系出身ダメプログラマーな私にはグルグルする話です。。。

PHPのmb関数でも同様の問題がおきます。
ので、ハイフンに見える文字についての知識はUTFを扱うときは必ず身につけておく必要がありそうです。

MOONGIFTのStrawBerryPerlの情報ページ

早速使ってみたけど、普通にPerlとして使えるし、
CPANモジュールインストールしてみたけど、
X系OSと変わらないインストールができる！!
しかもPPMも普通に使えるらしい！
今度からこっちをインストールすべきだ！！

個人的には、PDKとか使ってるので全面移行はできないけど。。。
PDKのPerlSvcとかは激しく便利。。。

my $jzen = “ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ”
. “ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ”
. “０１２３４５６７８９”
. “！”＃＄％＆’＊＋，．／：；＜＝＞？＠[￥]＾＿‘｛｜｝～－”;

my $j = Jcode->new();
$j->set( $str , ‘euc’ );
my $convert = $j->tr( $jzen , $jhan );
とかして$convertをDumper()にかけると

素直に変換された文字列がdumper()されるわけじゃなく、

Jcodeにblessされたという内容が書き出される。

この値をファイルに保存したときにゃあ(>_<。)

スマートじゃないけど、

$convert = “” . $convert;

って書き加えたほうが良さげ。

#!C:/Perl/bin/perl.exe -w  use strict;  open( my $port , "+>COM3" ) || die "Can't open COM3: $!"; while(){   my $serial = $port;   print $serial; }  __END__

こんな感じ。
マルチスレッドとかにして、ファイルハンドルをフックすれば使えるアプリができるかも？？