There are a couple of possible mistakes:
1. You don't check if the open() worked, and you're not passing it a full pathname to the file, are you sure it's found the file? Try using:
open(file1, "sample.txt") || die "Can't open sample.txt ($!)";
- the code will end (die) if the file cant be found or opened, including the '$!' will give you the system error message, such as 'cant find file' etc.
2. You're using file1, whether the open actually worked or not. To get Perl to tell you if the file handle is actually readable, try putting 'use warnings;' at the top of your code.
Do you realise that you are trying to print the first line of the file, then assign the second line to $line1, and then print that? Each line is read only once from the file handle, the next access will get the following line..
C.
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.