df auslesen, regexp problem - #76937 (Allgemeines zu Perl)

sid burn

2007-05-25 19:08

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Quote
aber die regex oder split passt nicht mehr, wenn der diskname so lang ist, dass die diskgroessen in die nächste zeile geschrieben werden etc.

Häh?

Welchen Disknamen meinst du? /dev/sdaxx ?
Was meinst du mit Diskgroessen in die nächste Zeile?

Das Programm "df" macht einfach nur eine Ausgabe, da gibt es keine Begrenzung der Zeilengrößen.

Das kann jetzt auch 800 Zeichen groß sein, das würde in Perl trotzdem als eine Zeile und String gewertet werden.

Oder ist df so geschrieben worden das es intern automatisch nach 80 Zeichen umbricht?

Quote
kürzer ist nicht immer gleich besser

Sagte ich auch nicht. ;)

Würde auch eher dein beispiel nehmen, allerdiengs ohne Temp Variable da diese unnötig ist, und würde auch qx() nehmen. Den Unterschied zwischen Backticks und einem einzelnen Hochkommata ist nicht immer gut zu erkennen.

Code: (dl )

for my $line ( qx|df| ) {
   my ( $disk, $usage ) = (split /\s+/, $line)[0,4];
   print "$disk $usage\n";
}

\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de