AIXスレッド Technology Levels 06(Part6) (793ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
184(2): 2008/04/28(月)20:20 AAS
こういうのはダメか？
# perl -MCwd -e 'print Cwd::realpath shift' $path_to_file
190(2): 183 2008/04/29(火)08:07 AAS
ぉー、レスがある。ありがとー。
やりたいことってのはホント realpathなんだよね。
あるファイルにパス名がダーっと書かれていて、それを元に
コピー＆削除をするんだけど、ここに悪意が入る可能性がある。
../../../../../../../etc/passwd とかが来た場合、反応して自衛しなきゃならん、
というわけで、ブラックリスト方式で検閲処理を入れるために
パス正規化しないといかん、というわけでして・・。
このリストが数万のオーダーで来るので、それなりの速度も必要。
>184
Perl詳しくないんだけど、Cwdってモジュールは標準なんだっけ・・？
193: 2008/04/30(水)13:55 AAS
>>190
何万行も処理するんだったらシェルスクリプトじゃなくて、
リストチェックの部分は>>184の紹介してくれたモジュールを使ってPerlで
丸々やってみた方が多分早いと思う。
一度ベンチマークしてみておくれ。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.029s