PL/I 语言 正则表达式匹配复杂字符串的文本过滤案例

PL/I阿木 发布于 1 天前 2 次阅读

阿木博主一句话概括：PL/I语言正则表达式匹配与复杂字符串的文本过滤技术解析

阿木博主为你简单介绍：
本文将围绕PL/I语言中的正则表达式匹配功能，探讨如何使用正则表达式进行复杂字符串的文本过滤。通过实际案例，我们将深入分析正则表达式的应用，并展示如何在PL/I环境中实现高效且精确的文本过滤。

一、

随着信息技术的飞速发展，数据量呈爆炸式增长。在处理大量数据时，文本过滤成为数据处理的重要环节。PL/I（Programming Language One）作为一种历史悠久的高级程序设计语言，具有强大的数据处理能力。本文将介绍如何在PL/I中使用正则表达式进行复杂字符串的文本过滤。

二、PL/I语言中的正则表达式

PL/I语言中的正则表达式功能是通过内置的`REGEXP`函数实现的。`REGEXP`函数可以对字符串进行匹配、替换等操作。下面是`REGEXP`函数的基本语法：

pl/i
REGEXP(string, pattern, flags, result)

- `string`：待匹配的字符串。
- `pattern`：正则表达式模式。
- `flags`：匹配标志，可选参数。
- `result`：匹配结果。

三、正则表达式匹配案例

以下是一个使用PL/I语言中的正则表达式进行文本过滤的案例：

假设我们有一个包含电子邮件地址的字符串列表，我们需要从中提取出有效的电子邮件地址。

