Re: gefilterte Ausgabe erstellen

Hallo Heiko,

perl fällt leider aus, ist im DELL DTK nicht drin...

Trotzdem danke für die Anregung. Gruß Thomas

2014-02-28 22:21 GMT+01:00 Heiko Schlittermann hs@schlittermann.de:

Thomas Müller thomas@mueller-meissen.de (Do 27 Feb 2014 21:01:51 CET):

...

Hallo an die Scripting Experten unter Euch,

wie kann ich elegant bzw. überhaupt folgende Aufgabe lösen: Gegeben ist eine Datei mit folgendem Inhalt (Auszug)

Elegant ist anders, aber es geht aus so:

#! /usr/bin/perl
use 5.014;
use warnings;
use English qw(-no_match_vars);

$OFS = "\t";

$_ = do { local $RS = undef; <> };

while (
        /^component:\s+(?<component>.+?(?=\Q$RS\E))
        .*?
        ^current\sversion:\s+(?<current>\S+)
        \s[<=>]\s
        repository\sversion:\s(?<avail>\S+)
        .*?
        ^package\sname:\s(?<package>.+?(?=\Q$RS\E))
        /ixmgs
    )
{
    die "output field separator '$OFS' found in values"
        if /\Q$OFS\E/ ~~ [values %+];
    say @+{qw(component current avail package)};

}



Best regards from Dresden/Germany
Viele Grüße aus Dresden
Heiko Schlittermann

-- SCHLITTERMANN.de ---------------------------- internet & unix support - Heiko Schlittermann, Dipl.-Ing. (TU) - {fon,fax}: +49.351.802998{1,3} - gnupg encrypted messages are welcome --------------- key ID: 7CBF764A - gnupg fingerprint: 9288 F17D BBF9 9625 5ABC 285C 26A9 687E 7CBF 764A - (gnupg fingerprint: 3061 CFBF 2D88 F034 E8D2 7E92 EE4E AC98 48D0 359B)-

---

Lug-dd maillist - Lug-dd@mailman.schlittermann.de https://ssl.schlittermann.de/mailman/listinfo/lug-dd