The code fragment appears to be wrong.

• If you're reading from <STDIN> then you'll need to chomp() the input otherwise the open will more than likely fail. You may think you're asking it to read file "myfile.txt", but really it'll try to open "myfile.txt\n".
• Why are you array dereferencing $filename in the open()? It's a scalar value, not an array so what you're doing is reading the file name into a variable called $filename but attempting to read it from an array called @filename (which are different things).

Try this:

my $filename = <STDIN>;
chomp($filename);
open (FH,$filename) or die "Unable to open file: $!";
my @Lines = <FH>;
close FH;
[download]

You should also check your return values when attempting to open files otherwise it could silently fail and then fall over later when the code you expect isn't there... The $! is very handy for rooting out why something won't open.

I didn't manage to get it to throw the error you came up with so perhaps where Perl is reporting isn't actually the root of the problem (which is fairly common with most programming languages!).

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.