| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
#define eval _eval
| Alle Einträge zum Thema: | Zur Liste |
$code = '... beliebige Fehler ...';
local $SIG{__DIE__} = sub { $@="@_"; }; # im Fehlerfall $@ nachstellen
$@=''; eval($code); # $@ zurücksetzen und eval()
if ($@) {
out "Es ist der Fehler '$@' aufgetreten!<br>\n";
}
<hr><h3>Beispiel:</h3><perl>
local $SIG{__DIE__} = sub { $@="@_"; };
$code1 = ' out "... Stringende vergessen;';
$@=''; eval($code1); out "FEHLER: '$@'<br>\n" if $@;
$code2 = ' my $test = 1/0; ';
$@=''; eval($code2); out "FEHLER: '$@'<br>\n" if $@;
$code3 = ' &vergessen();';
$@=''; eval($code3); out "FEHLER: '$@'<br>\n" if $@;
$code4 = ' out "kein Fehler :)";';
$@=''; eval($code4); out "FEHLER: '$@'<br>\n" if $@;
</perl><hr>
sub _eval {
local $SIG{__DIE__} = sub { $@="@_"; };
$@='';
eval($_[0];
}
#define eval _eval
| Liste der Einträge von 22950 bis 23100: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |