1 | my $i=98;
|
---|
2 | my $counter=1;
|
---|
3 | my @serial;
|
---|
4 | for ($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 | }
|
---|