Ja, schön. Ich arbeite schon lange und sehr viel damit, es ist ganz einfach zweckmäßig. U.a. auch hierbei:
x = y == z ? a : do{..};
MfG
Wenn Ihr mir hier schon Perl draus macht, mal ein etwas ausführlicheres Beispiel zu do{}:
if( my $keyword = $self->param('fetch') ){
if( $keyword eq 'img' ) {
$self->{CONTENT} = do{
my $fh = IO::File->new;
$fh->open( "$ENV{DOCUMENT_ROOT}/red.gif", O_BINARY|O_RDONLY)
or die "Fehler beim Lesen der Grafikdatei: $!\n";
read($fh, my $bin, -s $fh);
$fh->close;
$bin;
};
}
else{
# DEMO
die "Beim Lesen der Grafikdatei gab es einen Fehler!\n";
}
}
Oder wenn mal eben vorher noch was berechnet werden muss:
2 => do{$year--; "31.12.$year"}
MfG