Opened by nikster77 at 2006-05-02 20:14
User since
2006-02-08
26 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-02-08
26 Artikel
BenutzerIn
Hmm... ja, das ist auch ganz gut, vor allem wie schnell das bei dir ging :>
(Ich bin schlecht..., Ich bin schlecht..., einfach schlecht in Perl.)
Aber leider gibt mir print @info; folgendes aus:
# autogenerated /etc/raidtab by YaST2raiddev /dev/md0raiddev /dev/md1raiddev /dev/md2raiddev /dev/md3raiddev /dev/md4
es sind zwar, wie es scheint, die schluessel richtig, nicht aber die werte dahinter, leider verstehe ich noch nicht ganz was das Programm tut, doch es ist (fuer den Wissenden) sicherlich leicht abzuaendern.
Danke auf jeden Fall schonmal fuer die Hilfe, das bringt mich bestimmt ein grosses Stueck weiter wenn ich etwas darueber "meditiert" habe :)
Waehrend ich auf deine (sehr schnelle) Antwort gewartet habe, habe ich einen neuen Ansatz versucht und es waere nett wenn du den vielleicht auch nocheinmal anschauen koenntest.
Wie du siehst, habe ich hier das File bereits am Anfang in zwei Arrays gesplittet die auch beide genau das liefern was ich brauche:
@md_s liefert die /dev/md's
@disks liefert die platten /dev/(h|s)d[a-z]
Mein Gedanke war es jetzt beide Arrays mittels einer Schleife zu Verknuepfen und erstmal jeweils zwei Elemente aus @disks in ein eigenes Array zu kopieren.
Diese Arrays haette ich dann in @md_s referenziert.
Ungefaehr so:
@xy=($md_s[0], \@related_disks[1], usw.)
So haette ich in /proc/mdstat immer nach mdX greppen koennen und wenn etwas nicht gestimmt haette sagen koennen:
if $md_s[0] nicht OK
foreach $xy (@related_disks[1])
rebuild array (Z.B)
done;
Leider kommt perl anscheinend mit dem true nicht zurecht, ich habe auch noch kein Beispiel mit "true" gesehen...
Ausserdem passt es ihm nicht, das ich das Array in der Schleife "referenziere" (@related_disks[$o],...).
Weisst du vielleicht warum das so ist? Oder ob es bei Perl tatsaechlich kein true gibt?
Aber bis dahin habe ich die Funktionsweise deines Programms bestimmt auch schon besser verstanden.
Vielen Dank
Niels
(Ich bin schlecht..., Ich bin schlecht..., einfach schlecht in Perl.)
Aber leider gibt mir print @info; folgendes aus:
# autogenerated /etc/raidtab by YaST2raiddev /dev/md0raiddev /dev/md1raiddev /dev/md2raiddev /dev/md3raiddev /dev/md4
es sind zwar, wie es scheint, die schluessel richtig, nicht aber die werte dahinter, leider verstehe ich noch nicht ganz was das Programm tut, doch es ist (fuer den Wissenden) sicherlich leicht abzuaendern.
Danke auf jeden Fall schonmal fuer die Hilfe, das bringt mich bestimmt ein grosses Stueck weiter wenn ich etwas darueber "meditiert" habe :)
Waehrend ich auf deine (sehr schnelle) Antwort gewartet habe, habe ich einen neuen Ansatz versucht und es waere nett wenn du den vielleicht auch nocheinmal anschauen koenntest.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
$raidtab = "/etc/raidtab";
## /etc/raidtab oeffnen und devices in temporaeres Array schreiben
open(RAIDTAB, $raidtab) || die "Unable to read from /etc/raidtab : $!";
while(<RAIDTAB>)
{
foreach $device (split(/ |raiddev|device/,$_)) {
#print $device;
if ($device =~ m/dev\/md/ig) {
push (@md_s, "$device");
}
elsif ($device =~ m/dev\/[a-z]d[a-z][0-9]/ig) {
push (@disks, "$device"); }
}
}
close (RAIDTAB);
#print @md_s; #Debug
#print @disks; #Debug
$how_many_disks_do_we_have_here = $#disks;
#print "\n$how_many_disks_do_we_have_here\n"; #Debug
for ($i=0; $i <= $how_many_disks_do_we_have_here; $i++) {
$o = $i + 2;
$temp = $disks[$i];
if ($o/2==true) {
push (@related_disks[$o], $temp, $disks[$o]);
}
}
Wie du siehst, habe ich hier das File bereits am Anfang in zwei Arrays gesplittet die auch beide genau das liefern was ich brauche:
@md_s liefert die /dev/md's
@disks liefert die platten /dev/(h|s)d[a-z]
Mein Gedanke war es jetzt beide Arrays mittels einer Schleife zu Verknuepfen und erstmal jeweils zwei Elemente aus @disks in ein eigenes Array zu kopieren.
Diese Arrays haette ich dann in @md_s referenziert.
Ungefaehr so:
@xy=($md_s[0], \@related_disks[1], usw.)
So haette ich in /proc/mdstat immer nach mdX greppen koennen und wenn etwas nicht gestimmt haette sagen koennen:
if $md_s[0] nicht OK
foreach $xy (@related_disks[1])
rebuild array (Z.B)
done;
Leider kommt perl anscheinend mit dem true nicht zurecht, ich habe auch noch kein Beispiel mit "true" gesehen...
Ausserdem passt es ihm nicht, das ich das Array in der Schleife "referenziere" (@related_disks[$o],...).
Weisst du vielleicht warum das so ist? Oder ob es bei Perl tatsaechlich kein true gibt?
Aber bis dahin habe ich die Funktionsweise deines Programms bestimmt auch schon besser verstanden.
Vielen Dank
Niels