Datei auslesen

[Kurt Z]

Hi

ich verstehe nicht was du gerne hättest ...

  
use Data::Dumper;  
  
my $txt="0128ARW00234563640090800xxxx xxxxxxxxxx     34636115013000000000000000200xxx                                           0216C60343453453453464357456111108051000 0000000000060090423435634645900008600000   xxxxxxxxx xxxxxx xxxxx          xxxxx-xxxxx xxxxx xxxxxx xxxxxxxx xxxxx.41 xxxx xxxx       xxxxxxx                     0187C600934534543444431033603124498120208051000 0000000000060090800000077997000012600000   xxxxxxx + xxxxx xxxxxx              xxxxxx xxxxxxx + xxxxxxx      xxxxxxx xxxxx-xxx             000216C600908002543534534552124990120208051000 0000000000060090800000006881900001038962   xxxxxx xxxx                        xxxxxx xxxxxxx       xxxxxxx xxxxxxx   xxxxxx xxxx                  0216C6009345345344000010414440125595120208051000 000000000006009080030055345";  
  
  
  
my @treffer = ( $txt =~ /([0-9]{4})([C]{1})(.{182})/g);  
print Dumper \@treffer;  

liefert 3 Treffer a 3 Gruppen (entsprechend deienr Klammerung)

$VAR1 = [
          '0216',
          'C',
          '60343453453453464357456111108051000 0000000000060090423435634645900008600000   xxxxxxxxx xxxxxx xxxxx          xxxxx-xxxxx xxxxx xxxxxx xxxxxxxx xxxxx.41 xxxx xxxx       xxxxxxx     ',
          '0187',
          'C',
          '600934534543444431033603124498120208051000 0000000000060090800000077997000012600000   xxxxxxx + xxxxx xxxxxx              xxxxxx xxxxxxx + xxxxxxx      xxxxxxx xxxxx-xxx             ',
          '0216',
          'C',
          '600908002543534534552124990120208051000 0000000000060090800000006881900001038962   xxxxxx xxxx                        xxxxxx xxxxxxx       xxxxxxx xxxxxxx   xxxxxx xxxx              '
        ];

Gruß
 Kurt