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.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 99435
Url: https://administrator.de/contentid/99435
Printed on: April 19, 2024 at 05:04 o'clock
3 Comments
Latest comment
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++;
}
