Вопрос : Нужно повторить через все архивы в dir в perl и скопировать их в другом месте

Hi, чтение

I am через лист первенствовать, выбирающ вне положение unix, идущ там и после этого пытающся для того чтобы скопировать все архивы .txt от там в другого уровня up.

I am директории одного получая эту ошибку. Pls help.

-------------------------------------------

Use uninitialized значения в конкатенации (.) или шнур на Copy_Baseline.pl на заявлении line.
/ms/user/s/sayantag/Baseline/
glob-------------------------------------------


 class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
42:
># " class= " id= " codeSnippet828348 
new ();
мо $new_workbook = $new_parser->parse (CFP. «Source.xls»);
мое $new_worksheet;

мо $curr_etl = «wf_OTC_Taxlots_Open»;


для $new_worksheet ($new_workbook->worksheets ()) {
затем если eq «WF» $new_worksheet-> {названное};
#print «xyb»;
мо ($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, $col) - eq «$curr_etl» >value))  {
       мо $wf_loc = $new_worksheet->get_cell ($row, $col+2) - >value;

       chdir ($wf_loc) или умирает «$! »;
       печать «$wf_loc»;

       мои @delta_files = glob «$ARGV [0] *.txt»;

       foreach мое $txt_file (@delta_files) {
         `cp $txt_file ../Delta_ETL/ `;
           }
         }
       }
     }
   }
class=

Ответ : Нужно повторить через все архивы в dir в perl и скопировать их в другом месте

Я изменены для того чтобы сопрягать ваши уточнения вы вывесили пока я писал то…
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:
42:
43:
44:

#! /usr/bin/perl5.10

# - w резервн с предупреждениями пользы
используйте предупреждения;
электронная таблица пользы:: WriteExcel:: Больш;
электронная таблица пользы:: ParseExcel;
используйте только;
польза IO:: Скалярно;
данные по пользы:: Dumper;
архив пользы:: Скопируйте qw (cp);

мо CFP = «/ms/user/s/sayantag/»;
мо $new_parser   = электронная таблица:: ParseExcel->new ();
мо $new_workbook = $new_parser->parse (CFP. «Source.xls»);

мо $curr_etl = «wf_OTC_Taxlots_Open»;
мо $wf_name = substr $curr_etl, 3;
напечатайте «имя потока операций будет $wf_name \ n»;

для  моего $new_worksheet ($new_workbook->worksheets ()) {
    затем если eq «WF» $new_worksheet-> {названное};
    #print «xyb»;
    мо ($row_min, $row_max) = $new_worksheet->row_range ();
    мо ($col_min, $col_max) = $new_worksheet->col_range ();

    для моего $row ($row_min. $row_max) {for## ##First
        мо $cell = $new_worksheet->get_cell ($row, 0);
        если (определенное eq $curr_etl $cell и $cell->value)  {, то
            мо >value $wf_loc = $new_worksheet->get_cell ($row, 2) -;

            печать «$wf_loc»;

            opendir DIR, $wf_loc
                или умрите «не smogл раскрыть $wf_loc: $! »;
            мои @delta_files = grep m {_Baseline ^delta_$ {wf_name} \ .txt$}, readdir DIR;
            closedir DIR;

            foreach мое $txt_file (@delta_files) {
                cp «$wf_loc/$txt_file» «$wf_loc/. /Delta_ETL/$txt_file»
                    или умрите «не smogл cp $wf_loc/$txt_file: $! »;
            }
        }
    }
}
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us