# *******************************************************************
# 
# *******************************************************************
$Method = $ENV{'REQUEST_METHOD'};
$Method =~ tr/a-z/A-Z/;

# *******************************************************************
# ブラウザの種類
# *******************************************************************
sub IsIe {
	if ( $ENV{'HTTP_USER_AGENT'} =~ /MSIE/ ) {
		$TRUE;
	}
	else {
		$FALSE;
	}
}

# *******************************************************************
# ブラウザの種類
# *******************************************************************
sub IsIe {
	if ( $ENV{'HTTP_USER_AGENT'} !~ /MSIE/ ) {
		$FASLE;
	}
	else {
		$TRUE;
	}
}

$a = substr( 文字列, 開始位置, 長さ )

$n = 7;
$a = "15";
$a = ("0" x 10) .  $a;
$a = substr( $a, length($a)-$n, $n );
print "/$a/<br>\n";

$a = "&nbsp;" x $n;
print "/$a/<br>\n";

/0000015/<br>
/&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/<br>

$a = ",,,,,,,,,,,,," . "\n";
@a = split( /,/,  $a );
$a[$#a] =~ s/\n//;
for ( 0 .. $#a ) {
	print "$a[$_]<br>\n";
}

$a = join( ":", @a );
print "$a<br>\n"

print join( "<br>", "あ", "い", "う" );

@IB_TIME = localtime(time);
$IB_CREATE_KEY = sprintf( "%02d%02d%02d%02d%02d%02d",
			$IB_TIME[5]-100,
			$IB_TIME[4]+1,
			$IB_TIME[3],
			$IB_TIME[2],
			$IB_TIME[1],
			$IB_TIME[0] );
printf( "%02d/%02d/%02d %02d:%02d:%02d",
			$IB_TIME[5]-100,
			$IB_TIME[4]+1,
			$IB_TIME[3],
			$IB_TIME[2],
			$IB_TIME[1],
			$IB_TIME[0] );
print "<br>\n";
print "$IB_CREATE_KEY<br>\n"

chop(LIST) 
chop(VARIABLE) 
chop VARIABLE
chop

文字列の最後の文字を落としてその文字列を返す。入力文字列から最後の改行文字を除くのに使ったりする。
文字列を省略した場合、$_ を使う。 

while (<>) {
     chop;     # 最後の \n を取る
     @array = split(/:/);
     ...

左辺値であれば引数は何でもいい。 

chop($cwd = `pwd`);
chop($answer = <STDIN>);

リストを chop した場合は、全リストを chop し、最後に chop した文字を返す。 

grep(EXPR,LIST)
LIST の全要素について EXPR を評価し (各要素を $_ にセットしながら)、 expression が true 
であると評価された要素からなる配列を返す。スカラーのコンテキストでは、expression が true
 となった回数を返す。 

@foo = grep(!/^#/, @bar);    # コメントを無視する

keys(ASSOC_ARRAY)
keys ASSOC_ARRAY
指定された連想配列の全てのキーからなる通常の配列を返す。キーは全くランダムな順序で返されるが、
values() や each() 関数の出力と同じである (連想配列が変更されていなければ)。以下は環境を出力
するまた別の方法である。 

@keys = keys %ENV;
@values = values %ENV;
while ($#keys >= 0) {
     print pop(@keys), '=', pop(@values), "<br>\n";
}