Vraag : Een probleem van de perlspreadsheet--het lezen van een specifiek lusje

Hallo, heeft

I een probleem. Ik wil van het Lusje van „Bestuurders“ slechts voor het volgende aantekenvel lezen Source.xls. Hoe doe ik dat?

For de volgende code, het van het lusje „Calc“ en vandaar druk - uit waarde $serv als 10040 wordt gelezen. In plaats daarvan zou het naar het lusje van Bestuurders moeten gaan en de waarde uitprinten $serv aangezien dd761c13n1

Where I die ben verkeerd gaan?

Is deze correcte taak?

my $new_worksheet = $new_workbook->Worksheet („Drivers“);
" codeBody " 
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:
33:
34:
35:
36:
37:
38:
39:
40:
41:

#! /usr/bin/perl5.10 - w



gebruiks waarschuwingen;
gebruiks Spreadsheet:: WriteExcel:: Groot;
gebruiks Spreadsheet:: ParseExcel;
strikt gebruik;
gebruik IO:: Scalair;
gebruiks Gegevens:: Kipwagen;

mijn $new_parser = Spreadsheet:: ParseExcel->new ();
mijn $new_workbook = $new_parser->parse („/ms/user/s/sayantag/Source.xls“);
mijn $new_worksheet = $new_workbook->Worksheet („Bestuurders“);

mijn $calc = verschuiving;

voor $new_worksheet ($new_workbook->worksheets („Bestuurders“)) {
mijn ($row_min, $row_max) = $new_worksheet->row_range ();
mijn ($col_min, $col_max) = $new_worksheet->col_range ();

 voor mijn $row ($row_min. $row_max) {##First for##
 voor mijn $col ($col_min. $col_max) {##Second for##
   mijn $cell = $new_worksheet->get_cell ($row, $col);
     als ($col==0 && $row! =0 && ($new_worksheet->get_cell ($row, 0) - >value =~/($calc)/))  {
       $col++;
       mijn $serv = $new_worksheet->get_cell ($row, $col) - >value;
       druk „\ nPls login aan de server: $serv \ n“;
       $col++;
       mijn $path = $new_worksheet->get_cell ($row, $col) - >value;
       mijn $path1 = $serv. $path;
       chdir ($path1);
       $col++;
       mijn $cmd = $new_worksheet->get_cell ($row, $col) - >value;

`$cmd `;       

      }
     }
    }
  }
Attachments:
van
Source.xls (13 KB) The in bijlage om read.
te zijn

Antwoord : Een probleem van de perlspreadsheet--het lezen van een specifiek lusje

Lijn 14 zou de volgende moeten zijn. Ik heb niet perl voor dit vóór gebruikt en de plaats van IBM van verwijzingen voorzien.

http://www.ibm.com/developerworks/linux/library/l-pexcel/index.html

1:

mijn $new_worksheet = $new_workbook->Worksheets („Bestuurders“);
Andere oplossingen  
 
programming4us programming4us