Neu und Anfänger - #183888 (Allgemeines zu Perl)

hlubenow

2016-02-14 23:54

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

2016-02-14T22:23:28 ascotlx
Code: (dl )
1
2
3
4
5
6
7
8
9
!/usr/bin/perl

$file = '2016_5';

open(READ, $file);

@lines = <READ>;
close(READ);
print  @lines;
In etwa so ??

Hmm, das funktioniert - zufällig.

- Man sollte bei open() mitgeben, ob man lesen "<" oder schreiben ">" will.
- Man sollte stets "use warnings; use strict;" verwenden,
- Man sollte "my" verwenden,
- Das "print" funktioniert hier nur, weil die eingelesenen Zeilen Zeilenendezeichen hatten. Davon kann man nicht ausgehen.

Also:

Code (perl): (dl )

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

my $file = '2016_5';

open(my $fh, "<", $file) or die;
my @lines = <$fh>;
close($fh);
foreach my $i (@lines) {
    chomp($i);
    print "$i\n";
}

Last edited: 2016-02-14 23:55:02 +0100 (CET)