|
|
|
|
  请教 #!/usr/bin/perl -wT - solaryi [ 2003-01-23 19:33 | 1,537 byte(s)]
Re: 请教 #!/usr/bin/perl -wT - barret [ 2003-01-24 19:07 | 145 byte(s)]
|
|
|
|
[Original]
[Print]
[Top]
|
这段代码执行时出错,发现是 -T参数所致,怎么解决? (当然要保留 -wT)
#!/usr/bin/perl -wT
sub openOutputFilter() {
return;
}
if (!open(FH, "-|")) { # child
openOutputFilter();
exec('ls', '-l', '/home') or exit -1;
}
while (<FH>) {
printf("---------sssssss----------------
");
}
./t.p
Insecure $ENV{PATH} while running with -T switch at ./t.p line 11.
|
|
|
[Original]
[Print]
[Top]
|
|
[Original]
[Print]
[Top]
|
$ENV{PATH} = "/bin:/usr/bin";
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
把这两句加到程序比较前面去。
|
|
|
----
Think different.
|
|
[Original]
[Print]
[Top]
|
|
|
声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。