Ticket #240: smartctl_sas.pl

File smartctl_sas.pl, 754 bytes (added by acasis, 10 years ago)
Line 
1my $i=98;
2my $counter=1;
3my @serial;
4for ($i=98; $i<123; $i++) {
5        $counter=1;
6        system "smartctl.exe -a sd".chr($i)." >>temp.txt";
7        if (open(temp, "temp.txt")) {
8                while ( my $line = <temp> ) {
9                        if ($counter == 10) {
10                                @serial = split( / / , $line ); 
11                                chomp(@serial);
12                                print "Serial: ".$serial[9]."\n";
13                                last;
14                        }
15                        else {
16                                $counter++;
17                        }
18                }
19                if ($counter < 10) {
20                        print "No drive found.\n";
21                }
22                else {
23                        #print $serial[7]."/".$serial[8]."/".$serial[9]."/".$serial[10]."/".$serial[11]."/".$serial[12]."/".$serial[13]."/".$serial[14]."/".$serila[15]."\n";
24                        system "copy temp.txt ".$serial[9].".txt";;
25                }
26                close(temp);
27                system "del temp.txt";
28        }
29        else {
30                print "Invalid command.\n"
31        }
32       
33       
34}