diff options
Diffstat (limited to 'ruby_1_8_6/ext/pty/expect_sample.rb')
-rw-r--r-- | ruby_1_8_6/ext/pty/expect_sample.rb | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/ruby_1_8_6/ext/pty/expect_sample.rb b/ruby_1_8_6/ext/pty/expect_sample.rb new file mode 100644 index 0000000000..bf8a2352fe --- /dev/null +++ b/ruby_1_8_6/ext/pty/expect_sample.rb @@ -0,0 +1,55 @@ +# +# sample program of expect.rb +# +# by A. Ito +# +# This program reports the latest version of ruby interpreter +# by connecting to ftp server at ruby-lang.org. +# +require 'pty' +require 'expect' + +fnames = [] +PTY.spawn("ftp ftp.ruby-lang.org") do |r_f,w_f,pid| + w_f.sync = true + + $expect_verbose = false + + 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("> ") do + w_f.print "cd pub/ruby\n" + end + r_f.expect("> ") do + w_f.print "dir\n" + end + + r_f.expect("> ") 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" |