Why does Perl just give me the last line in the file?

I have downloaded the following file: rawdata_2001.text

and I have the following perl开发者_运维技巧 code:

open TEXTFILE, "rawdata_2001.text";
while (<TEXTFILE>) {
    print;
}

This however only prints the last line in the file. Any ideas why? Any feedback would be greatly appreciated.

---

The file is formatted with carriage returns only, so it's being sucked in as one line. You should be able to set $/ to "\r" to get it to read line by line. You then should strip off the carriage return with chomp, and be sure to print a new line after the string.

---

your file probably is using "\r" line endings, but your terminal expects "\n" or "\r\n". try running:

open my $textfile, '<', "rawdata_2001.text" or die;
while (<$textfile>) {
    chomp;
    print "$_\n";
}

you can also experiment with changing the input record separator before the loop with local $/ = $ending;, where $ending could be "\n", "\r\n", "\r"