シリコンバレー在住エンジニアの、Perl、PHP、AJAX、Drupal、Java の小枝集です。( 7,833,022 since 2005.02.20 )
Perl で、数字（数値）を3桁ごとにカンマ（,）で区切る方法
まぁ、こんな感じ？他にもっといい方法はありそう。
まぁ、こんな感じ？他にもっといい方法はありそう。
#!/usr/bin/perl
my $num = 123456789;
print comman($num);
sub comma {
local($_) = @_;
1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}
1;#!/usr/bin/perl
my $num = 123456789;
print comman($num);
sub comma {
local($_) = @_;
1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}
1;
Perl で、古くなっているモジュールをすべて一括で更新する方法
以下のコマンドを実行。
以下のコマンドを実行。
Perl で、SpamAssassin を使って迷惑メールを処理する。
オープンソースで迷惑メールの処理するソフトといえば SpamAssassin （直訳するとスパム暗殺者）が有名だ。何しろ spamassassin.apache.org というサイト名からも分かるとおり、Apache Foundation 謹製なのだ。
その SpamAssassin、Perl で書かれている。なので当然 Perl のライブラリが用意されており、Perl 使いの人は簡単に自身のプログラム中から呼び出すことができる。SpamAssassin 自体はメールサーバのフロントエンドで、Procmail なんかと一緒に使うことが多いだろうから、あまり自身のプログラム中から呼び出すようなことはないとは思うのだが、何かのときに役に立つかもしれないから、とりあえず以下にサンプルを載せておこう（というかこのサイトのすべての内容自体、自分のためのメモなのでご了承を）。
オープンソースで迷惑メールの処理するソフトといえば SpamAssassin （直訳するとスパム暗殺者）が有名だ。何しろ spamassassin.apache.org というサイト名からも分かるとおり、Apache Foundation 謹製なのだ。
その SpamAssassin、Perl で書かれている。なので当然 Perl のライブラリが用意されており、Perl 使いの人は簡単に自身のプログラム中から呼び出すことができる。SpamAssassin 自体はメールサーバのフロントエンドで、Procmail なんかと一緒に使うことが多いだろうから、あまり自身のプログラム中から呼び出すようなことはないとは思うのだが、何かのときに役に立つかもしれないから、とりあえず以下にサンプルを載せておこう（というかこのサイトのすべての内容自体、自分のためのメモなのでご了承を）。
Perl で、BASIC 認証（基本認証）付きのサイトにアクセスするには？
LWP::UserAgent を使うのだが、以下のコードで太字の行がポイント。
使用するモジュール
LWP::UserAgent を使うのだが、以下のコードで太字の行がポイント。
使用するモジュール
use LWP::UserAgent;
コード
#!/usr/bin/perl
use LWP::UserAgent;
our $HOME_URL = 'ユーザー名とパスワード付きの URL';
our $USERNAME = '上記 URL にアクセスするためのユーザー名';
our $PASSWORD = '上記 URL にアクセスするためのパスワード';
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $HOME_URL);
<strong>$req->authorization_basic($USERNAME, $PASSWORD);</strong>
print $ua->request($req)->as_string;
1;
use LWP::UserAgent;
コード
#!/usr/bin/perl
use LWP::UserAgent;
our $HOME_URL = 'ユーザー名とパスワード付きの URL';
our $USERNAME = '上記 URL にアクセスするためのユーザー名';
our $PASSWORD = '上記 URL にアクセスするためのパスワード';
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $HOME_URL);
<strong>$req->authorization_basic($USERNAME, $PASSWORD);</strong>
print $ua->request($req)->as_string;
1;