Debianにsubversionをインストールしたときのメモ

Posted on 2011/05/21 by kyamamoto

ちょっと変えてますが、ほとんどこちらのサイトを参考にさせていただきました。ありがとうございます。

subversionをDebian lennyにインストールしたまとめ – akirakiの日記

なので、やったことだけ自分用にメモを残しておきたいと思います。

■subversionとapacheのsvnモジュールのインストール

$ sudo aptitude install subversion
$ sudo aptitude install libapache2-svn # ※apacheが再起動されます

■リポジトリの作成

$ sudo mkdir -p /var/svn/test
$ sudo svnadmin create /var/svn/test
$ sudo chown -R www-data:www-data /var/svn/test
$ sudo chmod -R 777 /var/svn/test

■/etc/apache2/mods-available/dav_svn.conf を編集

$ diff dav_svn.conf.original dav_svn.conf
13c13
< #<Location /svn>
---
> <Location /svn>
16c16
<   #DAV svn
---
>   DAV svn
23c23,24
<   #SVNParentPath /var/lib/svn
---
>   SVNParentPath /var/svn
>   SVNListParentPath on
40,42c41,43
<   #AuthType Basic
<   #AuthName "Subversion Repository"
<   #AuthUserFile /etc/apache2/dav_svn.passwd
---
>   AuthType Basic
>   AuthName "Subversion Repository"
>   AuthUserFile /var/svn/.htpasswd
51c52
<     #Require valid-user
---
>     Require valid-user
54c55
< #</Location>
---
> </Location>

■ベーシック認証の設定

$ sudo htpasswd -c /var/svn/.htpasswd ユーザ名

■dav_svnの設定を有効にしてapacheを再起動

$ sudo a2dismod dav_svn # dav_svnを無効
$ sudo a2enmod dav_svn #dav_svnを有効
$ sudo /etc/init.d/apache2 restart

■ブラウザからアクセス

ブラウザから「http://xxx.xxx.xxx.xxx/svn/」にアクセス。

以上。

Posted in Debian | Tagged , , , | Leave a comment

Perl – quotemeta()

Posted on 2011/05/20 by kyamamoto

quotemeta()関数。正規表現のメタ文字をエスケープしてくれる関数。すぐ忘れるのでメモ。

perl -e 'print quotemeta("[0-9a-zA-Z&]") . "\n"';
Posted in Perl | Tagged | Leave a comment

cpanmでXML::Parserをインストール

Posted on 2011/05/20 by kyamamoto

cpanmでXML::Parserをインストールしようとしたところ以下のようなエラーが発生。

$ cpanm XML::Parser
--> Working on XML::Parser
Fetching http://search.cpan.org/CPAN/authors/id/C/CH/CHORNY/XML-Parser-2.40.tar.gz ... OK
Configuring XML-Parser-2.40 ... OK
Building and testing XML-Parser-2.40 ... FAIL
! Installing XML::Parser failed. See /home/appuser/.cpanm/build.log for details.

調べてみたところ、Debianだとlibexpat1-devというパッケージが必要とのこと。

$ sudo aptitude install libexpat1-dev

$ cpanm XML::Parser

これでXML::Parserをインストールできました。

Posted in Perl, 未分類 | Tagged , , , , | Leave a comment

twitter:User is over daily status update limit

Posted on 2011/05/19 by kyamamoto

ず’s » twitter:User is over daily status update limit

Twitter リミットについて (投稿、API、ダイレクトメッセージ、フォロー)によると、「投稿: 1000件／1日　この1日あたりのリミットは、約1時間おきのリミットに更に細かく分割されます。リツイートも、投稿としてカウントされます」だそうです。

という規制があるようですね。何らかの規制があるだろうなとは思ってましたが。

Posted in Twitter | Tagged | Leave a comment

Perl – WebService::Bitly

Posted on 2011/05/17 by kyamamoto

WWW::Shorten::Bitlyの「makealongerlink()」がなぜかうまく動かなかったので、WebService::Bitlyというのを試してみました。(CPANのコードそのまんまですが・・・)
APIキーは「http://bit.ly/」こちらでアカウントを取れば取得できます。

■サンプルプログラム

#!/usr/bin/env perl

use strict;
use warnings;
use WebService::Bitly;

my $user_name = 'USERNAME';
my $api_key   = 'BITLY_API_KEY';

