The code you show can't be the code you're running.

A reduced version of your code dies with an error for me:

use strict;
use warnings;

my %seen = ();
my $flag = 0;
my (@nonprod_lpars, @lparstat, $clntdir);
my $regexp_2_skip = qr/entitled capacity of pool/i;
my $regexp_2_get  = qr/entitled capacity|desired Virtual CPU|desired M
+emory|online Virtual CPU|maximum Virtual CPU|maximum memory|online me
+mory/i;
my @asof;

sub _ce {

print "IN CE SUB\n";

    die "no parameter!\n" unless @_;
    my ($ce_ref) = @_;

    for my $name (@{ $ce_ref }) {
        #@asof = +(split("/", $name, 0))[-3,-2,-4];
        #$lpname = +(split("/", $name, 0))[3];
        #print $csv "$lpname\n";
        #print $csv '*' x length($lpname),"\n";
        #print '*' x length($lpname),"\n";
        print "$name\n";
        open (my $i, "+<", $$name) or warn $!;   ### FAILS HERE ###
        while (<$i>) {
            chomp $i;
            next if $i =~ /$regexp_2_skip/;
            next if $i !~ /$regexp_2_get/;
            ($i) =~ s/:/,/g;
            ($i) =~ s/\s+//g;
            #print $csv "$i,\n";
            print "$i,\n";
        }
    }
    #print $csv "\n\nHost,Entitled CPU and RAM as of,\n\n";

return;
}

@lparstat = ('1','2','3');
_ce(\@lparstat);

[download]

Either you slapped use strict; at the top of your program without re-running it, or you are running other code than the code you are looking at.

Running your program with use strict; immediately lets Perl tell you what goes wrong. Another hint would be to actually print the filename you're trying to open:

        open (my $i, "+<", $$name) or warn "Failed to open '$$name': $
+!";   ### FAILS HERE ###

[download]

If you're not using strict, Perl will allow you to dereference things that are not a reference. This rarely makes sense but you will actually see the contents of $$name (nothing).

Maybe that is just a typo and you wanted to use $name instead.

In reply to Re: opening a file passed into sub as ref by Corion
in thread opening a file passed into sub as ref by teamassociated

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.