expect脚本能接受管道传递的参数吗？

FunBSD

expect脚本能接受管道传递的参数吗？
比如：
echo "v1 v2 v3" | script.exp
或
cat file.txt | script.exp

script.exp脚本想实现类似下面的功能：
while read v1 v2 v3
do
...
done

FunBSD

好吧，论坛人气真得不行了。我自己来解答吧。
为了学个expect，连tcl一块学了。

从标准输入(STDIN)、文件(File)、SHELL读取内容的脚本。
测试方法：

1. cat file.txt | expect -d script.exp
   
2. 或
   
3. echo -e "1 2 3 4\ra b c d" | expect -d script.exp
   

复制代码

脚本代码：

1. #!/usr/bin/expect -f
   
2. 
   
3. puts "从标准输入(STDIN)读取内容"
   
4. set number 0
   
5. while { [gets stdin line] >= 0 } {
   
6.   incr number
   
7.   puts "Line $number: $line"
   
8.   puts "Line $number: [lindex $line 0],[lindex $line 1],[lindex $line 2]"
   
9. }
   
10. puts "STDIN line number: $number"
    
11. puts "--------------------------"
    
12. 
    
13. puts "从文件(File)读取内容"
    
14. set number 0
    
15. set file [open ./file.txt r]
    
16. while { [gets $file line] >= 0 } {
    
17.   incr number
    
18.   puts "Line $number: $line"
    
19.   puts "Line $number: [lindex $line 0],[lindex $line 1],[lindex $line 2]"
    
20. }
    
21. puts "File line number: $number"
    
22. puts "--------------------------"
    
23. close $file
    
24. 
    
25. puts "从文件(File)读取内容，输出时比实际多1行"
    
26. set number 0
    
27. set file [open ./file.txt r]
    
28. foreach line [ split [read $file] "\n" ] {
    
29.   incr number
    
30.   puts "Line $number: $line"
    
31.   puts "Line $number: [lindex $line 0],[lindex $line 1],[lindex $line 2]"
    
32.   foreach word [ regexp -all -inline {\S+} $line ] {
    
33.     puts "$word"
    
34.   }
    
35. }
    
36. puts "File line number: $number"
    
37. puts "--------------------------"
    
38. close $file
    
39. 
    
40. puts "从文件(File)读取内容，输出时比实际多1行"
    
41. set file [open ./file.txt r]
    
42. while { ![eof $file] } {
    
43.   set buffer [read $file 100000]
    
44.   puts "$buffer"
    
45. }
    
46. puts "--------------------------"
    
47. close $file
    
48. 
    
49. #puts "从相同后缀的文件读取内容"
    
50. #foreach filename [glob *.txt] {
    
51. #  set file [open $filenamel
    
52. #  #...
    
53. #  close $file
    
54. #}
    
55. 
    
56. #puts "从SHELL读取内容"
    
57. #set file [open {| find ./ -type f | xargs grep "content"} r]
    
58. #set file [open "| find ./ -type f | xargs grep \"content\"" r]
    
59. 
    

复制代码

FunBSD

补充：

line切分成word：
foreach word $line { ... }    #不能有特殊字符
foreach word [ lrange $line 0 end ] { ... }    #不能有特殊字符
foreach word [ lsearch -inline -all $line * ] { ... }    #不能有特殊字符
foreach word [ regexp -all -inline {\S+} $line ] { ... }    #可以有持特殊字符

waker

建议试试 expect_user

FunBSD

回复 4# waker

给个例子，谢谢。

FunBSD

找到方法。

1. #!/usr/bin/expect -f
   
2. 
   
3. send_user "Input Line: "
   
4. expect_user -re "(.*)\n"
   
5. set value $expect_out(1,string)
   
6. puts "$value\r"
   

复制代码