リンク

文字列操作の比較表: Ruby, Python, JavaScript, Perl, C++

http://0xcc.net/blog/archives/000137.html

配列操作の比較表: Ruby, Python, JavaScript, Perl, C++

http://0xcc.net/blog/archives/000043.html

バージョン番号

コマンドライン

Perl

$ perl -v
This is perl, v5.10.0 built for x8664-linux-gnu-thread-multi
いっぱい
$ perl -V
Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
もっといっぱい
$ perl -e 'print $],"\n"'
5.010000

Python

$ python -v
Python 2.5.2
$ python -c 'import sys; print "%d.%d.%d" % sys.versioninfo[:3]'
2.5.2
$ python -c 'import sys; print "%d.%d" % sys.versioninfo[:2]'
2.5

$ ruby -v
ruby 1.8.7 (2008-05-31 patchlevel 0) [x8664-linux]

標準モジュールパスの表示

コマンドライン

Perl

$ perl -e 'print map {"$\n"} @INC'
/etc/perl
/usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.10
/usr/share/perl/5.10
/usr/local/lib/siteperl
.
$ perl \
-V:installsitearch \
-V:installsitelib \
-V:installvendorarch \
-V:installvendorlib \
-V:installarchlib \
-V:installprivlib
installsitearch='/usr/local/lib/perl/5.10.0';
installsitelib='/usr/local/share/perl/5.10.0';
installvendorarch='/usr/lib/perl5';
installvendorlib='/usr/share/perl5';
installarchlib='/usr/lib/perl/5.10';
installprivlib='/usr/share/perl/5.10';

Python

FIXME: Python 2.5(?) には vendor-packages もあるみたい。

$ python -c 'import sys; print sys.path'
['', '/usr/lib/python25.zip', '/usr/lib/python2.5', '/usr/lib/python2.5/plat-linux2', '/usr/lib/python2.5/lib-tk', '/usr/lib/python2.5/lib-dynload', '/usr/local/lib/python2.5/site-packages', '/usr/lib/python2.5/site-packages', '/usr/lib/python2.5/site-packages/Numeric', '/usr/lib/python2.5/site-packages/PIL', '/var/lib/python-support/python2.5', '/var/lib/python-support/python2.5/gtk-2.0']
$ python -c 'from distutils.sysconfig import getpythonlib; print getpythonlib()'
/usr/lib/python2.5/site-packages

$ ruby -e 'puts $LOAD_PATH'

モジュール検索パスの追加

環境変数

Perl

$ export PERL5LIB='/site/lib/perl'

Python

$ export PYTHONPATH='/site/lib/python'

$ echo '/site/lib/python' >/usr/lib/python2.5/site-packages/site.pth

$ export RUBYLIB='/site/lib/ruby'

スクリプト

Perl

use lib '/site/lib/perl';

Python

import sys
sys.path.append("/site/lib/python")

import site;
site.addsitedir('/site/lib/python')

puts $LOAD_PATH.push("/site/lib/ruby")

my $sid_bin = $entry->get_value('objectSid');
my ($sid_rev, $sid_sub_auths_num, $sid_reserved, $sid_id_auth, @sid_sub_auths) =
  unpack('C2nNV*', $sid_bin);
my $sid = sprintf(
  'S-%u-%u' . '-%u' x $sid_sub_auths_num,
  $sid_rev, $sid_id_auth, @sid_sub_auths
);

2009-07-10: コードを修正。 SID テキストの 3 番目の文字は subauthority の数 ($sid_sub_auths_num) ではなく identifiter-authority ($sid_id_auth) だった。

mktemp(1) も含まれていないので、 Samba のコンパイルで make test_pam_modules test_nss_modules が実行できない。 仕方ないので Perl で実装して、自作ツールチェインに同梱することにした。 ちなみに Perl Power Tools にも含まれていなかった。

#!/usr/bin/perl -w


#

Perl-version mktemp(1) command

Copyright (c) 2007 SATOH Fumiyasu @ OSS Technology, Co., Japan

<http://www.osstech.co.jp/>

#

License: GNU General Public License version 3

Date: 2007-07-11, since 2007-07-11

#

use strict;

use warnings;

