#! /usr/bin/perl use strict; use warnings; use utf8; # weil Beispieldaten utf8 kodiert sind my @collected; while ( my $line = ) { # Ausgabe wird gemacht, wenn die aktuelle Zeile nur aus Punkten besteht, oder # wenn die Zeile mit zwei Zeichenketten aus Punkten, zwischen denen ein oder mehr # Leerzeichen liegen, endet. # if ( $line =~ m/(?:^|[.]+\s+)[.]+$/ ) { chomp @collected; push @collected, $line; # ">>> " fuer Produktiv-Code entfernen print ">>> @collected"; @collected = (); } else { push @collected, $line; } } # Beispieldaten __DATA__ Eingänge, 12 Bit, 0(4) ...20mA (Stecker Typ E), gemäss Leistungsbeschrieb ATS 03, komplett betriebsbereit, verdrahtet inkl. Klemmen 31 158 St ...................... ..................... R 912.553.124 Analoges Ausgangsmodul mit galvanischer Trennung, 4 Ausgänge, 10 Bit, 0(4) ... 20mA (Stecker Typ E), gemäss Leistungsbeschrieb ATS 03, komplett betriebsbereit, verdrahtet inkl. Klemmen 31 84 St ...................... ..................... R 912.553.125 DALI Modul gemäss Leistungsbeschrieb ATS 03, komplett betriebsbereit, verdrahtet inkl. Klemmen 31 160 St ...................... .....................