6、Perl 安全编程与调试技巧

Perl 安全编程与调试技巧

1. Perl 数据去污点化

在 Perl 编程中，数据污点化检查是一项重要的安全特性，它能帮助我们发现程序中试图将外部数据传递给程序外部资源的部分。以下是几种常见的数据去污点化方法：
- 正则表达式去污点化 ：

use re 'taint';
# $file still tainted
my( $file ) = $ARGV[0] =~ m/^([\w.-]+)$/;

也可以采用更安全的策略，全局关闭正则表达式污点化，仅在需要时再开启：

use re 'taint';
{
    no re 'taint';
    # $file not tainted
    my( $file ) = $ARGV[0] =~ m/^([\w.-]+)$/;
}

• IO::Handle 模块去污点化 ：IO::Handle 模块可对数据进行去污点化处理。通常，从文件读取的输入数据会被标记为受污染，但我们可以让 IO::Handle 信任这些数据：

use Scalar::Util qw(tainted);
open my($fh), $ARGV[0] or die "Could not open myself! $!";
my $line = <$fh>;
print "L