The following snippet is to set a variable to "PASSED" unless the word "FAILED" appears in a file. This works fine on AIX and Solaris but on Linux Redhat 7.3, the @result_array is empty, resulting in the grep returning 0 (count of FAILED) and thus reports a "PASSED" instead of a "FAILED" :-( 
#!/usr/local/it/bin/perl -w

#
# Create sample file with two 
# instances of "FAILED" string
#

$RFILE="example_file";                                      
open(F1,">$RFILE") or die "cannot open $RFILE for creation!\n";
print F1 "FAILED\nPASSED\nPASSED\nFAILED\nPASSED\n";              
close(F1);

#
# Open file for Append AND read
#
open(RESULT,"+>>$RFILE") or die "cannot open $RFILE\n";

#
# Set an array to the filehandle and count the
#  number of lines with the "FAILED" string
#

my @result_array = <RESULT>;
$number_failures = grep /FAILED/, @result_array;

#
# Overall status is FAILED if any "FAILED" strings
# are found
#

$OVERALL_STATUS = ($number_failures > 0) ? "FAILED":"PASSED";
print "+-------------------+\n";
print "|                   |\n";
print "| EO_FAIL_03 $OVERALL_STATUS |\n";
print "|                   |\n";
print "+-------------------+\n";
close(RESULT);

[download]
If I change the open line to: 
open(RESULT,"$RFILE")

[download]
it works fine! And yes...I do need it to be "+>>" for other operations not shown in this snippet. Any insight on this would be real helpful.

In reply to open(F1,"+>>$FILE") works on Solaris,AIX but not Linux?? by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.