Regex-Problem mit Backreferences - #79766 (Allgemeines zu Perl)

Crian

2004-02-04 15:09

User since
2003-08-04
5866 Artikel
ModeratorIn

Variante mit Split:

Code: (dl )

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

while (<DATA>) {
    my @parts = split;
    #print "@parts";
    (my $eins = $parts[0]) =~ s~^h(0401[0-9.]+?)\.gz$~$1~;
    my $zwei = $parts[5];
    my $drei = $parts[6];
    print "3. $eins $zwei $drei\n";
}

_ _DATA_ _
h040111.233001.gz bfb4e2e0-41f7-71d8-1c34-0aa0093f0000 cb32393c-5603-71d7-1bec-0aa01c1b0000 1 178260287 24 einrechner.einedomain.de 1 178260287

Ausgabe:

Code: (dl )

3. 040111.233001 24 einrechner.einedomain.de

HTH

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite