Perl Archive

Google PageRankの取得はPHPよりPerlにおまかせといった感じでしょうか？
Perl ModuleはCPANで検索しよう！

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Google::PageRank;
my $g = WWW::Google::PageRank-<new;
my $p = $g-<get(shift);
print $p,"n";

携帯端末のメールアドレスは個人が自由に設定できます。ピリオドを2つ続けたり、＠の直前がピリオドで終わっているアドレスはRFCに準拠していません。していないと言っても、ドコモのアドレスは設定できてしまうので、メールアドレスを抽出する場合、次の正規表現でメールアドレスを抽出します。


#!/usr/bin/perl
my $myaddr = '<omakase blog> omakase@xxx.co.jp';
my $esc = '\\\\';
my $Period = '\.';
my $space = '\040';
my $OpenBR = '\[';
my $CloseBR = '\]';
my $NonASCII = '\x80-\xff';
my $ctrl = '\000-\037';
my $CRlist = '\n\015';
my $qtext = qq/[^$esc$NonASCII$CRlist\"]/;
my $dtext = qq/[^$esc$NonASCII$CRlist$OpenBR$CloseBR]/;
my $quoted_pair = qq<${esc}[^$NonASCII]>;
my $atom_char = qq/[^($space)<>\@,;:\".$esc$OpenBR$CloseBR$ctrl$NonASCII]/;
my $atom = qq<$atom_char+(?!$atom_char)>;
my $quoted_str = qq<\"$qtext*(?:$quoted_pair$qtext*)*\">;
my $word = qq<(?:$atom|$quoted_str)>;
my $domain_ref = $atom;
my $domain_lit = qq<$OpenBR(?:$dtext|$quoted_pair)*$CloseBR>;
my $sub_domain = qq<(?:$domain_ref|$domain_lit)>;
my $domain = qq<$sub_domain(?:$Period$sub_domain)+>;
my $local_part = qq<$word(?:$Period+$word)*(?:$Period+)?>;
my $addr_spec = qq<$local_part\@$domain>;
my $mail_regex = $addr_spec;
if($myaddr =~ m/($mail_regex)/o){
print $1."\n";
}
exit;

SAMBA2系はUTF-8に対応していますが、Linuxカーネル側なのかSAMBA側なのか半角カタカナが表示（ブラウジング）できない場合があります （Fedora + SAMBA3 では特に問題ないように思えますが）。MACもUTF-8 での SMBプロトコルを認識するようになりましたし、どうしてもという場合は、smb.conf の coding system = UTF8 にして、ファイルをUTF-8に変換してあげましょう。

そして、既存の半角カタカナファイル名を全角カタカナのファイル名に変更して、半角カタカナ禁止運用でいきましょう。

言語： Perl
概要： カレントディレクトリ以下のファイル名およびフォルダ名の半角カタカナを全角カタカナに変換（任意のディレクトリを指定することもできる）
注意： メッセージが出なくなるまで実行させる

Continue reading

Perlモジュール Unicode-Japanese を利用する

Unicode-Japanese-0.45.tar.gz を CPANなどから取得し、インストール。

perl Makefile.PL ; make ; make install

Perlソース

#! /usr/bin/perl
use Unicode::Japanese;
use utf8;

$str = "半角ｶﾀｶﾅ";
$str= Unicode::Japanese->new($str,'utf8')->h2zKana->get;
print $str;