Home > 言語 > Perl

Perl Archive

Google PageRankはPerlにおまかせ

  • 2012-02-29 (水)
  • Perl

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";

Perlでメールアドレスを抽出

  • 2008-04-21 (月)
  • Perl

携帯端末のメールアドレスは個人が自由に設定できます。ピリオドを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;

半角カタカナのファイルを全角に変換

  • 2008-02-01 (金)
  • Perl

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

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

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

Continue reading

UTF-8で半角カタカナを全角カタカナに

  • 2008-01-31 (木)
  • Perl

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;

Home > Perl

おまかせSearch
おまかせブログ 人気記事
おまかせFeeds
おまかせブログ Meta
おまかせLinks
おまかせPR
CoRichブログランキング
ブログランキング
blogram投票ボタン

Page Top