VPF::Можно ли обойтись вез временного файла

o6s

Дата 2.12.2008, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 28.8.2008

Репутация: нет
Всего: нет

Код


  1 #!/usr/bin/perl
  2 
  3 use strict;
  4 use warnings;
  5 use Net::SFTP::Foreign;
  6 use IO::Pty;
  7 use Expect;
  8 open (DATAIN, ">/usr/perl/DATA/temp");
  9 my $host = '10.10.1.128';
 10 my %args = (
 11 user => '***',
 12 password => '***');
 13 
 14 my $sftp = Net::SFTP::Foreign->new($host,%args);
 15 $sftp->get ("/usr/perl/DATA/data", "/usr/perl/data");
 16 my $ls=$sftp->ls('/usr/perl/DATA/archive/',wanted => qr/data/i)
 17     or die "unable to find directory: ".$sftp->error;
 18     print FILEIN "$_->{filename}\n" for (@$ls);
 19 close(DATAIN);

Собственно сабж.Можно ли вместо этих строчек
8 open (DATAIN, ">/usr/perl/DATA/temp")
18 print DATAIN "$_->{filename}\n" for (@$ls);)
строчек как-нить ещё преобразовать вывод, что бы в дальнейшем его использовать в переменных ?

Добавлено через 2 минуты и 32 секунды
В строка 18 конечно же DATAIN

ginnie

Дата 2.12.2008, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 6
Всего: 49

o6s, можно smile

P.S. Вы получаете результат в виде ссылки на массив $ls. Делайте с ним все, что Вам нужно.

Это сообщение отредактировал(а) ginnie - 2.12.2008, 22:44

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »