in reply to Need alarm while getting error on SFTP

Instead of die_on_error, check for the error yourself: 
my $sftp = Net::SFTP::Foreign->new($host, password => $password);
if ($sftp->error) {
   # Send the email.
}

[download]

If you also need help sending email from Perl, see Task::Kensho::Email. 

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

Replies are listed 'Best First'.
Re^2: Need alarm while getting error on SFTP
by ravi45722 (Pilgrim) on Dec 03, 2015 at 08:45 UTC

    Thanks. It's working. I searched the manual pages pages for Timeout conditions while doing sftp. but I dont get any. How to give timeout condition in this module like below??

     $ftp=Net::FTP->new($primary_ip,Timeout=>120) or $connect_err=1;
[reply]
[d/l]
      Next time, try searching the documentation of the module you're actually using: Net::SFTP::Foreign:
      timeout => $seconds

      when this parameter is set, the connection is dropped if no data arrives on the SSH socket for the given time while waiting for some command to complete.

      When the timeout expires, the current method is aborted and the SFTP connection becomes invalid.

      Note that the given value is used internally to time out low level operations. The high level operations available through the API may take longer to expire (sometimes up to 4 times longer). 

      ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

      [download]
[reply]
[d/l]
[select]

        I am trying to get the list of remote server folder. For that I am using

         my $ls = $sftp->ls('/root/sanjay/');

        But its printing all the files including .*.swp files. So I tried to filter on ".c" files & tried like this

         my $ls = $sftp->ls('/root/sanjay/*.c');

        But not succeeded. How to get on ".c" files through that ???

[reply]
[d/l]
[select]

        Thanks for reply.

        How to give timeout condition in this module like below??

        I know that is a other module. I showing that just as an example for timeout condition. That's why i mentioned In this module like below

[reply]

In Section Seekers of Perl Wisdom