1. 広告などの収入源


2. メンテナンスできる技術力


3. モチベーション

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Encode;
use URI::Escape;
#use File::Spec;

#これより上に辿ってはいけないパス
my $base_path = '/home/cgibin/public_html';

#スクリプトの実行パス
my $script_path = '/home/cgibin/public_html/dirtr';

#データの記録パス
my $data_path = './datadir/csv';

#正当なファイル名
my $file_true = 'data.csv';


#不当なファイル名
my $file_false = '../../../../../../etc/passwd';


##正当なファイルをテスト
print Encode::encode('utf8',
	"【true】："
	. make_fullpath([$data_path,$file_true],$script_path,$base_path)
	. "\n"
	);

##不当なファイルをテスト
print Encode::encode('utf8',
	"【false】："
	. make_fullpath([$data_path,$file_false],$script_path,$base_path)
	. "\n"
	);

exit;

## パスとファイル名を受け取って絶対パスを返す
## ついでにディレクトリ・トラバーサル対策
## make_fullpath(パスと配列のリファレンス,基準パス,遡上禁止パス)
sub make_fullpath{
	my($r_path,$base,$home) = @_;

	#URLエンコード対策
	$r_path->[$_] = uri_unescape($r_path->[$_]) foreach(0 .. $#{$r_path});

	#パスとファイル名をつなげる
#	my $filename = File::Spec->catfile(@$r_path);
	my $filename = join('/',@$r_path);
	
	#相対パスを絶対化
#	my $fullpath = File::Spec->rel2abs($filename,$base);
	$base =~ s/\/$//;
	my $fullpath = $base . '/' . $filename;

	#パスの正規化
	my @directries = ();						# 正規化パス名中間データを初期化
	foreach (split('/', $fullpath)){
			next if($_ eq "");				# // を無視
			next if($_ eq ".");				# /./ も無視
			if($_ eq ".."){					# /../ なら
					pop(@directries);			# 1 つ前の構成要素も無視
					next;
				}
			push(@directries,$_);				# 構成要素を追加
		}
	
	#バラしたパスをもう一度つなげる
#	$fullpath = File::Spec->catfile('/',@directries);
	$fullpath = '/' . join('/',(@directries));

	die("sub make_fullpath need 2nd parameter 'Basename'") unless($home);
	if($fullpath !~ /^$home/){
			return('不当なパスです');
		}else{
			return($fullpath);
		}
}

【true】：/home/cgibin/public_html/dirtr/datadir/csv/data.csv
【false】：不当なパスです

#Script1
print $ENV{'PATH_INFO'};
【結果】/tom/value

#Script2
my $param = $ENV{'PATH_INFO'};
$param =~ s/^\///;
my @data = split('/',$param);
print join('&',@data);
【結果】tom&value

#Script3
my $param = $ENV{'REQUEST_URI'};
my $pattern = "^$ENV{'SCRIPT_NAME'}/"; #スラッシュ忘れるなよ
$param =~ s/$pattern//;
my @data = split('/',$param);
print join('&',@data);
【結果】tom&value%2Fmoney

my $lastnum = scalar(@$ref_array) -1;

my $lastnum = $#{$ref_array};

my $lastnum = $#{$hash{'list'}};
# %hashの'list'の値に配列へのリファレンスが入っている場合

-bash: ./prova.cgi: /usr/bin/perl^M: bad interpreter: そのようなファイルやディレクトリはありません

(2)No such file or directory: exec of '/hoge/prova.cgi' failed