📂 Advanced File Manager
Multi-Root Navigation System
⚡ Quick Jump
Server (/)
Home (/home)
Var_www (/var/www)
Current (/home4/shelley/public_html/shelleycutler.com/wp-content/mu-plugins)
📍 Go
⬆ Ke Atas
🏠 Root Server
🏠 Root App
🔄 Refresh
📀 /
›
usr
›
share
›
doc
›
perl-Expect
›
📁 examples
📍
Lokasi:
/usr/share/doc/perl-Expect/examples
💾
Free:
45.9 GB
⚠️ Direktori ini
tidak writable
.
✏️ Mengedit: ssh.pl
#!/usr/bin/perl # # A Simple Terminal Resizing Example # (C) 2006 Jeff Carr # This script can be used under the same terms as Perl. # # This script is a simple example of how handle terminal # window resize events (transmitted via the WINCH signal) # -- Jeff Carr <jcarr@linuxmachines.com> # # NOTE: I (the Expect maintainer) strongly object against using Expect # to automate ssh login. There are better methods, see ssh-keygen. # If you use this example as a stub to control a remote application, # please remove the password-part and use public-key authentication # instead. # -- Roland Giersig <RGiersig@cpan.org> # if( ! defined $ARGV[0] ) { print "Usage: ssh.pl <host> [ <username> [ <password> ] ]\n"; exit; } my ($host, $username, $password) = @ARGV; $username = $ENV{USER} if $username eq ""; use Expect; use IO::Pty; my $spawn = new Expect; $spawn->raw_pty(1); # This gets the size of your terminal window $spawn->slave->clone_winsize_from(\*STDIN); my $PROMPT; # This function traps WINCH signals and passes them on sub winch { my $signame = shift; my $pid = $spawn->pid; $shucks++; print "count $shucks,pid $pid, SIG$signame\n"; $spawn->slave->clone_winsize_from(\*STDIN); kill WINCH => $spawn->pid if $spawn->pid; } $SIG{WINCH} = \&winch; # best strategy $spawn=Expect->spawn("ssh $username\@$host"); # log everything if you want # $spawn->log_file("/tmp/autossh.log.$$"); my $PROMPT = '[\]\$\>\#]\s$'; my $ret = $spawn->expect(10, [ qr/\(yes\/no\)\?\s*$/ => sub { $spawn->send("yes\n"); exp_continue; } ], [ qr/assword:\s*$/ => sub { $spawn->send("$password\n") if defined $password; } ], [ qr/ogin:\s*$/ => sub { $spawn->send("$username\n"); exp_continue; } ], [ qr/REMOTE HOST IDEN/ => sub { print "FIX: .ssh/known_hosts\n"; exp_continue; } ], [ qr/$PROMPT/ => sub { $spawn->send("echo Now try window resizing\n"); } ], ); # Hand over control $spawn->interact(); exit;
💾 Simpan Perubahan
❌ Batal
📤 Upload
📁 Buat Folder
Nama
Ukuran
Dimodifikasi
Permission
Aksi
📁 kibitz
-
2026-03-23 07:16
0755
✍️
🗑️
📎
calc.pl
141 B
2017-05-15 15:55
0644
✏️ Edit
⬇
✍️
🗑️
📎
expect_calc.pl
470 B
2017-05-15 15:55
0644
✏️ Edit
⬇
✍️
🗑️
📎
ssh.pl
1.9 KB
2017-05-15 15:55
0644
✏️ Edit
⬇
✍️
🗑️
✍️ Rename:
Nama Baru:
Batal
💾 Simpan