diff options
Diffstat (limited to 'ext/pty/expect_sample.rb')
-rw-r--r-- | ext/pty/expect_sample.rb | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/ext/pty/expect_sample.rb b/ext/pty/expect_sample.rb new file mode 100644 index 0000000000..1311476c5d --- /dev/null +++ b/ext/pty/expect_sample.rb @@ -0,0 +1,56 @@ +# +# sample program of expect.rb +# +# by A. Ito +# +# This program reports the latest version of ruby interpreter +# by connecting to ftp server at netlab.co.jp. +# +require 'pty' +require 'expect' + +fnames = [] +PTY.spawn("ftp ftp.netlab.co.jp") do + |r_f,w_f,pid| + w_f.sync = true + + $expect_verbose = true + + r_f.expect(/^Name.*: /) do + w_f.print "ftp\n" + end + + if !ENV['USER'].nil? + username = ENV['USER'] + elsif !ENV['LOGNAME'].nil? + username = ENV['LOGNAME'] + else + username = 'guest' + end + + r_f.expect('word:') do + w_f.print username+"@\n" + end + r_f.expect("ftp> ") do + w_f.print "cd pub/lang/ruby\n" + end + r_f.expect("ftp> ") do + w_f.print "dir\n" + end + + r_f.expect("ftp> ") do |output| + for x in output[0].split("\n") + if x =~ /(ruby.*\.tar\.gz)/ then + fnames.push $1 + end + end + end + begin + w_f.print "quit\n" + rescue + end +end + +print "The latest ruby interpreter is " +print fnames.sort.pop +print "\n" |