Frage : Ein Perl-Verteilungsbogenproblem--Ablesen von einem spezifischen Vorsprung

Hallo, haben

I ein Problem. Ich möchte vom „Fahrer-“ Vorsprung nur für das folgende Source.xls Arbeitsblatt lesen. Wie tue ich den?

For der folgende Code, gelesen es vom „Calc-“ Vorsprung und folglich ausdruckenden vom $serv Wert als 10040. Stattdessen sollte es zu den Fahrern Vorsprung und Druck herausgehen der $serv Wert, da dd761c13n1

Where ich falsch gehend sind?

Is diese Anweisung korrekt?

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:
6:
37:
38:
39:
40:
41:

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



Warnungen verwenden;
Gebrauch Verteilungsbogen:: WriteExcel:: Groß;
Gebrauch Verteilungsbogen:: ParseExcel;
strenges verwenden;
Gebrauch IO:: Skalar;
Gebrauch Daten:: Kipper;

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

mein $calc = Verschiebung;

für $new_worksheet ($new_workbook->worksheets („Fahrer“)) {
mein ($row_min, $row_max) = $new_worksheet->row_range ();
mein ($col_min, $col_max) = $new_worksheet->col_range ();

 für mein $row ($row_min. $row_max) {##First for##
 für mein $col ($col_min. $col_max) {##Second for##
   mein $cell = $new_worksheet->get_cell ($row, $col);
     wenn ($col==0 && $row! =0 && ($new_worksheet->get_cell ($row, 0) - >value =~/($calc)/))  {
       $col++;
       mein $serv = $new_worksheet->get_cell ($row, $col) - >value;
       Druck „\ nPls LOGON zum Bediener: $serv \ n“;
       $col++;
       mein $path = $new_worksheet->get_cell ($row, $col) - >value;
       mein $path1 = $serv. $path;
       chdir ($path1);
       $col++;
       mein $cmd = $new_worksheet->get_cell ($row, $col) - >value;

`$cmd `;       

      }
     }
    }
  }
Attachments:
Source.xls (13 KBs) (Akten-Art Details)
The, zum read.
zu sein

Antwort : Ein Perl-Verteilungsbogenproblem--Ablesen von einem spezifischen Vorsprung

Linie 14 sollte die folgenden sein. Ich benutzt Perl nicht für dieses vorher und bezogen den IBM-Aufstellungsort.

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

1:

mein $new_worksheet = $new_workbook->Worksheets („Fahrer“);
Weitere Lösungen  
 
programming4us programming4us