Perlについての質問箱 49箱目
■ このスレッドは過去ログ倉庫に格納されています
0104デフォルトの名無しさん
2011/11/03(木) 20:40:50.01my $dbh = $DBI->connect(引数);
my $sth = $dbh->prepare("SELECT なんちゃらかんちゃら 〜 超長ったらしい 〜;"); # ←ここ!
$sth->execute();
$sth->finish();
$dbh->disconnect();
>>103
OS コマンドインジェクション
例えば次のような open 関数呼び出しは危険。
open($fh, $filename);
この状態だと $filename = ";halt"みたいにして外部コマンドを実行できる。
対策として、
open($fh, "<$filename");
open($fh, "<", $filename);
sysopen($fh, $filename, O_RDONLY);
みたいにすると OS コマンドを実行できなくなる。
■ このスレッドは過去ログ倉庫に格納されています