exit: zahada

Honza Pazdziora adelton na informatics.muni.cz
Čtvrtek Leden 30 17:43:39 MET 2003


On Thu, Jan 30, 2003 at 05:04:22PM +0100, Jiri Polcar wrote:
>     Zdravim,
> 
> prave jsem se potkal ze zahadou. Spript vesele pokracuje i po volani fce
> exit():
> 
> ---cite---
> #!/usr/bin/perl -w
> 
> if ( doCommand ('eeeecho pepa') ) {
>   print "Podminka splnena\n";
> } else {
>   print "Podminka NEsplnena\n";
> }

[...]

> sub doCommand {
>   my ( $co ) = @_;
> 
>   {
>     local $SIG{__WARN__} = sub { die @_ };
>     eval { system $co };
>   }
> 
>   if ( $@ ) {
>     print STDERR "$0: ERROR: Cannot run: $co\n";
>     exit 1;
>   }
> 
>   print "OK\n";
> 
>   return 1;
> }
> ---cite---
> 
> predpokladam, ze neco co by se dalo pustit se nejmenuje 'eeeecho'. Zde
> posilam jeste vystup:
> 
> 
> ---cite---
> ./t41.pl: ERROR: Cannot run: eeeecho pepa
> OK
> Podminka splnena
> KONEC
> ---cite---
> 
> Muze me nekdo vysvetlit, tak to, ze fce exit() neukonci beh skriptu?

Protoze se nevola. Co Vas vede k presvedceni, ze ten system selze? Ten
system se vrati s uspechem.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
      ... all of these signs saying sorry but we're closed ...
------------------------------------------------------------------------


Další informace o konferenci Perl