open fails to open file when filename read from STDIN

[Nicpetbio23!]

Why doesn't this read my file into the array properly? How can I fix it

-----------------------------------------------------------------------

print "Please enter id file\n";
my $file = <STDIN>;
open (my $handle, '<',$file);
chomp (my @lines = <$handle>);
close $handle;

[LanX]

I think you need to chomp $file too.

in any case you need to check for errors from open:

open(my $fh, "<", "input.txt")    or die "Can't open < input.txt: $!";

[hippo]

Item number 7 on the Basic debugging checklist

[KurtZ]

Plus number 2 (and 3). :)

[Anonymous Monk]

There's a newline on the end of the filename, which you need to get rid of. Also, always error-check your opens.

my $file = <STDIN>;
chomp $file;
open my $handle, '<', $file or die "Can't read $file: $!";

[karlgoethebier]

TMTOWTDI with the error handling for free:

#!/usr/bin/env perl

use strict;
use warnings;
use Path::Tiny;
use Data::Dump;
use feature qw(say);

say q(Please enter id file);

chomp( my $file = <STDIN> );

my @data = path($file)->lines( { chomp => 1 } );

dd \@data;

__END__

Regards, Karl