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 (); мо $new_workbook = $new_parser->parse («/ms/user/s/sayantag/Source.xls»); мо $new_worksheet = $new_workbook->Worksheet («водители»); мо $calc = перенос; для $new_worksheet ($new_workbook->worksheets («водителей»)) { мо ($row_min, $row_max) = $new_worksheet->row_range (); мо ($col_min, $col_max) = $new_worksheet->col_range (); для моего $row ($row_min. $row_max) {for## ##First для моего $col ($col_min. $col_max) {for## ##Second мо $cell = $new_worksheet->get_cell ($row, $col); если ($col==0 && $row! =0 && ($new_worksheet->get_cell ($row, 0) - >value =~/) ($calc/)) { $col++; мо $serv = $new_worksheet->get_cell ($row, $col) - >value; печать «\ имя пользователя nPls к серверу: $serv \ n»; $col++; мо $path = $new_worksheet->get_cell ($row, $col) - >value; мо $path1 = $serv. $path; chdir ($path1); $col++; мо $cmd = $new_worksheet->get_cell ($row, $col) - >value; ``$cmd; } } } }
1:
мо $new_worksheet = $new_workbook->Worksheets («водители»);