Pytanie : Perl spreadsheet problem--od odmianowy zakładka

Cześć,

I mieć problem. I chcieć od the "Kierowca" Zakładka tylko dla the następujący Source.xls worksheet. Dlaczego I robić to?

For the następujący kod, ono czytać od the "Calc" zakładka i hence - następujący $serv wartość jako 10040. Zamiast ono musieć the Kierowca zakładka i druk zamiast the $serv wartość gdy dd761c13n1

Where być I źle?

Is ten przydział poprawny?

my $new_worksheet = $new_workbook->Worksheet ("Drivers"); 
(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



używać ostrzeżenie;
use Spreadsheet:: WriteExcel:: Duży;
use Spreadsheet:: ParseExcel;
używać surowy;
use IO:: Skalar;
use Dane:: Dumper;

mój $new_parser = Spreadsheet:: ParseExcel->new ();
mój $new_workbook = $new_parser->parse ("/ms/user/s/sayantag/Source.xls");
mój $new_worksheet = $new_workbook->Worksheet ("Kierowca");

mój $calc = przesunięcie;

dla $new_worksheet ($new_workbook->worksheets ("Kierowca")) {
mój ($row_min, $row_max) = $new_worksheet->row_range ();
mój ($col_min, $col_max) = $new_worksheet->col_range ();

 dla mój $row ($row_min. $row_max) {##First for##
 dla mój $col ($col_min. $col_max) {##Second for##
   mój $cell = $new_worksheet->get_cell ($row, $col);
     jeżeli ($col==0 && $row! =0 && ($new_worksheet->get_cell ($row, (0)) - >value =~/($calc)/))  {
       $col++;
       mój $serv = $new_worksheet->get_cell ($row, $col) - >value;
       druk "\ nPls nazwa użytkownika the serwer: $serv \ n";
       $col++;
       mój $path = $new_worksheet->get_cell ($row, $col) - >value;
       mój $path1 = $serv. $path;
       chdir ($path1);
       $col++;
       mój $cmd = $new_worksheet->get_cell ($row, $col) - >value;

`$cmd `;       

      }
     }
    }
  }
Attachments:
Source.xls (13 KB) (Kartoteka Typ Szczegół)
The dołączać spreadsheet read.

Odpowiedź : Perl spreadsheet problem--od odmianowy zakładka

Linia 14 musieć the następujący. I biedak używać perl dla to przedtem i odnosić się the IBM miejsce.

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

(1):

mój $new_worksheet = $new_workbook->Worksheets ("Kierowca");
Inne rozwiązania  
 
programming4us programming4us