AI时代，找源码已成为过去式，纪念我过去的十年0(回)
69天前
还有人吗2(回)
87天前会python真的可以为所欲为0(回)
567天前
这里还有人吗2(回)
752天前这里还有人吗0(回)
752天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
977天前#----------------------------- |
#!/usr/bin/perl -T |
open ( FH, "> $ARGV[0]" ) or die; |
#----------------------------- |
# Insecure dependency in open while running with -T switch at ... |
#----------------------------- |
$file = $ARGV[0]; |
# $file tainted |
unless ( $file =~ m#^([\w.-]+)$#) { # $1 is untainted |
die "filename '$file' has invalid characters.\n"; |
} |
$file = $1; # $file untainted |
#----------------------------- |
unless ( -e $filename ) |
{ |
# WRONG! |
open ( FH, "> $filename" ); |
# ... |
} |
#----------------------------- |
by: 发表于：2017-09-13 14:16:24 顶(0) | 踩(0) 回复
??
回复评论