Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Можно ли обойтись вез временного файла

Автор: o6s 2.12.2008, 21:51

Код


  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

o6s, можно smile

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