Or are you referring to Perl statements?

If yes, you can often use something like that:

open($handle, '<', $file) or die "Can't open '$file' for reading: $!";
[download]

The or checks the return value of open, the last Perl statement.

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]

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]

>Is it this that bothers you?

No it is not. There are several places over my project where retcode_full_test() is called. So I just thought about minimize changes.

After that, I'd thought, if global $? exists, why could not exist $"last_command_line"

That's all, in general

There is not much Perl can do about this. If you insist on invoking a shell then all that Perl can do is report what the shell returned. Anything further is outside its control.

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Digest::MD5;
use IPC::Run qw( run timeout ) ;

my %syscalls;

runsyscall('/usr/bin/ls');
runsyscall('/bin/ls');
runsyscall('vipw');

print Dumper %syscalls;

sub runsyscall
{
    my @cmd = @_;

    my $digest = digestit(@cmd);
    my ( $in, $out, $err );
    $syscalls{$digest}{'cmd'} = qq|@cmd|;

    eval { run \@cmd, \$in, \$out, \$err, timeout 10 };

    if ($@)
    {
        $syscalls{$digest}{'exit'} = $@;
    }
    chomp ($err) if $err;
#    chomp ($out) if $out;
    $syscalls{$digest}{'err'} = $err || undef;
#    $syscalls{$digest}{'out'} = $out || undef;

}

sub digestit
{
    my @cmd = @_;
    my $sysdigest = Digest::MD5->new;
    $sysdigest->add(@cmd);

    return $sysdigest->hexdigest;
}
[download]