sub give_from {
my ($c, $arg) = @_;
no strict 'refs';
return $c->$arg;
}
my $c=load($file);
my @rtn = (); foreach my $arg (@ARGV) {
my @sargs = split(/\b\s+\b/, $arg);
$rtn = 1 if $#sargs > 1; foreach my $sarg (@sargs) {
my @ssargs = split('->', $sarg);
my $given = $c; # We follow the arrows foreach my $ssarg (@ssargs) {
$given = give_from($given, $ssarg);
} # and return what the last one gave us
push(@rtn, "$sarg\n$given\n");
}
}
print join("\n", @rtn);
return $rtn;
¤ Dauer der Verarbeitung: 0.27 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