my $bitly = WebService::Bitly->new(
    user_name    => $user_name,
    user_api_key => $api_key,
);

my $url   = "http://blog.neofig.com/";
my $short = "http://bit.ly/iCndKK";

my $shorten = $bitly->shorten($url);
if (!$shorten->is_error) {
    print $shorten->short_url, "\n";
    print $shorten->hash, "\n";
    print "\n";
}

my $expand = $bitly->expand(
    short_urls => [$short,  ],
#    hashes     => ['iCndKK',],
);

if (!$expand->is_error) {
    for my $result ($expand->results) {
        print $result->long_url, "\n" if !$result->is_error;
    }
}

■実行結果

$ perl sample.pl
http://bit.ly/iCndKK
iCndKK

http://blog.neofig.com/

このモジュールはこちらのブログの方が作成されたんですね。感謝です。
WebService::Bitlyというcpanモジュールを作った – Dive into the Tech World!
※記事の下のほうにコメントのやりとりが・・・。まだ自分はCPANにあげたことはないですが、今後の参考にさせてただきます。

Posted in Perl | Tagged , | Leave a comment

Perl – Net::Twitter::Lite

Posted on 2011/05/17 by kyamamoto

Perlの「Net::Twitter::Lite」を使ってツイートするプログラムのサンプルです。
「Consumer key」、「Consumer secret」、「Access Token」、「Access Token Secret」は、「Twitter developers」から手に入れてください。

#!/usr/bin/env perl

use strict;
use warnings;
use Net::Twitter::Lite;
use utf8;

my $string =<< '...';
テスト投稿です。
...

my $nt = Net::Twitter::Lite->new(
    consumer_key    => 'Consumer key',
    consumer_secret => 'Consumer secret',
);

$nt->access_token('Access Token');
$nt->access_token_secret('Access Token Secret');
eval {
    $nt->update(
        {
            status => $string,
        }
    );
};

warn $@ if $@;

※サーバの時刻が合っていない場合、「Timestamp out of bounds」というエラーが出ることがあるようです。

Posted in Perl | Tagged , , | Leave a comment

最近のAmazonの人気商品を独自に調べてみた(ゴールデンウィーク前半)

Posted on 2011/05/05 by kyamamoto

前回の『最近のAmazonの人気商品を独自に調べてみた』に引き続き、ゴールデンウィーク前半の人気商品を調べてみました。前回の人気商品は大災害から一ヶ月が経ってはいたもののやはり災害関連の商品ばかりでしたが、今回の人気商品にはちらほらゲームやら文庫などが登場してきました。特に『俺の妹がこんなに可愛いわけがない 8 (電撃文庫 ふ 8-13)』は発売直前とあって大注目されているようです。

俺の妹がこんなに可愛いわけがない 8 (電撃文庫 ふ 8-13)

学園黙示録　ＨＩＧＨＳＣＨＯＯＬ　ＯＦ　ＴＨＥ　ＤＥＡＤ　７ (ドラゴンコミックスエイジ さ 1-1-7)

プロテインダイエットミックス30P

スリムアップスリム プレシャス シェイク 14食分 (マンゴー、抹茶、カフェラテ、黒ごまミルク、イチゴ、バナナ、ココア)

サッと固まる消臭トイレ袋（30回分） 災害での断水時でもトイレが使える！

心を整える。 勝利をたぐり寄せるための56の習慣

テイルズ オブ ジ アビス

訳あり豆乳おからゼロクッキー★砂糖ゼロ・おから80％！★限定訳あり品！目指せ-5kg！

豆乳おから焼きドーナツ♪油で揚げずにじっくり焼いた◆砂糖０使用・低GI・低カロリー◆目指せ-5kg！

遠藤製餡 ゼロカロリー水ようかん 抹茶 90g×6個

【玉ねぎ発芽玄米粥】優しさの和洋セット５食入セット(フリーズドライおかゆ)

リセットボディ豆乳カニ雑炊&フカヒレ雑炊 5食

【手回し充電】ラジオ付ダイナモライト(携帯充電ケーブル付) 02-3532

アーバンテック SUPER DELIOS(スーパーデリオス) 携帯用浄水器

非常用保存食 『乾燥野菜』(10g/1袋）ドライベジタブルミックス

Posted in Amazon | Tagged | Leave a comment

Perl – Config::Pit

Posted on 2011/04/29 by kyamamoto

PerlのConfig::Pitというモジュールを試してみました。
Config::Pitはパスワード設定を直接コードに書きたくない場合などに利用できます。

まずはモジュールのインストールから。
(cpanmを使ってインストールします。cpanmの環境構築についてはこちらを参考にしてください)

$ cpanm Config::Pit

インストールが終わったら、パスワード等を設定するプログラムです。

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Config::Pit;
 
# 設定
Config::Pit::set(
    'blog.neofig.com',
    data => {
        username   => 'ABCDE',
        password   => 'VWXYZ',
    }
);

設定した値が取り出せるか確認してみます。

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature qw/say/;
use Config::Pit;

# 設定した値を取り出す
my $config_pit = pit_get(
    "blog.neofig.com",
    require => {
        username => 'default user name',
        password => 'default user password',
    }
);

say sprintf("username : %s", $config_pit->{username});
say sprintf("password : %s", $config_pit->{password});

実行結果です。

$ perl get.pl
username : ABCDE
password : VWXYZ

設定した値は、homeディレクトリの「.pit」というディレクトリに保存されるようです。暗号化されていないのは気になりますが、直接コードに書くよりはましですね。

Posted in Perl | Tagged , | Leave a comment

Perlで標準エラー出力を拾う方法

Posted on 2011/04/26 by kyamamoto

$SIG{__WARN__}を使えばいける。

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature qw/say/;
use Log::Log4perl qw/:easy/;

Log::Log4perl->easy_init(
    {
        level  => $INFO,
        file   => ">> file.log",
        layout => "%d{yyyy/MM/dd HH:mm:ss.SSS} [%p] %m (%F{1}:%L) %n",
    }
);

my $logger = get_logger();

local $SIG{__WARN__} = sub{
    # 標準エラーを拾った際にWARNレベルでログを出力
    $logger->warn( shift );
};

# 「use utf8;」しているので、ここで「Wide character in print」の
# 標準エラーが出力されるはず
say "あいうえお";

実行結果

$ perl 00_sample.pl
あいうえお

出力されたログファイル

$ cat file.log
2011/04/26 02:37:49.940 [WARN] Wide character in print at 00_sample.pl line 24.
 (00_sample.pl:21)

Posted in Perl | Tagged | Leave a comment

最近のAmazonの人気商品を独自に調べてみた

Posted on 2011/04/25 by kyamamoto

最近のAmazonの人気商品を独自に調査してみました。独自なのでまー参考程度に。
ただご覧の通り保存の効く食べ物だったり、懐中電灯だったりと先月の大地震の影響がまだまだあるのが分かりますね。
でも、ダイエット食品・低カロリー食品(プロテインダイエットミックス30Pとか)といったものに人気があるのは意外でした。これは震災とは関係ないですよねぇ。

■非常用保存食 『乾燥野菜』(10g/1袋）ドライベジタブルミックス

■【玉ねぎ発芽玄米粥】優しさの和洋セット５食入セット(フリーズドライおかゆ): 食品&飲料

■遠藤製餡 ゼロカロリー水ようかん 抹茶 90g×6個

■訳あり豆乳おからゼロクッキー★砂糖ゼロ・おから80％！★限定訳あり品！目指せ-5kg！

■リセットボディ豆乳カニ雑炊&フカヒレ雑炊 5食

■プロテインダイエットミックス30P

■スリムアップスリム プレシャス シェイク 14食分 (マンゴー、抹茶、カフェラテ、黒ごまミルク、イチゴ、バナナ、ココア)

■【4個セット】単3電池 から 単1電池 へ 変換ソケット 単一乾電池スペーサー　災害時、充電池等に。

■豆乳おから焼きドーナツ♪油で揚げずにじっくり焼いた◆砂糖０使用・低GI・低カロリー◆目指せ-5kg！

■心を整える。 勝利をたぐり寄せるための56の習慣

■【手回し充電】ラジオ付ダイナモライト(携帯充電ケーブル付) 02-3532: ホーム&キッチン

■Amazon.co.jp： サッと固まる消臭トイレ袋（30回分） 災害での断水時でもトイレが使える！: ホーム&キッチン


※こちらの商品は現在在庫切れの用です。売り切れになってたけど復活したようですね。

Posted in Amazon | Tagged | Leave a comment