Zeile 100 an Zeile 1 anfügen,...

Hallo Leute,
ich bin gerade in der Abteilung Netzwerk in meiner Ausbildung.
Ich komme leider gerade beim Programmieren in Perl nicht weiter.

Ich habe den Befehl esxtop (ESX Server) in eine Datei geschrieben.
Das blöde an dieser Sache ist nur:
Mein Dokument hat 3575 Zeilen.
Die hälfte davon ist die Bezeichnung die andere die Werte dazu.

Network Port
Memory
.
.
.
(leerzeile)
"0.25"
"100"
.
.
.

Ich habe die Zeilennummern.
Nun möchte ich die Zeile 1789 an Zeile 1 anfügen (Network Port = "0.25")
und dann 1790 an Zeile 2, usw.

Die Daten stehen in $output.

Kann mir jemand einen Tipp geben.
Bin über jede hilfe dankbar.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 99435

Url: https://administrator.de/forum/zeile-100-an-zeile-1-anfuegen-99435.html

Ausgedruckt am: 23.12.2024 um 05:12 Uhr

3 Kommentare

Neuester Kommentar

Ich habe jetz es so versucht:

while (<in>)
{
if ($. eq $anzahl_wert)
{

schreibe Wert nach Bezeichung

#while (<in>)
#{

if ($. eq $anzahl_bez)
{
print $_;
}

#}
print $_;
last;
}
}
Mein Problem ist jetzt, ich habe den Wert zwar muss ihn aber noch Bezeichnung schreiben.
Das mit der while-Schleife in der Schleife funktioniert nicht.

Hat jemand eine Idee?

Hallo,

ich kann dir nur die Lösung für Arme-Leute-Perl (PHP) sagen (ungetestet):

<?php

	$fileArray = file('---'); //Liest jede Zeile in ein Array  
	
	foreach ($fileArray as $lineNum => $line) {
		if(trim($line) == '') {  
			$splitterLine = $lineNum;
			break;
		}
	}
	
	$keys = array_slice($fileArray,0,$splitterLine-1); //Ein Array nur mit den Keys
	$values = array_slice($fileArray,$splitterLine+1); //Ein Array mit den Werten
	
	$data = array();
	for ($i=0; $i < count($keys); $i++) { 
		$data[trim($keys[$i])] = trim($values[$i]);
	}

?>

Vielleicht bringt dich das ja auf eine Idee