扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
用perl语言写一段脚本 提取出文件B中文件A不含有的单词输出到文件C 文件A是个词典A文件包含发音 但是B文件没有 结果也不需要这些发音文件的一部分是这样的：A文件 ABANDONADA ax b ae n d ax n ey d axABANDOND ax b ae n d ax n dABANDONDED ax b ae n d ax n d ih dABANDONED ax b ae n d ax n dABANDONEE ax b ae n d ow n iyABANDONER ax b ae n d ax n axABANDONER ax b ae n d ax n ax rABANDONERS ax b ae n d ax n ax zABANDONING ax b ae n d ax n ih ng.B文件HADANIMATIONANDUMCOMPUTERWORKUMITWASQUITEFUFUNNY.
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
请补充两个问题：一、A文件中间的分隔符是不是空格.二、就你的例子而言,输出C文件内容是什么,是不是A文件所有行的第一个单词,因为你举例的B文件一个都没有剔除的.如果我以上对你的本意的猜测正确,那么下面的代码满足你的要求：my(%W,$word,$line);#读Bopen(FD,'B');while($line=&FD&){&&($word)=split(/\s+/,$line);&&$W{$word}=1&if&($word&ne&'');}close(FD);#读A、写Copen(FD,'A');open(FE,'&C');while($line=&FD&){&&($word)=split(/\s+/,$line);&&print&FE&&$word\n&&if&(!&$W{$word});}close(FD);close(FE);
为您推荐：
其他类似问题
扫描下载二维码优质网站模板Perl批量编译C源程序.pdf
扫描二维码，下载文件到手机
相关文档推荐
当前文件信息
浏览：1020次
下载：17次
您的VIP会员已过期，是否续费？
用户应遵守著作权法，尊重著作权人合法权益，不违法上传、存储并分享他人作品。举报邮箱：
京网文[0号 京ICP证100780号比特客户端
您的位置：
详解大数据
详解大数据
详解大数据
详解大数据
让Perl成为你的嵌入式开发工具
关键字：Web
　　Perl是从C, sed, awk和其他编程语言派生出来的高级解释语言。它擅长文本处理，这就是在web网站内容处理中流行的原因。
　　但是作为软件开发者，每天同样要处理文本：源代码，头文件，makefiles，映射文件，批处理文件，便一起/连接器的错误信息，私有文件格式等等。
　　Perl 可以作为一个复杂的查找和替换引擎，一个文本处理和提取工具，一个批处理文件的聚合体等等。它能够把内部工具和你所需要的程序迅速地捆绑在一起来执行。
　　你也不需要成为一个Perl 的专家。Perl 相对易学而且基本掌握就能很多领域应付自如。当然了，如果你想深入浅出，还是有很多东西需要学的，但不是必需的。特别地，面向对象特性和众多的Perl 功能是建立在你精熟的基础之上的。
　　除了基本的语言构造，例如语句，控制分支，变量，数组，和哈希表，你需要熟练掌握正则表达式才能够真正使用大多数功能强大的文本处理工具。
　　正则表达式相当于在字符串中的最小”编程语言”。对于未知者，它就像一行咒语。但是不要被它所骗，正则表达式只不过是在一个小的空间里了大量的字符产处理逻辑。
　　让我们来看一下在嵌入式软件开发中使用Perl 的一些方法。
　　从数据表中剥离硬件定义
　　对于大型的，从数据表中人工转译寄存器和未定义到软件的头文件需要花费很长的时间。如果文档是格式，将相关部分输出成一个文本文件，然后用Perl 脚本处理相关的硬件定义，这样能够节省上百行代码的人工输入，而且远比人工转录更加可靠。
　　从C头文件的#define中生成汇编程序中的等同文件
　　使用Perl 脚本可以将C头文件定义自动转化为汇编代码中的等同文件。
　　从私有工具中处理文本输出
　　许多嵌入式工具都产生专有的文本格式，你需要把它们转化为目标系统的其他格式。Perl是处理这种事情的出色工具。
　　数据表格计算
　　使用Perl 丰富的算术模块，可以迅捷的查找计算源代码中的表格。
　　管理项目时的统计分析
　　当管理一个大型项目时，代码的统计信息对项目的进度非常有用。这些有用的信息包括代码行数，注释的比例，ROM的使用数量等。使用Perl 可以自动获得这些信息，并加入一个文本形成项目历史。
　　分析连接器映射文件
　　Perl 能够读取由linker 生成的映射文件，并且排序，过滤，得到目标内存使用信息使其结果更优化。
　　将二进制文件转化为数据表
　　尽管Perl 擅长于文本处理，他也能够控制原始的二进制数据。使用这一特性，可以将二进制文件转化为表格或结构并嵌入到你的源代码中。
　　代码移植
　　在进来的一个项目期间，我需要以致大量的现存代码到一个新的嵌入式平台。目标设备缺乏很多系统函数，目标代码不能生成，连接器报告了上千个“未知函数”的错误信息。我企图重写代码，至少能够编译和连接成功，这需要相当的时间。
　　Perl 的解决：一个简单的Perl 脚本从错误信息文件中提取到所缺少函数的名称，并且从数十个头文件中找到这些函数的定义原型。然后在C文件中创建这些函数的假版本。一两个小时搞定，移植的代码连接到新设备中，缺少的函数已经被补充，而Perl 脚本只用了区区38行代码且节省了大量的时间。
　　这只是个小例子。Perl 的实用只是受到你思维的限制。你可以把Perl 放到你的软件开发工具箱中去尝试。
[ 责任编辑：jj ]
去年，手机江湖里的竞争格局还是…
甲骨文的云战略已经完成第一阶段…
软件信息化周刊
比特软件信息化周刊提供以数据库、操作系统和管理软件为重点的全面软件信息化产业热点、应用方案推荐、实用技巧分享等。以最新的软件资讯，最新的软件技巧，最新的软件与服务业内动态来为IT用户找到软捷径。
商务办公周刊
比特商务周刊是一个及行业资讯、深度分析、企业导购等为一体的综合性周刊。其中，与中国计量科学研究院合力打造的比特实验室可以为商业用户提供最权威的采购指南。是企业用户不可缺少的智选周刊！
比特网络周刊向企业网管员以及网络技术和产品使用者提供关于网络产业动态、技术热点、组网、建网、网络管理、网络运维等最新技术和实用技巧，帮助网管答疑解惑，成为网管好帮手。
服务器周刊
比特服务器周刊作为比特网的重点频道之一，主要关注x86服务器，RISC架构服务器以及高性能计算机行业的产品及发展动态。通过最独到的编辑观点和业界动态分析，让您第一时间了解服务器行业的趋势。
比特存储周刊长期以来，为读者提供企业存储领域高质量的原创内容，及时、全面的资讯、技术、方案以及案例文章，力求成为业界领先的存储媒体。比特存储周刊始终致力于用户的企业信息化建设、存储业务、数据保护与容灾构建以及数据管理部署等方面服务。
比特安全周刊通过专业的信息安全内容建设，为企业级用户打造最具商业价值的信息沟通平台，并为安全厂商提供多层面、多维度的媒体宣传手段。与其他同类网站信息安全内容相比，比特安全周刊运作模式更加独立，对信息安全界的动态新闻更新更快。
新闻中心热点推荐
新闻中心以独特视角精选一周内最具影响力的行业重大事件或圈内精彩故事，为企业级用户打造重点突出，可读性强，商业价值高的信息共享平台；同时为互联网、IT业界及通信厂商提供一条精准快捷，渗透力强，覆盖面广的媒体传播途径。
云计算周刊
比特云计算周刊关注云计算产业热点技术应用与趋势发展，全方位报道云计算领域最新动态。为用户与企业架设起沟通交流平台。包括IaaS、PaaS、SaaS各种不同的服务类型以及相关的安全与管理内容介绍。
CIO俱乐部周刊
比特CIO俱乐部周刊以大量高端CIO沙龙或专题研讨会以及对明星CIO的深入采访为依托，汇聚中国500强CIO的集体智慧。旨为中国杰出的CIO提供一个良好的互融互通 、促进交流的平台，并持续提供丰富的资讯和服务，探讨信息化建设，推动中国信息化发展引领CIO未来职业发展。
IT专家新闻邮件长期以来，以定向、分众、整合的商业模式，为企业IT专业人士以及IT系统采购决策者提供高质量的原创内容，包括IT新闻、评论、专家答疑、技巧和白皮书。此外，IT专家网还为读者提供包括咨询、社区、论坛、线下会议、读者沙龙等多种服务。
X周刊是一份IT人的技术娱乐周刊，给用户实时传递I最新T资讯、IT段子、技术技巧、畅销书籍，同时用户还能参与我们推荐的互动游戏，给广大的IT技术人士忙碌工作之余带来轻松休闲一刻。
微信扫一扫
关注Chinabyte如何C中调用Perl_百度知道
如何C中调用Perl
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
集成进来的话，大概是这样例子：#include&&EXTERN.h&&&&&&&&&&&&&&&&/*&from&the&Perl&distribution&&&&&*/#include&&perl.h&&&&&&&&&&&&&&&&&&/*&from&the&Perl&distribution&&&&&*/static&PerlInterpreter&*my_&&/***&&&&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();}详见
采纳率：50%
可以用system调用来执行脚本，如果不需要交互的话
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}