用PERL 写个例子

用PERL 写个例子,第1张

open SRC, "file2.txt" or die "$! file2"# 第 2 组

my @data = <SRC>

chomp @data

close SRC

open SRC, "file1.txt" or die "$! file1"# 第 1 组

while ( my $line = <SRC>) {

print $line.$/ if grep { $line =~ /[^\d]$_[^\d]/ } @data

}

close SRC

集成进来的话,大概是这样

例子

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

#include <EXTERN.h> /* from the Perl distribution */

#include <perl.h>/* from the Perl distribution */

static PerlInterpreter *my_perl /***The Perl interpreter***/

int main(int argc, char **argv, char **env)

{

PERL_SYS_INIT3(&argc,&argv,&env)

my_perl = perl_alloc()

perl_construct(my_perl)

PL_exit_flags |= PERL_EXIT_DESTRUCT_END

perl_parse(my_perl, NULL, argc, argv, (char **)NULL)

perl_run(my_perl)

perl_destruct(my_perl)

perl_free(my_perl)

PERL_SYS_TERM()

}


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/11264402.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-14
下一篇 2023-05-14

发表评论

登录后才能评论

评论列表(0条)

保存