D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
share
/
doc
/
perl-Expect
/
examples
/
Filename :
expect_calc.pl
back
Copy
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;
Name
Size
Last Modified
Owner
Permissions
Actions
kibitz
Dir
July 28 2023 3:19:38
root
0755
calc.pl
0.138
KB
May 15 2017 3:55:28
root
0644
expect_calc.pl
0.459
KB
May 15 2017 3:55:28
root
0644
ssh.pl
1.887
KB
May 15 2017 3:55:28
root
0644
2017 © D7net | D704T team