Programmieren mit Perl

Safe

use Safe;

$sandbox = Safe->new();            # anonyme Sandbox
$sandbox = Safe->new("PackName");  # in dieser Symboltabelle

# Aktivieren bzw. Deaktivieren von Opcodes nach Gruppe oder Name.
$sandbox->permit(qw(:base_core));
$sandbox->permit_only(qw(:base_core :base_loop :base_mem));
$sandbox->deny("die");

# wie do(), aber in der Sandbox
$ok = $sandbox->rdo($filename);

# wie eval(), aber in der Sandbox
$ok = $sandbox->reval($code);      # ohne 'use strict'
$ok = $sandbox->reval($code, 1);   # mit 'use strict'

Das Safe-Modul versucht, eine eingeschränkte Arbeitsumgebung zu schaffen, um den Rest des Programms vor gefährlichen Operationen zu schützen. Es verwendet zu diesem Zweck zwei verschiedene Strategien. Genau wie der Daemon für anonymes FTP chroot(2) verwendet, ...