```pl/i
DATA DIVISION.
WORKING-STORAGE SECTION.
01 email-list PIC X(100) VALUE 'john.doe@example.com, jane.smith@anotherdomain.org, invalid-email, bob.jones@domain.com, invalid-email@domain'.

01 email PIC X(100).
01 pattern PIC X(100) VALUE '[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+.[A-Za-z]{2,}'.
01 result PIC X(100).

PROCEDURE DIVISION.
PERFORM VARYING email BY REFERENCE email
UNTIL email-list IS EQUAL TO SPACES
OR email-list(1:1) IS EQUAL TO ','
OR email-list(1:1) IS EQUAL TO ';'
OR email-list(1:1) IS EQUAL TO ''
OR email-list(1:1) IS EQUAL TO 'r'
OR email-list(1:1) IS EQUAL TO 't'
OR email-list(1:1) IS EQUAL TO '15'
OR email-list(1:1) IS EQUAL TO '12'
OR email-list(1:1) IS EQUAL TO '13'
OR email-list(1:1) IS EQUAL TO '14'
OR email-list(1:1) IS EQUAL TO '16'
OR email-list(1:1) IS EQUAL TO '17'
OR email-list(1:1) IS EQUAL TO '20'
OR email-list(1:1) IS EQUAL TO '21'
OR email-list(1:1) IS EQUAL TO '22'
OR email-list(1:1) IS EQUAL TO '23'
OR email-list(1:1) IS EQUAL TO '24'
OR email-list(1:1) IS EQUAL TO '25'
OR email-list(1:1) IS EQUAL TO '26'
OR email-list(1:1) IS EQUAL TO '27'
OR email-list(1:1) IS EQUAL TO '30'
OR email-list(1:1) IS EQUAL TO '31'
OR email-list(1:1) IS EQUAL TO '32'
OR email-list(1:1) IS EQUAL TO '33'
OR email-list(1:1) IS EQUAL TO '34'
OR email-list(1:1) IS EQUAL TO '35'
OR email-list(1:1) IS EQUAL TO '36'
OR email-list(1:1) IS EQUAL TO '37'
OR email-list(1:1) IS EQUAL TO '40'
OR email-list(1:1) IS EQUAL TO '41'
OR email-list(1:1) IS EQUAL TO '42'
OR email-list(1:1) IS EQUAL TO '43'
OR email-list(1:1) IS EQUAL TO '44'
OR email-list(1:1) IS EQUAL TO '45'
OR email-list(1:1) IS EQUAL TO '46'
OR email-list(1:1) IS EQUAL TO '47'
OR email-list(1:1) IS EQUAL TO '50'
OR email-list(1:1) IS EQUAL TO '51'
OR email-list(1:1) IS EQUAL TO '52'
OR email-list(1:1) IS EQUAL TO '53'
OR email-list(1:1) IS EQUAL TO '54'
OR email-list(1:1) IS EQUAL TO '55'
OR email-list(1:1) IS EQUAL TO '56'
OR email-list(1:1) IS EQUAL TO '57'
OR email-list(1:1) IS EQUAL TO '60'
OR email-list(1:1) IS EQUAL TO '61'
OR email-list(1:1) IS EQUAL TO '62'
OR email-list(1:1) IS EQUAL TO '63'
OR email-list(1:1) IS EQUAL TO '64'
OR email-list(1:1) IS EQUAL TO '65'
OR email-list(1:1) IS EQUAL TO '66'
OR email-list(1:1) IS EQUAL TO '67'
OR email-list(1:1) IS EQUAL TO '70'
OR email-list(1:1) IS EQUAL TO '71'
OR email-list(1:1) IS EQUAL TO '72'
OR email-list(1:1) IS EQUAL TO '73'
OR email-list(1:1) IS EQUAL TO '74'
OR email-list(1:1) IS EQUAL TO '75'
OR email-list(1:1) IS EQUAL TO '76'
OR email-list(1:1) IS EQUAL TO '77'
OR email-list(1:1) IS EQUAL TO '100'
OR email-list(1:1) IS EQUAL TO '101'
OR email-list(1:1) IS EQUAL TO '102'
OR email-list(1:1) IS EQUAL TO '103'
OR email-list(1:1) IS EQUAL TO '104'
OR email-list(1:1) IS EQUAL TO '105'
OR email-list(1:1) IS EQUAL TO '106'
OR email-list(1:1) IS EQUAL TO '107'
OR email-list(1:1) IS EQUAL TO '110'
OR email-list(1:1) IS EQUAL TO '111'
OR email-list(1:1) IS EQUAL TO '112'
OR email-list(1:1) IS EQUAL TO '113'
OR email-list(1:1) IS EQUAL TO '114'
OR email-list(1:1) IS EQUAL TO '115'
OR email-list(1:1) IS EQUAL TO '116'
OR email-list(1:1) IS EQUAL TO '117'
OR email-list(1:1) IS EQUAL TO '120'
OR email-list(1:1) IS EQUAL TO '121'
OR email-list(1:1) IS EQUAL TO '122'
OR email-list(1:1) IS EQUAL TO '123'
OR email-list(1:1) IS EQUAL TO '124'
OR email-list(1:1) IS EQUAL TO '125'
OR email-list(1:1) IS EQUAL TO '126'
OR email-list(1:1) IS EQUAL TO '127'
OR email-list(1:1) IS EQUAL TO '130'
OR email-list(1:1) IS EQUAL TO '131'
OR email-list(1:1) IS EQUAL TO '132'
OR email-list(1:1) IS EQUAL TO '133'
OR email-list(1:1) IS EQUAL TO '134'
OR email-list(1:1) IS EQUAL TO '135'
OR email-list(1:1) IS EQUAL TO '136'
OR email-list(1:1) IS EQUAL TO '137'
OR email-list(1:1) IS EQUAL TO '140'
OR email-list(1:1) IS EQUAL TO '141'
OR email-list(1:1) IS EQUAL TO '142'
OR email-list(1:1) IS EQUAL TO '143'
OR email-list(1:1) IS EQUAL TO '144'
OR email-list(1:1) IS EQUAL TO '145'
OR email-list(1:1) IS EQUAL TO '146'
OR email-list(1:1) IS EQUAL TO '147'
OR email-list(1:1) IS EQUAL TO '150'
OR email-list(1:1) IS EQUAL TO '151'
OR email-list(1:1) IS EQUAL TO '152'
OR email-list(1:1) IS EQUAL TO '153'
OR email-list(1:1) IS EQUAL TO '154'
OR email-list(1:1) IS EQUAL TO '155'
OR email-list(1:1) IS EQUAL TO '156'
OR email-list(1:1) IS EQUAL TO '157'
OR email-list(1:1) IS EQUAL TO '160'
OR email-list(1:1) IS EQUAL TO '161'
OR email-list(1:1) IS EQUAL TO '162'
OR email-list(1:1) IS EQUAL TO '163'
OR email-list(1:1) IS EQUAL TO '164'
OR email-list(1:1) IS EQUAL TO '165'
OR email-list(1:1) IS EQUAL TO '166'
OR email-list(1:1) IS EQUAL TO '167'
OR email-list(1:1) IS EQUAL TO '170'
OR email-list(1:1) IS EQUAL TO '171'
OR email-list(1:1) IS EQUAL TO '172'
OR email-list(1:1) IS EQUAL TO '173'
OR email-list(1:1) IS EQUAL TO '174'
OR email-list(1:1) IS EQUAL TO '175'
OR email-list(1:1) IS EQUAL TO '176'
OR email-list(1:1) IS EQUAL TO '177'
OR email-list(1:1) IS EQUAL TO '200'
OR email-list(1:1) IS EQUAL TO '201'
OR email-list(1:1) IS EQUAL TO '202'
OR email-list(1:1) IS EQUAL TO '203'
OR email-list(1:1) IS EQUAL TO '204'
OR email-list(1:1) IS EQUAL TO '205'
OR email-list(1:1) IS EQUAL TO '206'
OR email-list(1:1) IS EQUAL TO '207'
OR email-list(1:1) IS EQUAL TO '210'
OR email-list(1:1) IS EQUAL TO '211'
OR email-list(1:1) IS EQUAL TO '212'
OR email-list(1:1) IS EQUAL TO '213'
OR email-list(1:1) IS EQUAL TO '214'
OR email-list(1:1) IS EQUAL TO '215'
OR email-list(1:1) IS EQUAL TO '216'
OR email-list(1:1) IS EQUAL TO '217'
OR email-list(1:1) IS EQUAL TO '220'
OR email-list(1:1) IS EQUAL TO '221'
OR email-list(1:1) IS EQUAL TO '222'
OR email-list(1:1) IS EQUAL TO '223'
OR email-list(1:1) IS EQUAL TO '224'
OR email-list(1:1) IS EQUAL TO '225'
OR email-list(1:1) IS EQUAL TO '226'
OR email-list(1:1) IS EQUAL TO '227'
OR email-list(1:1) IS EQUAL TO '230'
OR email-list(1:1) IS EQUAL TO '231'
OR email-list(1:1) IS EQUAL TO '232'
OR email-list(1:1) IS EQUAL TO '233'
OR email-list(1:1) IS EQUAL TO '234'
OR email-list(1:1) IS EQUAL TO '235'
OR email-list(1:1) IS EQUAL TO '236'
OR email-list(1:1) IS EQUAL TO '237'
OR email-list(1:1) IS EQUAL TO '240'
OR email-list(1:1) IS EQUAL TO '241'
OR email-list(1:1) IS EQUAL TO '242'
OR email-list(1:1) IS EQUAL TO '243'
OR email-list(1:1) IS EQUAL TO '244'
OR email-list(1:1) IS EQUAL TO '245'
OR email-list(1:1) IS EQUAL TO '246'
OR email-list(1:1) IS EQUAL TO '247'
OR email-list(1:1) IS EQUAL TO '250'
OR email-list(1:1) IS EQUAL TO '251'
OR email-list(1:1) IS EQUAL TO '252'
OR email-list(1:1) IS EQUAL TO '253'
OR email-list(1:1) IS EQUAL TO '254'
OR email-list(1:1) IS EQUAL TO '255'
OR email-list(1:1) IS EQUAL TO '256'
OR email-list(1:1) IS EQUAL TO '257'
OR email-list(1:1) IS EQUAL TO '260'
OR email-list(1:1) IS EQUAL TO '261'
OR email-list(1:1) IS EQUAL TO '262'
OR email-list(1:1) IS EQUAL TO '263'
OR email-list(1:1) IS EQUAL TO '264'
OR email-list(1:1) IS EQUAL TO '265'
OR email-list(1:1) IS EQUAL TO '266'
OR email-list(1:1) IS EQUAL TO '267'
OR email-list(1:1) IS EQUAL TO '270'
OR email-list(1:1) IS EQUAL TO '271'
OR email-list(1:1) IS EQUAL TO '272'
OR email-list(1:1) IS EQUAL TO '273'
OR email-list(1:1) IS EQUAL TO '274'
OR email-list(1:1) IS EQUAL TO '275'
OR email-list(1:1) IS EQUAL TO '276'
OR email-list(1:1) IS EQUAL TO '277'
OR email-list(1:1) IS EQUAL TO '300'
OR email-list(1:1) IS EQUAL TO '301'
OR email-list(1:1) IS EQUAL TO '302'
OR email-list(1:1) IS EQUAL TO '303'
OR email-list(1:1) IS EQUAL TO '304'
OR email-list(1:1) IS EQUAL TO '305'
OR email-list(1:1) IS EQUAL TO '306'
OR email-list(1:1) IS EQUAL TO '307'
OR email-list(1:1) IS EQUAL TO '310'
OR email-list(1:1) IS EQUAL TO '311'
OR email-list(1:1) IS EQUAL TO '312'
OR email-list(1:1) IS EQUAL TO '313'
OR email-list(1:1) IS EQUAL TO '314'
OR email-list(1:1) IS EQUAL TO '315'
OR email-list(1:1) IS EQUAL TO '316'
OR email-list(1:1) IS EQUAL TO '317'
OR email-list(1:1) IS EQUAL TO '320'
OR email-list(1:1) IS EQUAL TO '321'
OR email-list(1:1) IS EQUAL TO '322'
OR email-list(1:1) IS EQUAL TO '323'
OR email-list(1:1) IS EQUAL TO '324'
OR email-list(1:1) IS EQUAL TO '325'
OR email-list(1:1) IS EQUAL TO '326'
OR email-list(1:1) IS EQUAL TO '327'
OR email-list(1:1) IS EQUAL TO '330'
OR email-list(1:1) IS EQUAL TO '331'
OR email-list(1:1) IS EQUAL TO '332'
OR email-list(1:1) IS EQUAL TO '333'
OR email-list(1:1) IS EQUAL TO '334'
OR email-list(1:1) IS EQUAL TO '335'
OR email-list(1:1) IS EQUAL TO '336'
OR email-list(1:1) IS EQUAL TO '337'
OR email-list(1:1) IS EQUAL TO '340'
OR email-list(1:1) IS EQUAL TO '341'
OR email-list(1:1) IS EQUAL TO '342'
OR email-list(1:1) IS EQUAL TO '343'
OR email-list(1:1) IS EQUAL TO '344'
OR email-list(1:1) IS EQUAL TO '345'
OR email-list(1:1) IS EQUAL TO '346'
OR email-list(1:1) IS EQUAL TO '347'
OR email-list(1:1) IS EQUAL TO '350'
OR email-list(1:1) IS EQUAL TO '351'
OR email-list(1:1) IS EQUAL TO '352'
OR email-list(1:1) IS EQUAL TO '353'
OR email-list(1:1) IS EQUAL TO '354'
OR email-list(1:1) IS EQUAL TO '355'
OR email-list(1:1) IS EQUAL TO '356'
OR email-list(1:1) IS EQUAL TO '357'
OR email-list(1:1) IS EQUAL TO '360'
OR email-list(1:1) IS