$|=1;#バッファリング制御
my $interval = 10;
eval {
local $SIG{ALRM} = sub { # ALRM シグナルをキャッチした
print "\n";
alarm $interval;
};
alarm $interval;
# 重たい処理をここでする
sleep 10;
};
alarm 0;
if ($@) {
die "$@";
}
$|=0;#バッファリング制御 元に戻す
Sunday, March 25, 2007
指定の配列のランダム
my @id =(0,1,2,3,4,5,6,7,8,9);
my @ret;
for (1..@id) {
push @ret, splice(@id, int(rand(@id)), 1);
}
print @ret;
my @ret;
for (1..@id) {
push @ret, splice(@id, int(rand(@id)), 1);
}
print @ret;
クラスとメソッドを一度に呼ぶサンプル Perl
---- Game.pm ------
package Game;
use strict;
use Carp qw(croak);
sub new{
my $class = shift;
my $name = shift || croak ('set name');
bless{
name => $name,
},$class;
}
sub name{
my $self = shift;
$self->{name};
}
1;
__END__
---- Player.pm -----
package Player;
use strict;
use Carp qw(croak);
use Game;
sub new{
my $class = shift;
my $self = {};
bless $self, $class;
}
sub run{
my $self = shift;
print $self->game->name;
}
sub game{
my $self = shift;
unless (defined $self->{game}){
$self->{game}= Game->new('race');
}
return $self->{game};
}
1;
__END__
---- index.cgi------
#!/usr/bin/perl
use Player;
use strict;
Player->new->run;
package Game;
use strict;
use Carp qw(croak);
sub new{
my $class = shift;
my $name = shift || croak ('set name');
bless{
name => $name,
},$class;
}
sub name{
my $self = shift;
$self->{name};
}
1;
__END__
---- Player.pm -----
package Player;
use strict;
use Carp qw(croak);
use Game;
sub new{
my $class = shift;
my $self = {};
bless $self, $class;
}
sub run{
my $self = shift;
print $self->game->name;
}
sub game{
my $self = shift;
unless (defined $self->{game}){
$self->{game}= Game->new('race');
}
return $self->{game};
}
1;
__END__
---- index.cgi------
#!/usr/bin/perl
use Player;
use strict;
Player->new->run;
Friday, March 23, 2007
Javascript 選択文字の取得
function getText()
{
var txt = '';
if (window.getSelection)
{
txt = window.getSelection();
}
else if (document.getSelection)
{
txt = document.getSelection();
}
else if (document.selection)
{
txt = document.selection.createRange().text;
}
else return;
document.getElementById("msg").innerHTML = txt;
}
{
var txt = '';
if (window.getSelection)
{
txt = window.getSelection();
}
else if (document.getSelection)
{
txt = document.getSelection();
}
else if (document.selection)
{
txt = document.selection.createRange().text;
}
else return;
document.getElementById("msg").innerHTML = txt;
}
Thursday, March 22, 2007
Ajaxを使わない 処理中の表示
#!/usr/bin/perl
use strict;
$=1;#バッファリング制御
print 'Content-Type: text/html', "\n\n";
my $html = <<__HTML__;
<html>
<head>
</head>
<body>
<img src="./img/indicator_remembermilk_orange.gif"> <-- 処理中をあらわす画像-->
</body>
</html>
__HTML__
print $html;
sleep 10;# 重い(長い)処理
$=0;#バッファリング制御
my $js = <<__JAVASCRIPT__;
<script language="JavaScript">
<!--location.href='test.html'// -->
</script>
__JAVASCRIPT__
print $js;
__END__
use strict;
$=1;#バッファリング制御
print 'Content-Type: text/html', "\n\n";
my $html = <<__HTML__;
<html>
<head>
</head>
<body>
<img src="./img/indicator_remembermilk_orange.gif"> <-- 処理中をあらわす画像-->
</body>
</html>
__HTML__
print $html;
sleep 10;# 重い(長い)処理
$=0;#バッファリング制御
my $js = <<__JAVASCRIPT__;
<script language="JavaScript">
<!--location.href='test.html'// -->
</script>
__JAVASCRIPT__
print $js;
__END__
無名ハッシュを配列で管理
my $ref_steps = &get_steps();
# 配列をデリファレンス @$ref_steps -->@{$ref_steps}
foreach my $sp (@$ref_steps) {
print sprintf("%s file %d 行\n", $sp->{file},$sp->{steps});
}
sub get_steps{
my @list; my $i=1;
for my $key ( qw(hoge hoge2 hoge3) ) {
push (@list, { file=>$key,steps=>$i });
$i++;
}
return \@list;
}
# 配列をデリファレンス @$ref_steps -->@{$ref_steps}
foreach my $sp (@$ref_steps) {
print sprintf("%s file %d 行\n", $sp->{file},$sp->{steps});
}
sub get_steps{
my @list; my $i=1;
for my $key ( qw(hoge hoge2 hoge3) ) {
push (@list, { file=>$key,steps=>$i });
$i++;
}
return \@list;
}
パーセントの計算
sub count_rate {
my ($numerator,$denominator) = @_;
if ( $numerator > 0 && $denominator > 0){
return sprintf("%.1f",($numerator / $denominator)*100);
}else{
return 0;
}
}
my ($numerator,$denominator) = @_;
if ( $numerator > 0 && $denominator > 0){
return sprintf("%.1f",($numerator / $denominator)*100);
}else{
return 0;
}
}
Tuesday, March 20, 2007
perl 経過時間 秒
my $start_sec= time;# 終了時間の取得
my $end_sec = time;# 終了時間の取得
my $finish_time = $end_sec - $start_sec;
my $finish_minute = int($finish_time / 60);# 分の取得
my $finish_sec = $finish_time % 60;
print sprintf("%d分%d秒",$finish_minute,$finish_sec);
my $end_sec = time;# 終了時間の取得
my $finish_time = $end_sec - $start_sec;
my $finish_minute = int($finish_time / 60);# 分の取得
my $finish_sec = $finish_time % 60;
print sprintf("%d分%d秒",$finish_minute,$finish_sec);
Sunday, March 18, 2007
ajax prototype.js を使った「処理中」のメッセージ表示
<script type="text/javascript" src="./prototype.js"></script>
<script type="text/javascript">
//<![CDATA[
function progressMessage(){
$("status").innerHTML = 'Please Wait..' ;
}
function upload(){
var filename = $F('filename');
var param = 'filename=' + filename ;
var url = "./upload.cgi";
new Ajax.Request(url, {method: 'post', parameters: param, onComplete: result, onLoading: progressMessage});
}
function result(req){
$("status").innerHTML = req.responseText ;
}
//]]>
</script>
</head>
<body>
<form >
<input type="button" value="実行" onclick="upload()"/>
</form>
<span id="status"></span>
-----
#!/usr/bin/perl
sleep 5; # 重い処理のつもり
print "Content-type: text/html;charset=Shift_JIS\n\n";
print "Thank you";
<script type="text/javascript">
//<![CDATA[
function progressMessage(){
$("status").innerHTML = 'Please Wait..' ;
}
function upload(){
var filename = $F('filename');
var param = 'filename=' + filename ;
var url = "./upload.cgi";
new Ajax.Request(url, {method: 'post', parameters: param, onComplete: result, onLoading: progressMessage});
}
function result(req){
$("status").innerHTML = req.responseText ;
}
//]]>
</script>
</head>
<body>
<form >
<input type="button" value="実行" onclick="upload()"/>
</form>
<span id="status"></span>
-----
#!/usr/bin/perl
sleep 5; # 重い処理のつもり
print "Content-type: text/html;charset=Shift_JIS\n\n";
print "Thank you";
Friday, March 16, 2007
Perl Template::Toolkit の例
for ( my $key = 1; $key <= 10; $key++ ) {
push (@list, { pattern =>"pattern".$key, hoge=>$key, hoge2=>'hoge'} );
}
$self->stash->{list}= \@list;
-------
[% FOREACH r = list %] [% r.pattern html %] [% r.hoge html %] [% r.hoge2 html %] [% END %]
push (@list, { pattern =>"pattern".$key, hoge=>$key, hoge2=>'hoge'} );
}
$self->stash->{list}= \@list;
-------
[% FOREACH r = list %] [% r.pattern html %] [% r.hoge html %] [% r.hoge2 html %] [% END %]
Thursday, March 15, 2007
Sunday, March 11, 2007
use Benchmark
4 wallclock secs ( 1.77 usr + 1.28 sys = 3.05 CPU) @ 57.05/s (n=174)
4 wallclock secs 処理全体にかかった秒数
@57.05 1秒間に処理した回数 57.05回処理した。
4 wallclock secs 処理全体にかかった秒数
@57.05 1秒間に処理した回数 57.05回処理した。
Saturday, March 10, 2007
ハッシュ 参照渡し
#!/usr/bin/perl
my %data=();
sub1(\%data);
foreach $key ( sort keys %data ) {
print "$key:$data{$key} \n";
}
sub sub1{
my ($x) = @_;
for ($i = 0; $i <= 10 ; $i++)
{
$x->{$i} = $i;
}
}
my %data=();
sub1(\%data);
foreach $key ( sort keys %data ) {
print "$key:$data{$key} \n";
}
sub sub1{
my ($x) = @_;
for ($i = 0; $i <= 10 ; $i++)
{
$x->{$i} = $i;
}
}
Perl 配列 参照渡しのサンプル
#!/usr/bin/perl
my @array = ();
sub1(\@array);
print @array;
sub sub1{
my ($x) = @_;
for ($i = 0; $i <= 10 ; $i++)
{
$x->[$i] = $i;
}
}
my @array = ();
sub1(\@array);
print @array;
sub sub1{
my ($x) = @_;
for ($i = 0; $i <= 10 ; $i++)
{
$x->[$i] = $i;
}
}
Tuesday, February 20, 2007
Thursday, February 08, 2007
携帯サイト開発に必要なツール
PsQREdit
QR コード作成ツール。URLを携帯に送るときに使用。携帯3キャリアとも使っているが読み取れないことはない。
ウェブコンテンツビューア
Yahooケイタイ向け公式のエミレータ。ユーザID（端末ID）とユーザエージェントUseragentを設定し送信することができる。
iモードHTMLシミュレータII
ユーザエージェントUseragentが自由に指定ができない。ただし、プロキシー先の設定ができるのでProxomitronというソフトを使用することでユーザエージェントすることができる。
Openwave® SDK 6.2K
AU用公式エミレータ
Firefox のuseragentswitcher
ユーザエージェントUseragentが自由に指定できる。携帯コンテンツ固有のHTMLタグでうまく表示できないことがある。
QR コード作成ツール。URLを携帯に送るときに使用。携帯3キャリアとも使っているが読み取れないことはない。
ウェブコンテンツビューア
Yahooケイタイ向け公式のエミレータ。ユーザID（端末ID）とユーザエージェントUseragentを設定し送信することができる。
iモードHTMLシミュレータII
ユーザエージェントUseragentが自由に指定ができない。ただし、プロキシー先の設定ができるのでProxomitronというソフトを使用することでユーザエージェントすることができる。
Openwave® SDK 6.2K
AU用公式エミレータ
Firefox のuseragentswitcher
ユーザエージェントUseragentが自由に指定できる。携帯コンテンツ固有のHTMLタグでうまく表示できないことがある。
Friday, January 26, 2007
Perl オブジェクト指向 Class 継承
HogeA.pm
package HogeA;
use strict;
sub new {
my $class = shift;
my $self = bless {}, $class;
return $self;
}
sub hoge {
my $self = shift;
print "Hoge::hoge\n";
}
1;
HogeB.pm
package HogeB;
use strict;
use base qw(HogeA);
sub new {
my $class = shift;
my $self = bless {}, $class;
return $self;
}
sub hogehoge{
print "hogehoge\n";
}
1;
---sample.pl
use strict;
use HogeB;
my $b = HogeB->new();
$b->hoge;
ISAも使えます。
package HogeA;
use strict;
sub new {
my $class = shift;
my $self = bless {}, $class;
return $self;
}
sub hoge {
my $self = shift;
print "Hoge::hoge\n";
}
1;
HogeB.pm
package HogeB;
use strict;
use base qw(HogeA);
sub new {
my $class = shift;
my $self = bless {}, $class;
return $self;
}
sub hogehoge{
print "hogehoge\n";
}
1;
---sample.pl
use strict;
use HogeB;
my $b = HogeB->new();
$b->hoge;
ISAも使えます。
Wednesday, January 24, 2007
Data::Pageのサンプル Template Toolkit
1..2 3 4 5 6 7 8 9 10 11 12 ..28
のようなページ支援の例
[% FOREACH num = [pager.first_page .. pager.last_page] %]
[% IF pager.current_page - pager.first_page > 5 && num == pager.first_page %]
<a href="hoge?page=[% num %]">[% num %]</a>..
[% END %]
[% IF num <= (pager.current_page + 5 ) && num >= (pager.current_page - 5 ) %]
[% IF num == pager.current_page %]<b>[% num %]</b>
[% ELSE %]<a href="hoge?page=[% num %]">[% num %]</a>[% END %]
[% END %]
[% IF (pager.last_page - pager.current_page) > 5 && num == pager.last_page %]
..<a href=hoge?page=[% num %]">[% num %]</a>
[% END %]
[% END %]
のようなページ支援の例
[% FOREACH num = [pager.first_page .. pager.last_page] %]
[% IF pager.current_page - pager.first_page > 5 && num == pager.first_page %]
<a href="hoge?page=[% num %]">[% num %]</a>..
[% END %]
[% IF num <= (pager.current_page + 5 ) && num >= (pager.current_page - 5 ) %]
[% IF num == pager.current_page %]<b>[% num %]</b>
[% ELSE %]<a href="hoge?page=[% num %]">[% num %]</a>[% END %]
[% END %]
[% IF (pager.last_page - pager.current_page) > 5 && num == pager.last_page %]
..<a href=hoge?page=[% num %]">[% num %]</a>
[% END %]
[% END %]
Thursday, January 18, 2007
Template::Plugin::FillInFormの使い方
--temp.html--
[% USE FillInForm %]
[% FILTER fillinform fdat => fdat1 %]
<form action="http://www.blogger.com/aaa" method="post">
<input type="text" name="hoge">
</form>
[% END %]
--- perl ----
#!/usr/local/bin/perl
use strict;
use Template;
my %values = (
hoge => 'hoge1',
);
my $output;
my $template = Template->new({
OUTPUT => \$output,
TRIM =>1,
});
$template->process(
'temp.html',
{ fdat1 =>\%values,
},
) or print $template->error;
print $output;
--- 実行結果
[% USE FillInForm %]
[% FILTER fillinform fdat => fdat1 %]
<form action="http://www.blogger.com/aaa" method="post">
<input type="text" name="hoge">
</form>
[% END %]
--- perl ----
#!/usr/local/bin/perl
use strict;
use Template;
my %values = (
hoge => 'hoge1',
);
my $output;
my $template = Template->new({
OUTPUT => \$output,
TRIM =>1,
});
$template->process(
'temp.html',
{ fdat1 =>\%values,
},
) or print $template->error;
print $output;
--- 実行結果
Template-Toolkit
サンプル
任意でconfigの指定ができる。
PRE_PROCESS ヘッダファイルの指定
POST_PROCESS フッタファイルの指定
INCLUDE_PATH テンプレートファイルの置く場所の指定
OUTPUT 出力の制御（詳細は後のURLを参照）
TRIM 改行などの削除（詳細は後のURLに書かれたBLOCKとINCLUDEの説明を参照）
例
my $output;
my $template = Template->new({
PRE_PROCESS => 'header.html',
POST_PROCESS => 'footer.html',
INCLUDE_PATH => '/home/hoge/temp',
OUTPUT => \$output,
TRIM =>1,
});
$template->process(
'sample.html',
);
print $output;
http://www.template-toolkit.org/docs/plain/Manual/Config.html
任意でconfigの指定ができる。
PRE_PROCESS ヘッダファイルの指定
POST_PROCESS フッタファイルの指定
INCLUDE_PATH テンプレートファイルの置く場所の指定
OUTPUT 出力の制御（詳細は後のURLを参照）
TRIM 改行などの削除（詳細は後のURLに書かれたBLOCKとINCLUDEの説明を参照）
例
my $output;
my $template = Template->new({
PRE_PROCESS => 'header.html',
POST_PROCESS => 'footer.html',
INCLUDE_PATH => '/home/hoge/temp',
OUTPUT => \$output,
TRIM =>1,
});
$template->process(
'sample.html',
);
print $output;
http://www.template-toolkit.org/docs/plain/Manual/Config.html
Friday, April 29, 2005
Tuesday, February 01, 2005
php configure
./configure --with-apxs2=/usr/local/apache2/bin/apxs --enable-mbstring --enable-mbregex --enable-zend-multibyte --with-pgsql=/usr/local/pgsql
Monday, January 24, 2005
PHP の携帯電話向けのセッション設定
php.ini
session.use_trans_sid =1
上記設定でOK
http://www.yc.musashi-tech.ac.jp/~yamada/doc/php/0802.html
session.use_trans_sid =1
上記設定でOK
http://www.yc.musashi-tech.ac.jp/~yamada/doc/php/0802.html
PATH_INFO による静的なページ
-------path_info.php-----------
$query = getenv ("PATH_INFO");
echo $query;
echo "
";
$var = split ("[/\.]", $query);
print_r ($var);
?>
--------------------------------
.htaccess
ForceType application/x-httpd-php
--------------------------------
引用元
http://blog.su-jine.com/archives/2004/08/_path_info_1.html
$query = getenv ("PATH_INFO");
echo $query;
echo "
";
$var = split ("[/\.]", $query);
print_r ($var);
?>
--------------------------------
.htaccess
ForceType application/x-httpd-php
--------------------------------
引用元
http://blog.su-jine.com/archives/2004/08/_path_info_1.html
mod_rewrite install DSO
cd /usr/local/src/apache_1.3.XX/src/modules/standard
/usr/local/apache/bin/apxs -c mod_rewrite.c
/usr/local/apache/bin/apxs -i mod_rewrite.so
/usr/local/apache/bin/apxs -c mod_rewrite.c
/usr/local/apache/bin/apxs -i mod_rewrite.so
Wednesday, January 12, 2005
psql
リモートマシンからアクセスするには,${PGDATA}/postgresql.confで
tcpip_socket = 1
として,TCP/IPでのアクセスを許可する.そして,${PGDATA}/pg_hba.confで
host all 127.0.0.1 255.255.255.255 trust
#psql -h マシンBのIPアドレス -U ユーザ名 -l
tcpip_socket = 1
として,TCP/IPでのアクセスを許可する.そして,${PGDATA}/pg_hba.confで
host all 127.0.0.1 255.255.255.255 trust
#psql -h マシンBのIPアドレス -U ユーザ名 -l
Friday, December 17, 2004
Tuesday, December 14, 2004
Monday, November 29, 2004
Friday, November 19, 2004
mod_rewrite 2
/usr/local/apache/bin/apxs -c /usr/local/src/apache_1.3.29/src/modules/standard/mod_rewrite.c
/usr/local/apache2/bin/apxs -i mod_rewrite.so
.htaccess
----------------------------------------------------------
Options +FollowSymLinks
RewriteEngine on
#RewriteRule ^([a-zA-Z0-9]+)/$ ./index.html?p=$1
#RewriteRule ^([a-zA-Z0-9]+)/index.htm$ ./index.html?p=$1
#RewriteRule ^([a-zA-Z0-9]+)/index.html$ ./index.html?p=$1
RewriteRule ^([a-zA-Z0-9]+)$ ./index.html?p=$1
/usr/local/apache2/bin/apxs -i mod_rewrite.so
.htaccess
----------------------------------------------------------
Options +FollowSymLinks
RewriteEngine on
#RewriteRule ^([a-zA-Z0-9]+)/$ ./index.html?p=$1
#RewriteRule ^([a-zA-Z0-9]+)/index.htm$ ./index.html?p=$1
#RewriteRule ^([a-zA-Z0-9]+)/index.html$ ./index.html?p=$1
RewriteRule ^([a-zA-Z0-9]+)$ ./index.html?p=$1
Thursday, November 18, 2004
mysql
/usr/local/mysql/bin/mysqladmin version
/usr/local/mysql/bin/mysqlshow
/usr/local/mysql/bin/mysql -u root -p
/usr/local/mysql/bin/mysqlshow
/usr/local/mysql/bin/mysql -u root -p
phpMyAdmin UTF-8
phpMyAdmin
インストール
cp config.sample.inc.php config.inc.php
$cfg['blowfish_secret'] = 'hogehoge'; ここに適当な文字列を追加
うまく動かない場合 #2002 - The server is not responding (or the local MySQL server's socket is not correctly configured
//$cfg['Servers'][$i]['host'] = 'localhost';
$cfg['Servers'][$i]['host'] = '127.0.0.1';
のように変更すると動くときもある。
日本語のコードを ＵＴＦ８ にする場合
config.inc.php
$cfg['DefaultLang'] = 'utf-8';
$cfg['DefaultCharset'] = 'utf-8';
$cfg['AllowAnywhereRecoding'] = FALSE; ＜＜こっちがいいみたい
$cfg['AllowAnywhereRecoding'] = TRUE; でもOKだがその場合、なんでも可となるので
UTF-8のみなら要らない
$cfg['Servers'][$i]['user'] = 'root'; // MySQL user
$cfg['Servers'][$i]['password'] = '';
$cfg['Servers'][$i]['host'] = 'localhost';
$cfg['PmaAbsoluteUri'] = 'http://www.+++.com/phpMyAdmin/';
libraries/select_lang.lib.php
以下をコメントアウト
/** * * 2004-02-15 rabus: Deactivated the code temporarily:
* We need to allow UTF-8 in order to be MySQL 4.1 compatible!
// Disable UTF-8 if $cfg['AllowAnywhereRecoding'] has been set to FALSE.
if (!isset($cfg['AllowAnywhereRecoding']) !$cfg['AllowAnywhereRecoding']) {
$available_language_files = $available_languages;
$available_languages = array();
foreach ($available_language_files AS $tmp_lang => $tmp_lang_data) {
if (substr($tmp_lang, -5) != 'utf-8') {
$available_languages[$tmp_lang] = $tmp_lang_data;
}
} // end while
unset($tmp_lang, $tmp_lang_data, $available_language_files);
} // end if
* */
インストール
cp config.sample.inc.php config.inc.php
$cfg['blowfish_secret'] = 'hogehoge'; ここに適当な文字列を追加
うまく動かない場合 #2002 - The server is not responding (or the local MySQL server's socket is not correctly configured
//$cfg['Servers'][$i]['host'] = 'localhost';
$cfg['Servers'][$i]['host'] = '127.0.0.1';
のように変更すると動くときもある。
日本語のコードを ＵＴＦ８ にする場合
config.inc.php
$cfg['DefaultLang'] = 'utf-8';
$cfg['DefaultCharset'] = 'utf-8';
$cfg['AllowAnywhereRecoding'] = FALSE; ＜＜こっちがいいみたい
$cfg['AllowAnywhereRecoding'] = TRUE; でもOKだがその場合、なんでも可となるので
UTF-8のみなら要らない
$cfg['Servers'][$i]['user'] = 'root'; // MySQL user
$cfg['Servers'][$i]['password'] = '';
$cfg['Servers'][$i]['host'] = 'localhost';
$cfg['PmaAbsoluteUri'] = 'http://www.+++.com/phpMyAdmin/';
libraries/select_lang.lib.php
以下をコメントアウト
/** * * 2004-02-15 rabus: Deactivated the code temporarily:
* We need to allow UTF-8 in order to be MySQL 4.1 compatible!
// Disable UTF-8 if $cfg['AllowAnywhereRecoding'] has been set to FALSE.
if (!isset($cfg['AllowAnywhereRecoding']) !$cfg['AllowAnywhereRecoding']) {
$available_language_files = $available_languages;
$available_languages = array();
foreach ($available_language_files AS $tmp_lang => $tmp_lang_data) {
if (substr($tmp_lang, -5) != 'utf-8') {
$available_languages[$tmp_lang] = $tmp_lang_data;
}
} // end while
unset($tmp_lang, $tmp_lang_data, $available_language_files);
} // end if
* */
Tuesday, November 16, 2004
mod_vhost_alias
実際にはfind . -name mod_vhost_alias.c で探してみてください。
DSOとして後から追加
/usr/local/apache/bin/apxs -c mod_vhost_alias.c
/usr/local/apache/bin/apxs -i mod_vhost_alias.so
mod_vhost_alias.soが見事にlibexecの下におる
VirtualDocumentRootが使える
VirtualDocumentRoot /var/www/vhosts/%0/
をhttp.confの最後に追加するだけ。
すると、「www.hoge.com」でアクセスされた場合「/var/www/vhosts/www/
DSOとして後から追加
/usr/local/apache/bin/apxs -c mod_vhost_alias.c
/usr/local/apache/bin/apxs -i mod_vhost_alias.so
mod_vhost_alias.soが見事にlibexecの下におる
VirtualDocumentRootが使える
VirtualDocumentRoot /var/www/vhosts/%0/
をhttp.confの最後に追加するだけ。
すると、「www.hoge.com」でアクセスされた場合「/var/www/vhosts/www/
Monday, November 15, 2004
ユーザごとにdocumentrootを変更する
RewriteEngine on
RewriteCond %{HTTP_HOST} ^www\.hogehoge\.jp$
RewriteRule (.*) /usr/local/apache/htdocs$1 [L]
RewriteCond %{HTTP_HOST} ^www\.[^.]+\.hogehoge\.jp$
RewriteRule (.*) %{HTTP_HOST}$1 [C]
RewriteRule ^www\.([^.]+)\.hogehoge\.jp(.*) /home/$1/public_html$2 [L]
RewriteCond %{HTTP_HOST} ^[^.]+\.hogehoge\.jp$
RewriteRule (.*) %{HTTP_HOST}$1 [C]
RewriteRule ^([^.]+)\.hogehoge\.jp(.*) /home/$1/public_html$2 [L]
-------------------------------------------------------------
サブドメインアクセスを適切なURLに書き直す。
例： http://aaa.hoge.comのアクセスを http://www.hoge.com/aaa/ にする。
( httpd.conf or .htaccess )
バーチャルホストで定義する
ServerName hoge.com
ServerAlias *.hoge.com
ServerAdmin info@hoge.com
RewriteEngine On
RewriteCond %{HTTP_HOST} ([^\.]+).*
RewriteRule ^/$ /%1/ [R]
RewriteCond %{HTTP_HOST} ^www\.hogehoge\.jp$
RewriteRule (.*) /usr/local/apache/htdocs$1 [L]
RewriteCond %{HTTP_HOST} ^www\.[^.]+\.hogehoge\.jp$
RewriteRule (.*) %{HTTP_HOST}$1 [C]
RewriteRule ^www\.([^.]+)\.hogehoge\.jp(.*) /home/$1/public_html$2 [L]
RewriteCond %{HTTP_HOST} ^[^.]+\.hogehoge\.jp$
RewriteRule (.*) %{HTTP_HOST}$1 [C]
RewriteRule ^([^.]+)\.hogehoge\.jp(.*) /home/$1/public_html$2 [L]
-------------------------------------------------------------
サブドメインアクセスを適切なURLに書き直す。
例： http://aaa.hoge.comのアクセスを http://www.hoge.com/aaa/ にする。
( httpd.conf or .htaccess )
バーチャルホストで定義する
ServerName hoge.com
ServerAlias *.hoge.com
ServerAdmin info@hoge.com
RewriteEngine On
RewriteCond %{HTTP_HOST} ([^\.]+).*
RewriteRule ^/$ /%1/ [R]
WildCard Domain (Sub domain)
named
*.YOURDOMAIN.COM. in a 123.123.123.123
apache
DocumentRoot /www/example
ServerName www.example.net
ServerAlias *.example.net
RewriteEngine on
RewriteEngine on
RewriteCond %{HTTP_HOST} ^123.123.123.123(:80)?
$RewriteCond %{HTTP_HOST} ^www.+++.com(:80)?
$RewriteRule ^/(.*) http://www.+++.com/$1[L,R]
RewriteOptions inherit
http://www.uk2raq.com/raqfaq/raqfaqshow.php?faq=80
*.YOURDOMAIN.COM. in a 123.123.123.123
apache
DocumentRoot /www/example
ServerName www.example.net
ServerAlias *.example.net
RewriteEngine on
RewriteEngine on
RewriteCond %{HTTP_HOST} ^123.123.123.123(:80)?
$RewriteCond %{HTTP_HOST} ^www.+++.com(:80)?
$RewriteRule ^/(.*) http://www.+++.com/$1[L,R]
RewriteOptions inherit
http://www.uk2raq.com/raqfaq/raqfaqshow.php?faq=80
mod_rewrite
引用
ここでの[NC]は，大文字小文字を区別しない（No Case），[F]はアクセス禁止（Forbidden）を意味するものだ。また，[OR]という指定もあり，後述するように「または」という論理指定をすることが可能だ。
[C]指定で無条件で次の行に進む。
RewriteCondは省略可能で，評価対象が評価条件にマッチした場合，次の行が実行される。
例
RewriteCond %{SERVER_PORT} !^443$
アクセスポートが443番(httpsでのアクセスではなかったら)、以下のルールを適用するという意味。
Linux Tips - mod_rewrite
http://webcraft.jp/asy/linux/mod_rewrite.htm
ここでの[NC]は，大文字小文字を区別しない（No Case），[F]はアクセス禁止（Forbidden）を意味するものだ。また，[OR]という指定もあり，後述するように「または」という論理指定をすることが可能だ。
[C]指定で無条件で次の行に進む。
RewriteCondは省略可能で，評価対象が評価条件にマッチした場合，次の行が実行される。
例
RewriteCond %{SERVER_PORT} !^443$
アクセスポートが443番(httpsでのアクセスではなかったら)、以下のルールを適用するという意味。
Linux Tips - mod_rewrite
http://webcraft.jp/asy/linux/mod_rewrite.htm
Saturday, November 13, 2004
blogとは
ブログとは哲学的ではない説明では
日記や愚痴や思いつきや適当に撮った画像をインターネットにアップする機能
日記とあるなら、個人でひそかに楽しめばいい。しかし、基本はインターネットと
いうものに共有するもの
機能
投稿機能&更新機能(メルマガと違うところ)
コメント機能
リンク機能
画像UP機能 (blogger単独ではないん 他において画像リンクを貼るか？http://flickr.com/)
PING送信機能 (bloggerはなし？)
プロフィール機能
テンプレート選択&UP機能
ログイン管理
アクセスIP制限
トラックバック(blogger単独ではないん-> http://www.haloscan.com/)
カテゴリ機能 (bloggerってないん？)
アーカイブ機能(月ごと？)
最近の投稿表示機能
RSS表示機能
日別表示機能(カレンダー)
検索機能
アクセス解析
バックアップ機能
日記や愚痴や思いつきや適当に撮った画像をインターネットにアップする機能
日記とあるなら、個人でひそかに楽しめばいい。しかし、基本はインターネットと
いうものに共有するもの
機能
投稿機能&更新機能(メルマガと違うところ)
コメント機能
リンク機能
画像UP機能 (blogger単独ではないん 他において画像リンクを貼るか？http://flickr.com/)
PING送信機能 (bloggerはなし？)
プロフィール機能
テンプレート選択&UP機能
ログイン管理
アクセスIP制限
トラックバック(blogger単独ではないん-> http://www.haloscan.com/)
カテゴリ機能 (bloggerってないん？)
アーカイブ機能(月ごと？)
最近の投稿表示機能
RSS表示機能
日別表示機能(カレンダー)
検索機能
アクセス解析
バックアップ機能
Friday, November 12, 2004
Thursday, November 11, 2004
maintenance page
もしmod_rewriteが使用できるapacheを使用しているなら
.htaccessに以下を記述するとmente.htmlに自動的に切り替わる
htconfの設定ファイルに書き込んでも可
Options +FollowSymLinks
RewriteEngine on
RewriteBase /
RewriteRule .* mente.html
.htaccessに以下を記述するとmente.htmlに自動的に切り替わる
htconfの設定ファイルに書き込んでも可
Options +FollowSymLinks
RewriteEngine on
RewriteBase /
RewriteRule .* mente.html
Tuesday, November 09, 2004
ファイルの内容の重複行の検出
uniq [-cdu] inputfile outputfile
オプション 機能
-c 複数重複している行を出力する
-d 二重になっている行を出力する
-u 重複していない行を出力する
例
%uniq -d test.tex article.tex
ファイルtest.texとarticle.texで二重になっている行を出力する
sortコマンドをあわせて使用するとより便利です。(完全にソートされるわけではないです。)
sort ファイル
sort 30out.txt 30int.txt uniq -u
オプション 機能
-c 複数重複している行を出力する
-d 二重になっている行を出力する
-u 重複していない行を出力する
例
%uniq -d test.tex article.tex
ファイルtest.texとarticle.texで二重になっている行を出力する
sortコマンドをあわせて使用するとより便利です。(完全にソートされるわけではないです。)
sort ファイル
sort 30out.txt 30int.txt uniq -u
Subscribe to:
Posts (Atom)