Re^2: Is it possible to determine last executed command line?

In brief

I have separate sub inside my project

sub retcode_full_test {
    # code taken from perldoc -f system
    if ($? == -1) {
        G::abend("failed to execute: $!");
    }
    elsif ($? & 127) {
        G::abend(sprintf("child died with signal %d, %s coredump", ($?
+ & 127),  ($? & 128) ? 'with' : 'without'));
    }
    else {
        return $? >> 8;
    }
}
[download]

I've thought, that it would be better and it may be possible

sub retcode_full_test {
    # code taken from perldoc -f system
    if ($? == -1) {
        G::abend("failed to execute $?????: $!");
    }
    elsif ($? & 127) {
        G::abend(sprintf("$????? died with signal %d, %s coredump", ($
+? & 127),  ($? & 128) ? 'with' : 'without'));
    }
    else {
        return $? >> 8;
    }
}
[download]

Comment on Re^2: Is it possible to determine last executed command line? Select or Download Code

Replies are listed 'Best First'.
Re^3: Is it possible to determine last executed command line? by apl (Monsignor) on Dec 03, 2007 at 10:55 UTC
Rather than calling `system( "....." ); retcode_full_text();` [download] you might consider modifying retcode_full_text to take the last command as an argument, and using `my_system( "....." );` with `sub my_system { my ( $cmd ) = @_; system( $cmd ); retcode_full_text( $cmd ); }` [download]	[reply] [d/l] [select]
Re^4: Is it possible to determine last executed command line? by graff (Chancellor) on Dec 04, 2007 at 00:42 UTC
In case the caller wants to pass a list of command-line args to system(), you would want to do it like this (which seems simpler anyway): `sub my_system { system( @_ ); retcode_full_text( "@_" ); }` [download]	[reply] [d/l]
Re^5: Is it possible to determine last executed command line? by ikegami (Patriarch) on Dec 04, 2007 at 01:38 UTC
If you care about precision as opposed to readability, the following might be more appropriate. `sub my_system { system( @_ ); retcode_full_text( join ' ', map quotemeta, @_ ); }` [download] At least for non-Windows systems.	[reply] [d/l]
Re^4: Is it possible to determine last executed command line? by sgifford (Prior) on Dec 04, 2007 at 06:21 UTC
Or overriding the global `system`: `BEGIN { CORE::GLOBAL::system = \&my_system; }` [download] I'm not sure how to do this for backticks or pipe-open, though. -- sgifford's Web page*	[reply] [d/l] [select]


laziness, impatience, and hubris
	PerlMonks