MS Windows und EOF - #182833 (Allgemeines zu Perl)

Kuerbis

2015-11-09 07:54

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Hallo,

OS Linux: um die Eingabe in diesem Skript zu beenden, drücke ich einmal (Cursor am Zeilenanfang) oder zweimal Strg-D.

Wenn ich diese Skript in einem OS Windows aufrufe, muss ich Enter, Strg-Z und Enter eingeben, um die Eingabe zu beenden, es wird also jedesmal ein zusätzliches /n angehängt.
Ist das einfach so, oder geht das auch anders?

Code (perl): (dl )

#!/usr/bin/env perl
use strict;
use warnings;

open my $fh, '>', 'my_file.txt' or die $!;

while ( my $line = <STDIN> ) {
    print $fh $line;
}

close $fh;