How To Process System Exit Codes Using Perl Eval

Author: erics, March 9th, 2021

The trick to using eval to catch shell execution is to return twice, once inside the eval and once outside:

sub isMaintenance {
    my $return = eval {
        my $err=system("check_policy.sh | grep 'Policy is MAINTENANCE' >/dev/null 2>/dev/null");
        &debug("perl error code: $err");
        $err=$err / 256;
        &debug("system error code: $err");
        if ($err != 0) {
                # Not Maintenance
                if ($verbose) { warn "policy is NOT MAINTENANCE\n"; }
                return 0;
        } else { return 1; }
    };  
    return $return;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

sub isMaintenance {

my $return = eval {

my $err=system("check_policy.sh | grep 'Policy is MAINTENANCE' >/dev/null 2>/dev/null");

&debug("perl error code: $err");

$err=$err / 256;

&debug("system error code: $err");

if ($err != 0) {

# Not Maintenance

if ($verbose) { warn "policy is NOT MAINTENANCE\n"; }

return 0;

} else { return 1; }

};

return $return;

}

Neat!

Categories: How-To's, Technology Tags: Code, eval, Exit, Exit Code, howto, perl, Return, System | No comments

How To Escape Newlines In PHP For Javascript

Author: erics, January 11th, 2012

You must use all three lines together for it to work…YMMV:

$escaped = str_replace(chr(10),'\n',$original_value);
$escaped = str_replace(chr(13),'\r',$escaped);
$escaped = preg_replace("/(\r?\n)/","\n",$escaped);

1

2

3

$escaped = str_replace(chr(10),'\n',$original_value);

$escaped = str_replace(chr(13),'\r',$escaped);

$escaped = preg_replace("/(\r?\n)/","\n",$escaped);

Categories: How-To's, Technology Tags: Backslash, break, carriage return, control-m, Escape, javascript, JS, line break, Newline, php, Return | No comments

How To Access Value Directly From A Hash Returned By A Perl Subroutine

Author: erics, May 5th, 2011

my $value = $self->myFunction()->{'result'};

Where:

sub myFunction {
   my $self=shift;
   
   ...code here...
   
   return {
          'status' => 0,
          'result' => 'Hello World',
   };
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

my $value = $self->myFunction()->{'result'};

Where:

sub myFunction {

my $self=shift;

...code here...

return {

'status' => 0,

'result' => 'Hello World',

};

}

Categories: How-To's, Technology Tags: Hash, howto, perl, Return, Subroutine | No comments

S	M	T	W	T	F	S
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

How To Process System Exit Codes Using Perl Eval

How To Escape Newlines In PHP For Javascript

How To Access Value Directly From A Hash Returned By A Perl Subroutine

Our Link Network

Business

Client Websites

Fine Dining

Friends & Family

Galleries

Health

Resources

Technology

Travel

The Archives

Latest Ramblings…

Various Topics of No Interest