Rexx 编程/示例代码

Hello World

代码：Say "Hello World"

输出Hello World

Uniq

用法：uniq < filename or cat filename | uniq

显示茎变量可以按字符串索引

以及数字。我将其用作改进版的

unix 'uniq' 程序。

代码

/* 只显示整个文件中的每行的一个副本 */

seen. = 0 /* 茎变量 */

Do While Lines() > 0 /* 读取输入行，直到没有更多 */

Parse Pull this_line /* 获取一行 */

  If seen.this_line Then Iterate /* 使用该行作为索引，如果看到（值为 1），则循环获取下一行 */

  Say this_line /* 如果它是一行以前未见过的行，则表明我们现在已经看到了它 */

end