3
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.
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.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 99435
Url: https://administrator.de/contentid/99435
Ausgedruckt am: 16.11.2024 um 11:11 Uhr
3 Kommentare
Neuester Kommentar
Ich habe jetz es so versucht:
while (<in>)
{
if ($. eq $anzahl_wert)
{
#while (<in>)
#{
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?
{
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):
Vielleicht bringt dich das ja auf eine Idee
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]);
}
?>
Meine Lösung:
foreach (@Lines)
{
foreach (@Lines)
{
- Bezeichung 1-1787
- Wert 1789-3575
{
push(@bez, $_);
$Zeile_bez++;
}
{
$bez[$zeile] =~ s/\n//g;
print ESXTOP $bez[$zeile];
print ESXTOP " = ";
print ESXTOP $_;
close(ESXTOP);
$zeile++;
$Zeile_wert++;
}
$zahl++;
}
