regexp spaltenbasiert - #188254 (Allgemeines zu Perl)

GwenDragon

2018-04-10 16:05

User since
2005-01-17
14758 Artikel
Admin1

Reports.

Code (perl): (dl )

use strict;
use warnings;

my ($col1, $col2, $col3);
format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< 
$col1,                  $col2,                 $col3
.

while (<DATA>) {
  chomp;
  ($col1, $col2, $col3) = split /\s+/;
  write STDOUT;
}

__DATA__
xxxxx yyyyyy zzzzz
xxxxx yyyyyy    zzzzzzz
xxxxx yyyyyy       zzzzzz

Ergibt

Code: (dl )

1
2
3

xxxxx                   yyyyyy                 zzzzz
xxxxx                   yyyyyy                 zzzzzzz
xxxxx                   yyyyyy                 zzzzzz

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten