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:
new (); mio $new_workbook = $new_parser->parse (“/ms/user/s/sayantag/Source.xls„); mio $new_worksheet = $new_workbook->Worksheet (“driver„); mio $calc = spostamento; per $new_worksheet ($new_workbook->worksheets (“driver„)) { mio ($row_min, $row_max) = $new_worksheet->row_range (); mio ($col_min, $col_max) = $new_worksheet->col_range (); per il mio $row ($row_min. $row_max) {for## del ##First per il mio $col ($col_min. $col_max) {for## del ##Second mio $cell = $new_worksheet->get_cell ($row, $col); se ($col==0 && $row! =0 && ($new_worksheet->get_cell ($row, 0) - >value =~/)/) (di $calc) { $col++; mio $serv = $new_worksheet->get_cell ($row, $col) - >value; stampa “\ inizio attività dei nPls all'assistente: $serv \ n„; $col++; mio $path = $new_worksheet->get_cell ($row, $col) - >value; mio $path1 = $serv. $path; chdir ($path1); $col++; mio $cmd = $new_worksheet->get_cell ($row, $col) - >value; `del `$cmd; } } } }
1:
mio $new_worksheet = $new_workbook->Worksheets (“driver„);