跳转到内容

英文维基 | 中文维基 | 日文维基 | 草榴社区

PL/I

维基百科,自由的百科全书
(重定向自PLI
PL/I
编程范型过程式, 指令式, 结构化
設計者IBMSHARE英语SHARE (computing)语言发展委员会
實作者IBM
发行时间1964年,​60年前​(1964
網站www.ibm.com/products/pli-compiler-zos 編輯維基數據鏈接
衍生副語言
PL/M英语PL/M, XPL英语XPL, PL/P英语PL/P, PL/C英语PL/C, PL/S英语IBM PL/S, PL/AS英语PL/AS, PL/X英语PL/X, PL/8英语PL/8, EPL[1]
啟發語言
COBOL, Fortran, ALGOL
影響語言
SP/k英语SP/k, B语言, REXX, AS/400控制语言英语AS/400 Control Language

PL/I/p ɛl wʌn/),源自編程語言一号Programming Language One)的縮寫,一種过程式指令式程式語言。由IBM公司在1960年代发明的第三代高级编程语言,用于IBM的MVS英语MVS、或迪吉多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;

引用

[编辑]
  1. ^ R. A. Frieburghouse. The Multics PL/1 Compiler. Multicians.org. [2023-01-26]. (原始内容存档于2023-02-23). 
  2. ^ IBM Corporation. IBM Enterprise PL/I for z/OS, V5.3. IBM. [October 1, 2019]. (原始内容存档于2020-07-28). 

外部連結

[编辑]