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 (); mi $new_workbook = $new_parser->parse (“/ms/user/s/sayantag/Source.xls”); mi $new_worksheet = $new_workbook->Worksheet (“conductores”); mi $calc = cambio; para $new_worksheet ($new_workbook->worksheets (“conductores”)) { mi ($row_min, $row_max) = $new_worksheet->row_range (); mi ($col_min, $col_max) = $new_worksheet->col_range (); para mi $row ($row_min. $row_max) {for## del ##First para mi $col ($col_min. $col_max) {for## del ##Second mi $cell = $new_worksheet->get_cell ($row, $col); ¡si ($col==0 && $row! =0 && ($new_worksheet->get_cell ($row, 0) - >value =~/()/) de $calc) { $col++; mi $serv = $new_worksheet->get_cell ($row, $col) - >value; impresión “\ conexión de los nPls al servidor: $serv \ n”; $col++; mi $path = $new_worksheet->get_cell ($row, $col) - >value; mi $path1 = $serv. $path; chdir ($path1); $col++; mi $cmd = $new_worksheet->get_cell ($row, $col) - >value; `del `$cmd; } } } }
1:
mi $new_worksheet = $new_workbook->Worksheets (“conductores”);