Perlで書く

Perlで書く 2009.11.22 Vol.247

2009-11-22T22:34:18+09:00

=====================================================================
Perlで書く 2009.11.22 Vol.247
[WAZA]モジュールの情報
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●モジュールの情報

　Module::Build::ModuleInfoモジュールでモジュールの情報を取得できます。

---------------------------------------------------------------------
use strict;
use warnings;
use Module::Build::ModuleInfo;

my $name = 'CGI';

my $info = Module::Build::ModuleInfo->new_from_module($name);

続きを読む

Perlで書く 2009.11.08 Vol.246

2009-11-08T22:23:17+09:00

=====================================================================
Perlで書く 2009.11.08 Vol.246
[WAZA]最頻値の取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●最頻値の取得

　Statistics::Liteのmodeで取得できます。

---------------------------------------------------------------------
use strict;
use warnings;
use Statistics::Lite qw(mode);

my @data = (5, 10, 3, -20, 9, 3, 10, 3);
my $mode = mode @data;
print $mode, "\n";

---------
続きを読む

Perlで書く 2009.10.25 Vol.245

2009-10-25T22:36:30+09:00

=====================================================================
Perlで書く 2009.10.25 Vol.245
[WAZA]標準関数の一覧
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●標準関数の一覧

　Pod::Functionsを使うと標準関数の一覧を表示することができます。

---------------------------------------------------------------------
use strict;
use warnings;
use Pod::Functions;

foreach my $func (sort keys %Flavor) {
printf "%s: %s\n", $func, $Flavor{$func};
}
-----------------
続きを読む

Perlで書く 2009.10.11 Vol.244

2009-10-11T22:35:56+09:00

=====================================================================
Perlで書く 2009.10.11 Vol.244
[WAZA]WindowsのOSバージョンの取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●WindowsのOSバージョンの取得

　Win32モジュールのGetOSVersionで取得できます。

---------------------------------------------------------------------
use strict;
use warnings;
use Win32;

my ($string, $major, $minor, $build, $id,
$spmajor, $spminor, $suitemask, $producttype)
= Win32::GetOSVersion()
続きを読む

Perlで書く 2009.09.27 Vol.243

2009-09-27T23:11:54+09:00

=====================================================================
Perlで書く 2009.09.27 Vol.243
[WAZA]組み合わせの取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●組み合わせの取得

　Math::Combinatoricsモジュールを使うと組み合わせ(nCk)を取得できます。

---------------------------------------------------------------------
use strict;
use warnings;
use Math::Combinatorics;

my @items = qw(a b c d);

# 4つから3つを取り出す組み合わせ
my @combine = combine(3, @items);
foreach m
続きを読む

Perlで書く 2009.09.13 Vol.242

2009-09-13T22:36:18+09:00

=====================================================================
Perlで書く 2009.09.13 Vol.242
[WAZA]順列の取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●順列の取得

　Math::Combinatoricsモジュールを使うと順列(nPk)を取得できます。

---------------------------------------------------------------------
use strict;
use warnings;
use Math::Combinatorics;

my @items = qw(a b c);