use Getopt::Long;
use POSIX;
use IO::File;
umask(0077);
my @seed = ('0'..'9', 'a'..'z', 'A'..'Z');
my $flagdir = undef;
my $flagquiet = undef;
my $flagunsafe = undef;
my $flaggeneratepath = undef;
my $prefixdir = undef;
my $template = 'tmp.XXXXXXXXXX';
my $cmdname = $0;
$cmdname =~ s#^.*/##;
my $cmd_usage = "Usage: $cmd_name [-dptu] [-p DIRECTORY] [TEMPLATE]\n";
Getopt::Long::Configure('bundling');
Getopt::Long::Configure('no_ignore_case');
Getopt::Long::Configure('no_auto_abbrev');
GetOptions(
'd' =>   \$flag_dir,
'q' =>   \$flag_quiet,
't' =>   \$flag_generate_path,
'u' =>   \$flag_unsafe,
'p=s' => sub {
$prefix_dir = $_[1];
$flag_generate_path = 1;
}
) || die "$cmd_usage";
if ($flag_quiet) {
$SIG{'DIE'} = sub {
exit(1);
}
}
if ($flag_unsafe) {
die "$cmd_name: -u option is not supported yet\n";
}
if (@ARGV == 1) {
$template = $ARGV[0];
}
elsif (@ARGV > 1) {
die "$cmd_name: too many argument\n";
}
if ($flag_generate_path) {
if ($template =~ m#/#) {
die "$cmd_name: template must not contain directory separators in -t mode\n";
}
if (defined($ENV{'TMPDIR'})) {
$template = "$ENV{'TMPDIR'}/$template";
}
elsif (defined($prefix_dir)) {
$template = "$prefix_dir/$template";
}
else {
$template = "/tmp/$template";
}
}
$template =~ s#//+#/#g;
$template =~ s/(X+)$//;
my $seed_n = defined($1) ? length($1) : 0;
my $try_max = $seed_n * 10;
for (my $try = 0; $try <= $try_max; $try++) {
my $temp = $template;
for (my $n = 0; $n < $seed_n; $n++) {
$temp .= $seed[int(rand(@seed))];
}
if ($flag_dir) {
if (mkdir($temp, 0700)) {
print "$temp\n";
exit(0);
}
elsif ($! != POSIX::EEXIST || $try == $try_max) {
die "$cmd_name: cannot create temporary directory $temp: $!\n";
}
}
else {
my $fh = IO::File->new($temp, O_RDWR|O_CREAT|O_EXCL, 0600);
if (defined($fh)) {
print "$temp\n";
exit(0);
}
elsif ($! != POSIX::EEXIST || $try == $try_max) {
die "$cmd_name: cannot create temporary file $temp: $!\n";
}
}
}

Not reached

exit(1);

#!/usr/bin/env perl
use strict;
use warnings;
my @wordseed = @ARGV;
sub wordmix
{
my ($wordpre, @wordlist) = @_;
my $n = scalar(@wordlist);
for (my $i=0; $i < $n; $i++) {
my @wordlistremained = @wordlist;
my $word = $wordpre . splice(@wordlistremained, $i, 1);
print "$word\n";
wordmix($word, @wordlistremained);
}
}
wordmix('', @wordseed);

一応できた (と思う) が、どうも美しさに自信がない。 この手の (数学的な?) アルゴリズムの実装は苦手かも…。 どうやって実装していいかなかなか思いつかず、30分くらいかかってしまった。 以下、実行例:

$ ./wordmix foo bar hoge hige >wordlist.txt
$ sudo john -wordfile:wordlist.txt /etc/shadow

依存しているパッケージ、多い。 推奨パッケージも含めると、120 を超える…。

ほかの選択肢は Ruby で Ruby on Rails、 Python で TurboGears あたり。 結局 Catalyst を含め試すことはなかったが、 人の評価やサンプルコードを見た限りでは、 Catalyst → Perl と同じで自由度が高い (高すぎる?)、 Ruby on Rails → 名前の通りしっかりしたレールの乗る (乗らされる?)、 TurboGears → バランスがよさげ、といった感じ。

それほど時間がない、 Perl に慣れている、 CPAN の魅力、 自由度が高い面は自分で制御できる、 ということで Catalyst で…。 あとは JavaScript (AJAX) をどうすべぇ。

ところで、某ページのDBIx::Class と Class::DBI 比較記事によると、 DBIx::Class はイイ感じらしい。 今回は DBI を利用する予定はないけど、 次の機会で DBIx::Class を試してみよう。

$ perl -e 'use Data::Dumper; @a=(9,99); eval {die \@a;}; print Dumper($@)'
$VAR1 = [
9,
99
];

へぇ。 これを利用するのは変かなぁ。

2006-05-22 追記: そういえば、Error モジュール で die にオブジェクトを渡していたな。なーんだ。 やっぱり Error を利用するのが一番簡単で手間もかからないかも。

The $members value returned by getgr*() is a space separated list of the login names of the members of the group.

配列のリファレンスを返せばいいのに、なんでこんな仕様なんだ…。 せめて group(5) と同じくカンマ区切りにすればいいのに。 おかげで、スペースを含むグループ名が使えない。

それはともかく、 rt.cpan.org が、バグ報告の本文中の & を HTML として表示する際に & にエスケープしない問題があり、そっちも進展なし。 この問題もちゃんと報告したのだが、 RT 3.4 にアップグレードしたら直るでしょう。 と返事を受けとったきり。 2度まだ直ってないよ。と突っこみのメールしたが、返事も進展なし。 なんとかしてくれよ〜。