Hallo Jungs,
nach Ewigkeiten komme ich mal wieder in den Genuss von Perl und muss feststellen, dass einiges bei mir an Wissen "verschollen" ist.
Nun zu meinem Problem:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | -------------------- disp+work information -------------------- kernel release 742 kernel make variant 742_REL compiled on AIX 1 6 00F674C74C00 use-pr20150128 for rs6000_64 compiled for 64 BIT compilation mode UNICODE compile time Mar 5 2015 02:30:45 update level 0 patch number 100 source id 0.100 RKS compatibility level 0 --------------------- supported environment --------------------- database (SAP, table SVERS) 740 operating system |
Die obige Ausgabe verarbeite ich bisher sehr rudimentär in der Shell, was mir das ausgibt was ich haben will.
1 2 | disp+work| egrep -i "($AB_KERNEL|$AB_BIT|$AB_MODE|$AB_PATCH)" | sed 's/kernel make variant//g' | tr "\n" " " \ | sed 's/compilation mode/:/g' | sed 's/patch number/:/g'| sed 's/compiled for/:/g' | sed 's/BIT//g' |awk '{print $1,$2,$3,$4,$5,$6,$7}' |
Wie kann ich das Problem ich Perl lösen? Ich möchte quasi nur:
kernel make variant 742_REL compilation mode UNICODE patch number 100
Danke schon einmal für jeden Tipp und frohe Ostern