array aus Datei-separator - #160234 (Allgemeines zu Perl)

topeg

2012-07-27 10:34

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Wenn Leerzeichen und Zeilenumbrüche gemischt sind und als Trenner gleichwertig sind, idt es günstig die ganze Datei einzulesen und dann an diesen Zeichen zu splitten, das erspart einem Tipperei. :-)
Hier ein Beispiel:

Code (perl): (dl )

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

my $data_file="test.txt";

my @numbers=read_numbers($data_file);

sub read_numbers
{
  my $file=shift(@_) // return ();
  open(my $fh, '<', $file) or die "Error open $file ($!)\n";
  # Zeilenenden ignorieren
  local $/=undef;
  # daten lesen und an leerzeichen/zeilenumbüchen splitten
  my @data=split(/[\x0A\x0D\s]+/,<$fh>);
  close($fh);
  return @data;
}