script-Hilfe gesucht

Christian Horn christian.horn at muc-t-systems.com
Mit Mar 30 21:05:44 CEST 2005


On Wed, Mar 30, 2005 at 08:37:07PM +0200, Matthias Leonhardt wrote:
> für die knobelfreudigen sed|gawk|perl - freaks unter euch habe ich mal
> eine kleine Aufgabe:
> [..]

------
#!/usr/bin/perl -w
my @arr = qx( cat dd.txt );
foreach ( 0..($#arr - 1) ) {
        if ( $arr[$_+1] =~ /Succesful completion/ ) {
                $arr[$_] =~ /phi_0 = (\w+)/;            print "phi_0: $1 ";
                $arr[$_] =~ /phi_1 = ([-0-9]+)/;        print "phi_1: $1\n";
        }
}
------

gruss, Christian.
-------------- nächster Teil --------------
Ein Dateianhang mit Binärdaten wurde abgetrennt...
Dateiname   : nicht verfügbar
Dateityp    : application/pgp-signature
Dateigröße  : 189 bytes
Beschreibung: Digital signature
URL         : http://www.tlug.de/pipermail/tlug_allgemein/attachments/20050330/defdc156/attachment.pgp