Как заставить переменную perl всегда быть испорченной?

Question

Я ищу 100% -ное надежное решение, не зависящее от ввода или окружающей среды или чего-то еще - я просто хочу, чтобы 100% -определяли скалярную переменную tainted :-)

Answer 1

Я не претендую на идеальные надежность. Всегда нужно создавать тесты, чтобы гарантировать, что код работает как ожидалось в каждой новой системе.

Однако, если открыть дескриптор файла для скалярной справки, результаты readline кажутся tainted:

#!/usr/bin/env perl -T 
use strict; 
use warnings; 

use Scalar::Util qw(tainted); 

my $var = 0.13; 

print tainted($var) ? "Yes, tainted: $var\n" : "Nope, all clean: $var\n"; 

$var = taint_string($var); 

print tainted($var) ? "Yes, tainted: $var\n" : "Nope, all clean: $var\n"; 

sub taint_string { 
    my $value = shift; 

    warn "Not going to work on references" if ref $value; 

    open my $fh, '<', \$value or die "Can't open: $!"; 
    local $/; # Slurp 
    return <$fh>; 
} 

Выходы:

Nope, all clean: 0.13 
Yes, tainted: 0.13