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