# 3から3つを選ぶ順列
my @permute = permute(@items);
foreach my $p (@permute) {<
続きを読む

Perlで書く 2009.08.30 Vol.241

2009-08-30T21:07:47+09:00

=====================================================================
Perlで書く 2009.08.30 Vol.241
[WAZA]WindowsのOS名の取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●WindowsのOS名の取得

　Win32モジュールのGetOSNameで取得できます。
　特殊変数$^Oよりも細かい情報が取れます。

---------------------------------------------------------------------
use strict;
use Win32;

my ($name, $sp) = Win32::GetOSName();

print $^O, "\n";
print "name: $name\n";

続きを読む

Perlで書く 2009.08.16 Vol.240

2009-08-16T21:17:48+09:00

=====================================================================
Perlで書く 2009.08.16 Vol.240
[WAZA]Amazonから情報を取得する
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●Amazonから情報を取得する

　Net::Amazonを使うと簡単です。別途Amazon Web ServicesからAccess Keyと
Secret Access Keyを取得する必要があります。

---------------------------------------------------------------------
use strict;
use warnings;
use Net::Amazon;
use encoding "cp932"; # 文字コードの指定

my $amazon = Net::Amaz
続きを読む

Perlで書く 2009.08.02 Vol.239

2009-08-02T20:27:28+09:00

=====================================================================
Perlで書く 2009.08.02 Vol.239
[REF]open
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●open FILEHANDLE, EXPR
open FILEHANDLE, MODE, EXPR
open FILEHANDLE, MODE, EXPR, LIST
open FILEHANDLE, MODE, REFERENCE
open FILEHANDLE

　EXPRで指定されたファイルをオープンしてFILEHANDLEに結びつけます。
MODEがパイプモードの場合は、EXPRで指定されたコマンドを実行します。
　MODEがパイプモードの場合、LISTがコマンドラインオプションとして
コマンドに渡されます。
　第三引数がREFERENCEの場合、インメモリファイルを利用することがで
続きを読む

Perlで書く 2009.07.19 Vol.238

2009-07-19T22:53:47+09:00

=====================================================================
Perlで書く 2009.07.19 Vol.238
[WAZA]列挙型
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●列挙型

　enumモジュールを使うとC言語の列挙型のようなものを使うことができます。

---------------------------------------------------------------------
use strict;
use warnings;
use enum qw(Sun Mon Tue Wed Thu Fri Sat);

print Sun, "\n"; # 0
print Mon, "\n"; # 1
--------------------------------------------------
続きを読む

Perlで書く 2009.07.05 Vol.237

2009-07-05T21:17:39+09:00

=====================================================================
Perlで書く 2009.07.05 Vol.237
[WAZA]木構造の出力
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●木構造の出力

　Text::Treeモジュールを使うと木構造のデータを出力することができます。

---------------------------------------------------------------------
use strict;
use warnings;
use Text::Tree;

my $root = "top";
my @data = (
["A",
["Apple",
["
続きを読む

Perlで書く 2009.06.21 Vol.236

2009-06-21T22:03:10+09:00

=====================================================================
Perlで書く 2009.06.21 Vol.236
[WAZA]JavaScriptソースの整形
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●JavaScriptソースの整形

　JavaScript::Swellモジュールを使います。

---------------------------------------------------------------------
use strict;
use warnings;
use JavaScript::Swell;

my $script = <<'EOD';
function (source) {
var getLineNumber=function (space,width,lineNumber) {続きを読む

Perlで書く 2009.06.07 Vol.235

2009-06-07T16:40:24+09:00

=====================================================================
Perlで書く 2009.06.07 Vol.235
[WAZA]ベンチマーク
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●ベンチマーク

　処理時間を計測する場合にはBenchmarkモジュールが便利です。
　次のサンプルで500となっているところは繰り返し実行する回数の指定です。
この部分に負数を指定すると、指定した数の秒数分CPUを消費するまで繰り
返すようになります。

---------------------------------------------------------------------
use strict;
use warnings;
use Benchmark qw(:all);

timethese (500,
{
続きを読む

Perlで書く 2009.05.24 Vol.234

2009-05-24T18:23:20+09:00

=====================================================================
Perlで書く 2009.05.24 Vol.234
[WAZA]詳細な警告文の出力
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●詳細な警告文の出力

　diagnosticsプラグマを使うとwarningsプラグマよりも詳しい説明文で警告を
表示するようになります。

---------------------------------------------------------------------
# diagnosticsプラグマを使ったスクリプト
use strict;
use diagnostics;

my $value;

print $value;
--------------------------------------------
続きを読む

Perlで書く 2009.05.10 Vol.233

2009-05-10T21:31:21+09:00

=====================================================================
Perlで書く 2009.05.10 Vol.233
[WAZA]RSSフィードの取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●RSSフィードの取得

　Feed::Findモジュールを使うとRSSフィードのURLを取得できます。
　HTML文字列からフィードを取得する場合はfind_in_htmlメソッドを使い
ます。

---------------------------------------------------------------------
use strict;
use warnings;
use Feed::Find;

my $url = 'http://d.hatena.ne.jp/MAS3/';
my @feeds = Feed:
続きを読む