PL/I

PL/I(),源自編程語言一号()的縮寫,一種过程式、指令式程式語言。由IBM公司在1960年代发明的第三代高级编程语言,用于IBM的、或迪吉多的VAX/VMS等操作系统中。
在系统软件,图像,仿真,文字处理,网络,商业软件等领域均可应用。

样例代码
Hello world程序
Hello2: proc options(main);
put list ('Hello, world!');
end Hello2;

查找字符串
/* Read in a line, which contains a string,
/ and then print every subsequent line that contains that string. /

find_strings: procedure options (main);
declare pattern character (100) varying;
declare line character (100) varying;
declare line_no fixed binary;

on endfile (sysin) stop;

get edit (pattern) (L);
line_no = 1;
do forever;
get edit (line) (L);
if index(line, pattern) > 0 then
put skip list (line_no, line);
line_no = line_no + 1;
end;

end find_strings;

引用
外部連結

评论 (0)

  • 还没有评论,来抢沙发吧。