公司能源管理体系建设效果评价自评报告

1、 11 华润水泥（惠州）有限公司能源管理体系建设效果评价自评报告华润水泥（惠州）有限公司目录一、企业基本情况3二、体系策划阶段工作开展情况9三、体系实施阶段工作开展情况10四、体系检查改进阶段工作开展情况17五、体系运行经验及存在问题19六、下一步工作计划20七、评分表21八、附件（一）认证合同及认证证书（二）初始能源评审报告（三）能源目标、指标证明材料（四）能源管理体系建设工作方案（五）能源计量器具一览表（台帐）、能源计量器具检定、校准和维护等资料（六）内部审核和管理评审相关证明材料（七）能源绩效（目标指标实现程度、主要能耗指标、能源管理利用状况改进等证明材料）（八）能源管理手册、程序文件、

2、支持性文件材料（九）其它证明材料一、企业基本情况华润水泥（惠州）有限公司是华润水泥投资有限公司的全资子公司，于2003年08月落户于广东省惠州市平陵镇，距惠州市区79km，距离广州市、深圳市仅160公里、东莞市140公里，紧邻S224省道边、惠州河源高速公路、广州河源高速公路，四通八达，交通便利 。公司生产占地约470亩，企业管理人员、研发人员、高层技术人员等管理成员达130人，生产人员达250多人。公司能源利用过程按常规可分为购入、加工转换、输送分配和最终使用四个阶段。（1）能源购入管理能耗数据由制造部牵头组织相关部门人员通过计量表得到，从2014 年生产运行情况看，购入量的变化与生产所需基

3、本相符，可以忽略损失；电购入后的线损及贮损全部计入生产单位消耗，因此，购入阶段的损失率为0.00%。购入计量均能按GB17167用能单位能源计量器具配备和管理通则要求的配备率和等级率执行。（2）能源转换管理公司除了变压器对电进行变压没有转能设备，而变压器的转能损失在本报告中计入生产各环节而忽略不计。（3）能源输送管理电力输送分配主要损失在线损及变压器损耗，占比较小。煤运输及储存中存在少量损耗，此处忽略不计。生活水消耗主要由市政管网提，不存在跑冒滴漏现象，损耗较小；生产用水主要从平陵河中取水，通过净化设施提高现场生产用水及设备冷却水。（4）能源利用状况评价分析华润水泥(惠州)有限公司能源消耗种类

4、有电、煤和水。公司根据能源消耗所存在的问题，已经在现有制度的基础上建立能源责任制，建立能源考核办法；建立能源监测检查制度，并依法进行管理。研究有效的能源管理机制，对电、煤和水能源的使用实行集中统一管理，实现能源调度系统与生产调度系统有机结合，促进生产过程整体优化。公司对管理职能、管理内容与要求、检查与考核相关职责部门。标准详细规定了厂用能源的计划、采购、进厂、验收、输送、贮存、使用、成本核算等全过程的管理，确保装置运行可靠性和经济性，为生产成本核算提供可靠依据。公司2014年度生产情况正常，各项生产指标均达到期望值，吨水泥综合能耗85.89千克标准煤，吨水泥综合电耗82.49千瓦时，吨熟料标准

5、煤102.92千克标准煤，均低于水泥单位产品能源消耗限额（GB16780-2012），部分指标低于国际行业标准。我公司按照GB/T23331-2013 idt ISO50001:2013能源管理体系 要求标准建立能源管理体系，形成文件并在产品实现的整个生产过程中予以实施、保持和持续改进其有效性。运用过程方法对能源管理体系各过程进行有效管理。我公司能源管理体系由管理职责、资源管理、产品实现、运行控制、应急准备和响应、测量、分析和改进等几大过程组成。 针对上述各过程，我公司制定了相应的能源管理体系文件，并建立了相关记录，明确规定了各过程的运作、控制准则和方法，并提供充分的信息和资源，以支持这些过程

6、的有效运行和对这些过程进行监视、测量和分析，确保实现过程策划结果。相关文件规定，当发现不合格或潜在不合格时应及时采取相应措施，以持续改进能源管理体系的有效性。能源管理体系 “六个机制”运行情况：（一）节能组织领导机制。设立能源管理领导小组及工作小组：领导小组：组长：李茂粦副组长：林一仑 孙 震 于强工作小组：龚艺基 刘立超 袁耀玉 梁春艳 丁兆伟 邓凯 陈永林 邱昌甲 蔡广文 夏 军 高荣鑫1.1建立相应的协调机制，明确相关部门责任和分工，确保责任到位、措施到位、投入到位、监督考核到位。设立能源管理办公室，负责公司能源管理日常工作，能源管理办公室设在安全环保部，由龚艺基具体负责主持日常工作。能

7、源管理办公室主要职责：在能源管理领导小组的带领下，贯彻国家有关能源管理的法律、法规和方针、政策；贯彻落实华润集团和水泥控股能源管理的工作方针、政策和目标；负责公司能源管理工作的日常管理、综合协调；负责能源管理综合目标测定、分解，编制年度能源管理工作计划；组织开展能源管理工作的监督检查，负责各部门的能源管理综合指标考核工作；制定和完善公司能源管理办法和评价考核办法；负责提出能源管理和能源管理技术培训计划，并组织落实。1.2能源管理领导小组及工作小组职责（1）能源管理领导小组主要职责：全面负责统筹公司能源管理工作，贯彻执行国家、地方、行业主管部门有关节能方针政策、法规、标准；全面领导公司能源管理实

8、施过程中的监督、指导、考核等相关工作；全面部署公司能源管理工作，指导解决工作中的重大问题。（2）组长职责：负责全公司能源管理的决策及全面管理；严格执行国家、省、市、区有关的能源管理政策、法令、法规；全面主持能源管理领导小组的日常工作；（2）副组长职责：负责把公司的能源管理意识下达到管理成员，把出现的问题及建议反映到公司；严格执行国家、省、市、区有关的节能政策、法令、法规；协助组长处理日常能源管理工作；学习和掌握节能新技术，处理公司能源管理事务；指导和监督各部门的能源管理工作实施情况；计划新的、实用的能源管理工作措施。（3）工作小组职责：负责各部门的实际管理工作，对各部门的能源管理工作与指标起直

9、接监督的作用；严格执行国家、省、市、区有关的能源管理政策、法令、法规；主持本部门的日常能源管理工作；根据公司的制定的能源管理工作计划制定本部门的能源管理工作；在本部门实施能源管理工作，完成公司能源管理目标；对能源管理工作提出一些有效实用的建议。1.3相关部门的职责（1）安全环保部负责汇总、编制公司能源管理中长期规划和节能指标的分解落实；负责能源消耗的汇总统计、上报和分析工作；负责监督检查各部门能源管理工作的进展情况；完善能源管理标准体系。（2）矿山部、制造部、机电部及储运部组织能源管理技术开发和技术攻关；组织开展能源管理新技术、新工艺、新设备、新材料的交流活动；编写公司能源管理推广技术及能源管

10、理设备目录；负责组织限额以上投资项目能源管理篇(章)以及限额以上能源管理投资项目的评估、审查和报批；负责组织制定能源管理基础标准、技术标准和管理标准，负责能源管理科技成果的鉴定和评选。（3）财务部负责编制公司能源管理中长期规划和限额以上投资项目资金的编制和筹资情况。（4）行政部负责公司能源管理对外宣传工作。（5）人力资源部会同能源管理办公室共同做好能源管理培训工作。（6）运行部负责能源管理基础数据的收集与统计。（7）质管部负责对原煤分析检验，发现不合格品按规定处理。（8）采购部负责采购先进的节能设备。（二）节能遵法贯标机制。认真贯彻执行节能法律法规和政策标准，切实做好能源审计，编制并实施“十二

11、五”节能规划和年度计划。序号名称单位2011年2012年2013年2014年2015年“十二五”节能量1产量万吨1001501501501502单位产品综合能耗千克标煤/吨91.6889.4887.3186.2185.113节能量吨标准煤1000540033502700390016350综合指标：公司“十二五”节能目标为16350吨标准煤。近期指标：2015年节能3900吨标准煤。建立能源管理中心，提高能源计量数据的有效性。华润水泥控股建立能管中心计划投资7600万元，其中建设投资7000万元，流动资金600万元，建设一个系统的、有效的适合运作管理水平的能源管理中心，提高公司的能源管理水平，加

12、大节能技术改造力度，加快发展低碳经济步伐，从而为公司建立节约、清洁、循环、低碳的新型生产方式提供强有力的科技支撑。项目主要建设内容包括以下三大内容：（1）能源管理信息系统建设，主要内容包括数据采集系统、通讯网络系统与能源中心管理应用系统三大部分。系统将集成DCS/PLC系统与ERP、OA管理系统，实现生产及能耗数据的自动采集、数据共享及应用分析。同时对设备进行自动化适应性改造，使之符合系统采集与控制要求，并达到一定的节能效果。（2）能源管控中心建设，作为能源中心管理信息系统应用和展示的集中平台，实现能源的远程集中管控。（3）能源管理体系的建立，使之符合能源管理体系要求及使用指南（GB/T233

13、31）要求与公司的具体情况，建立系统的能源管理流程与制度，将并能源管理体系流程与管理模式融入能源管理信息系统中，确保能源管理中心的正常、有效运作，实现企业能源管理的日常化。结合华润水泥的建设思想与实际需求，本项目的建设目标如下：（1） 建立华润水泥能源管理大数据中心；（2） 建立以实时数据库为基础的大区级能源实时监控系统与基础能源管理系统；（3）实现能源生产、使用与管理的完整信息化管理；（4）达到能源系统的安全、稳定、经济、高效运行目的；（5）实现系统的政府能源监管管理功能，为顺利完成“十二五”节能任务提供保障。（三）节能全过程控制机制。实施初始能源评审，采用过程分析法，即按生产和服务流程，划

14、分流程的过程、工序、活动或区域，分析每一过程、工序、活动或区域中的能源使用。包括原料进厂储存和均化、生料制备、煤粉制备、熟料煅烧、水泥粉磨、水泥包装/散装/出厂、供水、供电、维修和改造、后勤、办公等能源使用。利用能源计量、统计、分析和其他数据，识别当前的能源种类和来源，评价过去、现在的能源使用情况和能源消耗水平。如上一个评价周期和本周期内使用的能源种类、消耗总量、单位产品能耗的对比分析。采用专家分析、比较、判断相结合的方法进行评审。由各部门按照“能源评审的内容”要求，收集所识别的过程、工序、活动或区域的能源使用种类、能源消耗状况、影响能源使用相关变量的有关数据和信息，并填入能源评审表中。能源评

15、审有关专家根据当前各过程、工序、活动或区域的能源使用种类、能源消耗状况、影响能源使用相关变量的能源绩效现状与能源法律法规要求、国家和地方标准、同行业水平及历史业绩进行分析、比较和判断。通过分析、比较和判断应确定主要能源使用及主要能源使用的主要相关变量。过程、工序、活动或区域的能源使用量占公司能源使用总量5%以上的即为主要能源使用。管理者代表应对能源评审实施控制，不符合要求的应按纠正、预防措施控制程序的规定进行整改。识别优先改进能源因素；确定能源基准和能源绩效参数；明确能源目标和指标，分解节能目标并考评；编制能源管理体系文件并实施运行。建立能源管理中心，实现能源数据在线采集、实时监测，运用体系内

16、部审核、管理评审等绩效评价手段，及时发现问题，采取纠正措施，保证体系持续有效运行，实现能源使用全过程监管。（四）节能管理技术提升机制。制定并实施节能技术改造计划，安排专项资金用于节能技术改造和进步。通过开展能效对标达标工作，充分挖掘公司节能潜力，对优先改进能源绩效的机会实施有效控制，实现节能目标和指标。针对公司重要耗能点、重要耗能设备进行监控，加快淘汰落后生产工艺、设备。（五）节能文化宣传促进机制。组织能源管理体系要求及使用指南（GB/T23331）内审员培训，开展能源管理体系标准及相关知识宣传，将建立实施体系的决策和意图传达至全体人员，在企业内部形成体系建设的良好氛围。对公司管理层、内审员及

17、能源管理体系关键岗位人员进行重点培训。建立健全企业节能激励约束机制，将节能任务完成情况与员工工作绩效挂钩，作为企业内部评先评优的重要指标。（六）节能认证推动机制。能源管理体系运行取得实效后，公司提出认证申请，由具有资质的第三方认证机构进行审核，全面评价企业实施体系的绩效情况，审核通过后颁发体系认证证书，并对企业开展后续监督审核，确保能源管理体系持续有效运行。二、体系策划阶段工作开展情况（一）成立能源管理体系领导小组及工作小组：领导小组：组长：李茂粦副组长：林一仑 孙 震 于强工作小组：龚艺基 刘立超 袁耀玉 梁春艳 丁兆伟 邓凯 陈永林 邱昌甲 蔡广文 夏 军 高荣鑫（二）初始能源评审开展情况

18、 我司于2014年6月1日 至6月20日进行了初始能源评审，评审期间为2013年1月 1日至12月31 日。能源评审范围为位于广东省惠州市龙门县平陵镇隘子村，一条日产3000吨熟料生产线，带6MW余热发电，涵盖原料破碎、生料制备、熟料煅烧、水泥制成、水泥包装/散装出厂等过程。主要用能设备（系统）选型先进，无被国家列入淘汰设备目录的设备，能源计量器具配备按要求落实配备，能源计量器具达到GB17167用能单位能源计量器具配备与管理通则、GB/T24851建筑材料行业计量器具配备和管理要求的要求，能源计量器具完好率100和受检率100。用电网络图与实际用电管理，用煤网络图与实际用煤管理符合。识别能源

19、使用情况，评价主要能源使用，我司主要能源使用有烧成工段熟料煅烧耗煤、水泥工段水泥粉磨耗电、烧成工段煤粉制备耗电、烧成工段熟料煅烧耗电、原料工段生料制备耗电、余热发电循环水系统耗电。建立了公司能源方针，能源方针适宜，符合企业的经营宗旨和实际能源使用状况；利用原能源评审的结果，制定了公司、部门及主要能源使用的能源目标指标、能源基准和能源绩效参数。为实现制定的能源目标指标，制定了能源管理实施方案，和5项绩效改进方案，包括窑、煤磨系统的节能技术改造，按方案要求组织了实施。制定了主要能源使用设备、设施、系统、过程、人员及相关变量的控制指标和控制措施。开展员工节能意识和岗位技能培训，公司员工能源意识较强，

20、用能关键岗位技能满足要求。建立了质量、环境、职业健康安全、能源一体化文件，包括综合管理手册（B/0版，2014年6月1日实施）、程序文件（37个）、能源管理制度、作业文件21个，文件适宜、充分。文件的发放、使用、更改、回收等的控制符合程序规定。外来文件包括国家和地方法律法规、能耗限额标准等，收集基本齐全。记录表式适宜，能够按实际记录有关数据，对记录的标识、保存、检索控制有效。三、体系实施阶段工作开展情况（一）制定能源管理体系实施计划：（二）能源管理体系文件发布、管理与培训：2014年7月分层次进行能源管理体系培训，分为三层，管理者代表和推行小组成员及各部门推行负责人为第一层（外出或请老师培训）

21、，公司管理层为第二层，其他普通员工为第三层，（要求全体员工都接受相应培训，由内部推行小组组织实施），培训完成后做相应的考核； 2014年8月拟定体系推行及文件修订计划。依据标准结合公司实际情况，修订公司原有各类体系文件，管理手册、程序文件、作业文件等，实施文件和资料控制程序。将能源管理体系记录纳入记录控制程序。 安全环保部是文件控制的主管部门，负责组织并控制管理能源管理体系文件的编写及修改、发放，建立全公司受控文件清单，并负责能源管理体系所有文件底稿的存档保管；负责收集、发放适用法律法规，收集、控制分发外来文件。各部门负责主管区域内文件的编制和修改，收集、使用适用本部门的外来文件并提交安全环保

22、部备案。文件的使用单位、使用人负责文件的妥善使用和保管。 文件资料的范围和分类、编写、修改、审核、批准、发布、标识、发放、使用及作废等具体规定见文件和资料控制程序。安全环保部是记录控制的主管部门，负责组织建立、健全、管理全公司的记录；各部门负责本部门记录的编制、填写、收集整理、标识、归档、保存及处置。记录是特殊的文件，公司范围内记录的编制、填写、收集整理、标识、归档、保存及处置等的执行见记录控制程序中的具体规定。能源管理体系文件覆盖我公司生产的“润丰”牌水泥系列产品，以及公司所有与生产 “润丰”牌水水泥相关部门、场所和所有相关过程的节约能源活动。能源管理体系文件由安全环保部提出并归口管理，纸版

23、本发放分“受控”和“非受控”两种形式。“非受控”的手册只限于对外（顾客提供和向外投标）提供，为不受更改和换版限制。必须加强对能源管理体系文件的管理，保证文件所规定的内容符合 GB/T 23331标准的要求。文件的更改、换版和管理按文件控制程序的有关规定执行。 2014年810月管理体系试运行和改进，体系文件发布后，各相关职能部门按体系和体系文件的要求对本部门的过程进行控制，并在试运行的过程中，发现问题。在体系运行过程中，组织各职能部门人员对体系文件和体系的要求进行相应的培训和学习，并在学习的过程中发现建立的体系和体系文件的不足。2014年11月内部审核员培训：公司指定人员参加内审员培训，外请广

24、州市明见信息科技有限公司对公司管理层在内的23人进行了能源管理体系内审员培训，并考试合格颁发内审员证书。（三）能源计量器具的配备与检定情况：公司建立了原煤和用电三级计量网络，能源计量设备的配备率达到100%。能源计量器具达到GB17167用能单位能源计量器具配备与管理通则、GB/T24851建筑材料行业计量器具配备和管理要求的要求。能源计量器具的检定情况如下：四、体系检查改进阶段工作开展情况（一）内部审核开展情况：公司内审于2014年11月17-18日进行，内审策划充分，形成了内审计划和按计划实施了内审，形成了内审报告，对能源体系的有效性、适宜性、充分性进行了评价。通过内审评价，公司体系运行能

25、够按照HH-P-42能源评审控制程序、HH-P-43能源基准、能源绩效参数、能源目标指标控制程序和主要能源使用及相关变量控制指标一览表及有关管理文件、作业文件中规定的措施和运行准则对主要能源使用、耗能工序、耗能设备的运行和生产工艺实施控制。各主要能源使用的相关变量的运行参数符合公司工艺管理规程、质量管理规程和主要能源使用及相关变量控制指标一览表的规定，各生产工序工艺比较稳定，设备运行比较正常。能够从技术措施、管理措施实施能源管理，能够通过不断进行节能技改和加强管理降低生产过程的能耗和提高能源利用效率，能够按规定的职责和要求实施能源绩效改进方案，对完成的绩效改进项目能够进行效果的验证并达到预期目

26、标。（二）管理评审开展情况：本公司质量、环境、职业健康安全、能源管理体系评审于2014年11月24日在公司会议室进行，以集中会议的形式进行评审。管理评审由总经理李茂粦总主持，管理者代表、职业健康安全事务代表、各部门负责人等共20人参加了管理评审会议。按照本公司管理评审计划和管理评审程序的规定和要求，各部门负责人在管理评审中向总经理提交了本部门质量、环境、职业健康安全、能源管理体系运行报告。总经理根据管理评审计划介绍了本次评审的目的和要求，各部门负责人分别向总经理、管理层报告本部门质量、环境、职业健康安全、能源管理体系运行情况、各项目标、指标实现的情况和改进的建议等。总经理根据各部门提交的工作报

27、告和评审会上的汇报，对公司的质量、环境、职业健康安全、能源管理体系过程的业绩和有效性逐一进行了检查、评价。公司管理评审的组织、评审的输入充分，输出适宜，对方针、目标的适宜性和实现情况的检查，对管理体系的有效性进行评价，提出了4项能源绩效改进要求，形成了管理评审报告，对提出的改进项目如入窑提升改造等纳入了2015年的技改计划。五、体系运行经验及存在问题（一）体系运行经验：公司领导高度重视能源管理体系建设工作，成立能源管理领导小组及工作小组，由总经理亲自任领导小组组长，建立相应的协调机制，明确相关部门责任和分工，确保责任到位、措施到位、投入到位、监督考核到位。公司重视培训，外请广州市明见信息科技有

28、限公司对公司管理层在内的23人进行了能源管理体系内审员培训，并考试合格颁发内审员证书。由内部推行小组实施转训，要求全体员工都接受相应培训，培训完成后做相应的考核。全员参与，开展能源管理体系标准及相关知识宣传，将建立实施体系的决策和意图传达至全体人员，在企业内部形成体系建设的良好氛围。建立健全企业节能激励约束机制，将节能任务完成情况与员工工作绩效挂钩，作为企业内部评先评优的重要指标。建立能源管理中心，提高能源计量数据的有效性。华润水泥广东大区能源管理中心预计投资7600万元，截至2014年底，总投资12162.22万元，测算节能量4.42万吨标煤耗；惠州基地能源管理中心建设总投资6648.67万

29、元，其中包含余热发电建设项目3540万元、一线窑节能降耗技改1655.64万元，能源管理中心平台建设和能管机房装修等209.2万元。建设一个系统的、有效的适合运作管理水平的能源管理中心，提高公司的能源管理水平，加大节能技术改造力度，加快发展低碳经济步伐，从而为公司建立节约、清洁、循环、低碳的新型生产方式提供强有力的科技支撑。对目标指标实现情况和管理方案的实施情况进行检查，对重点用能部门和工序实施严格控制和考核。目前公司各项控制指标已达到GB16780-2012标准的先进值要求，2013年12月1日至2014年11月30日的单位产品能耗见下表：项目可比熟料综合煤耗kgce/t可比熟料综合电耗kW

30、h/t可比水泥综合电耗kWh/t可比熟料综合能耗kgce/t可比水泥综合能耗kgce/ t限额值112649012098*先进值103568511088*实际值105.0156.3575.19111.9491.84（二）存在的问题： 公司能源评审有漏项，如储运部铲车耗油、中控楼耗电、宿舍楼耗电等，需补充完善。公司2014能源目标节约2600吨标煤，在制定2015年节能目标时应充分利用能源评审结果，找出节能潜力，将节能目标分解到部门。六、下一步工作计划（一）完善能源评审表，增加储运部铲车耗油、中控楼耗电、宿舍楼耗电能源评审，并举一反三，确认其他区域是否有遗漏。（二）制定2015年节能目标时充分利

31、用能源评审结果，找出节能潜力，2015年节能目标以2014年的能耗为基准，2015年节约能源3900吨标准煤。附件1：惠州市能源管理体系建设效果评价评分表单位名称：序号评价要素评价内容分值评分得分依据1管理职责15分1.1成立体系建设领导机构和工作机构情况55成立相关机构，按职能开展相关工作1.2能源方针、能源目标指标建立情况55建立方针、目标，并统计分析1.3能源管理体系文件编写及培训情况55体系文件健全，开展培训2体系策划30分2.1法律法规和标准执行情况22收集相关发法律法规，识别适用条款2.2初始能源管理评审的开展情况33组织能源评审，评审策划充分规范2.3能源使用及重要能源使用的识别

32、评价情况55根据能源评审的结果及能源评审控制程序规定准则确定了主要能源使用，对主要能源使用进行了排序，规定了相应的控制措施2.4能源基准确立及执行情况55以上年度的能耗为基准2.5能源目标指标和能源管理实施方案制定情况1515利用能源评审的结果制定目标指标，结合主要能源使用制定了能源管理实施方案，从技术措施和管理措施规定了主要能源使用的控制要求，其中包括了5项能源绩效改进方案及影响主要能源使用控制指标一览表等。3实施运行30分3.1体系实施计划制定55制定体系实施计划3.2实施动员和文件发布情况53无书面动员文件3.3体系文件的宣贯与培训情况55开展体系文件的宣贯与培训3.4能源计量器具的配备

33、与检定情况55建立了原煤和用电三级计量网络，能源计量设备的配备率达到100%。能源计量器具达到GB17167用能单位能源计量器具配备与管理通则、GB/T24851建筑材料行业计量器具配备和管理要求的要求3.5节能技术改造和淘汰落后执行情况88无淘汰落后设备21通过局域网、书面、口头、信息平台等方式进行能源有关信息的沟通4体系检查20分4.1检查测量与分析情况44通过各种会议制度、日常检查制度、评价制度、管理评审和内审、节能审计、节能量自查等4.2合规性评价（是否符合能源使用和消耗相关法律法规和其它要求）33通过合规性评价，符合能源使用和消耗相关法律法规要求4.3内部审核执行情况55实施内审4.

34、4纠正措施和预防措施55对不符合项采取纠正/预防措施4.5实施记录控制情况33按记录控制程序要求执行5管理评审5分5.1评审输入（能源方针评审、能源绩效评审、能源目标指标实现程度、能源管理体系审核结果及措施）33管理评审输入充分5.2评审输出（能源绩效计划、改进建议）21改进建议不够具体6总分10096备注：1、得分低于70分则为“不通过评价”。 2、评价时，单位应提供能源计量器具一览表（或台帐），否则“3.4能源计量器具的配备与检定情况”不得分。附录资料：不需要的可以自行删除 perl函数应用一、进程处理函数1、进程启动函数函数名eval调用语法eval(string)解说将string看作

35、Perl语句执行。正确执行后，系统变量$为空串，如果有错误，$中为错误信息。例子$print = print (hello,worldn);eval ($print);结果输出hello, world函数名system调用语法system(list)解说list中第一个元素为程序名，其余为参数。system启动一个进程运行程序并等待其结束，程序结束后错误代码左移八位成为返回值。例子proglist = (echo, hello,world!);system(proglist);结果输出hello, world!函数名fork调用语法procid = fork();解说创建程序的两个拷贝-父进程

36、和子进程-同时运行。子进程返回零，父进程返回非零值，此值为子程序的进程ID号。例子$retval = fork();if ($retval = 0) # this is the child process exit; # this terminates the child process else # this is the parent process结果输出无函数名pipe调用语法pipe (infile, outfile);解说与fork合用，给父进程和子进程提供通信的方式。送到outfile文件变量的信息可以通过infile文件变量读取。步骤：1、调用pipe2、用fork将程序分成父

37、进程和子进程3、一个进程关掉infile，另一个关掉outfile例子pipe (INPUT, OUTPUT);$retval = fork();if ($retval != 0) # this is the parent process close (INPUT); print (Enter a line of input:n); $line = ; print OUTPUT ($line); else # this is the child process close (OUTPUT); $line = ; print ($line); exit (0);结果输出$programEnter

38、 a line of input:Here is a test lineHere is a test line$函数名exec调用语法exec (list);解说与system类似，区别是启动新进程前结束当前程序。常与fork合用，当fork分成两个进程后，子进程用exec启动另一个程序。例子 结果输出函数名syscall调用语法syscall (list);解说调用系统函数，list第一个元素是系统调用名，其余为参数。如果参数是数字，就转化成C的整型数(type int)。否则传递字符串的指针。详见UNIX的帮助或Perl文档。使用syscall必须包含文件syscall.pl，即：requ

39、ire (syscall.ph); 例子结果输出2、进程终止函数函数名Die调用语法die (message);解说终止程序并向STDERR输出错误信息。message可以为字符串或列表。如果最后一个参数不包含换行符，则程序文件名和行号也被输出。例子die (Cannot open input file);结果输出Cannot open input file at myprog line 6.函数名warn调用语法warn (message);解说与die类似，区别是不终止程序。例子warn(Danger! Danger!n);结果输出Danger! Danger!函数名exit调用语法exi

40、t (retcode);解说终止程序并指定返回值。例子exit(2);结果输出无函数名kill调用语法kill (signal, proclist);解说给一组进程发送信号。signal是发送的数字信号，9为杀掉进程。proclist是进程ID列表。详见kill的UNIX帮助。例子结果输出3、进程控制函数函数名sleep调用语法sleep (time);解说将程序暂停一段时间。time是停止的秒数。返回值为实际停止的秒数。例子sleep (5);结果输出无函数名wait调用语法procid = wait();解说暂停程序执行，等待子进程终止。不需要参数，返回值为子进程ID，如果没有子进程，返回

41、-1。例子结果输出函数名waitpid调用语法waitpid (procid, waitflag);解说暂停程序执行，等待特定的子进程终止。procid为等待的进程ID例子$procid = fork();if ($procid = 0) # this is the child process print (this line is printed firstn); exit(0); else # this is the parent process waitpid ($procid, 0); print (this line is printed lastn);结果输出$ programth

42、is line is printed firstthis line is printed last$4、其它控制函数函数名caller调用语法subinfo = caller();解说返回调用者的程序名和行号，用于Perl Debugger。返回值为三元素的列表：1、调用处的包名2、调用者文件名3、调用处的行号例子结果输出函数名chroot调用语法chroot (dir);解说改变程序的根目录，详见chroot帮助。例子结果输出函数名local调用语法local($variable);解说在语句块(由大括号包围的语句集合)中定义局域变量，仅在此语句块中起作用，对其的改变不对块外同名变量造成影响

43、。千万不要在循环中使用，否则每次循环都定义一个新的局域变量！例子结果输出函数名times调用语法timelist = times解说返回该程序及所有子进程消耗的工作时间。返回值为四个浮点数的列表：1、程序耗用的用户时间2、程序耗用的系统时间3、子进程耗用的用户时间4、子进程耗用的系统时间例子结果输出二、数学函数函数名sin调用语法retval = sin (value);解说参数为弧度值。函数名cos调用语法retval = cos (value);解说参数为弧度值。函数名atan2调用语法retval = atan2 (value1, value2);解说运算并返回value1除以value

44、2结果的arctan值，单位为弧度，范围在-PIPI。应用例：角度转化成弧度子程序。sub degrees_to_radians local ($degrees) = _; local ($radians);11: $radians = atan2(1,1) * $degrees / 45;函数名sqrt调用语法retval = sqrt (value);解说平方根函数。value为非负数。函数名exp调用语法retval = exp (value);解说返回e的value次方。函数名log调用语法retval = log (value);解说以e为底的自然对数。函数名abs调用语法retva

45、l = abs (value);解说绝对值函数。(Perl 4中没有)函数名rand调用语法retval = rand (num);解说随机数函数，返回0和整数num之间的一个浮点数。函数名srand调用语法srand (value);解说初始化随机数生成器。保证每次调用rand真正随机。三、字符串处理函数函数名index调用语法position = index (string, substring, position);解说返回子串substring在字符串string中的位置，如果不存在则返回-1。参数position是可选项，表示匹配之前跳过的字符数，或者说从该位置开始匹配。函数名rin

46、dex调用语法position = rindex (string, substring, position);解说与index类似，区别是从右端匹配。函数名length调用语法num = length (string);解说返回字符串长度，或者说含有字符的数目。函数名pos调用语法offset = pos(string);解说返回最后一次模式匹配的位置。函数名substr调用语法substr (expr, skipchars, length)解说抽取字符串（或表达式生成的字符串）expr中的子串，跳过skipchars个字符，或者说从位置skipchars开始抽取子串（第一个字符位置为0），子

47、串长度为length，此参数可忽略，意味着取剩下的全部字符。当此函数出现在等式左边时，expr必须为变量或数组元素，此时其中部分子串被等式右边的值替换。函数名study调用语法study (scalar);解说用一种内部格式提高变量的访问速度，同一时刻只对一个变量起作用。函数名lcuc调用语法retval = lc(string);retval = uc(string);解说将字符串全部转换成小/大写字母。函数名lcfirstucfirst调用语法retval = lcfirst(string);retval = ucfirst(string);解说将第一个字母转换成小/大写。函数名quota

48、meta调用语法newstring = quotemeta(oldstring);解说将非单词的字母前面加上反斜线()。语句 ： $string = quotemeta($string);等效于：$string = s/(W)/$1/g;常用于模式匹配操作中，确保字符串中没有字符被看作匹配操作符。函数名join调用语法join (joinstr, list);解说把字符串列表(数组)组合成一个长的字符串，在每两个列表元素间插入串joinstr。函数名sprintf调用语法sprintf (string, fields);解说与printf类似，区别是结果不输出到文件，而作为返回值赋给变量。例子

49、$num = 26;$outstr = sprintf(%d = %x hexadecimal or %o octaln,$num, $num, $num);print ($outstr);结果输出26 = 1a hexadecimal or 32 octal四、标量转换函数函数名chop调用语法$lastchar = chop (var);解说var可为变量或数组，当var为变量时，最后一个字符被删除并赋给$lastchar，当var为数组/列表时，所有元素的最后一个字符被删除，最后一个元素的最后一个字母赋给$lastchar。函数名chomp调用语法result = chomp(var);

50、解说检查字符串或字符串列表中元素的最后一个字符是否为由系统变量$/定义的行分隔符，如果是就删除。返回值为实际删除的字符个数。函数名crypt调用语法result = crypt (original, salt);解说用DES算法加密字符串，original是将要加密的字符串，salt是两个字符的字符串，定义如何改变DES算法，以使更难解码。返回值为加密后的串。函数名hex调用语法decnum = hex (hexnum);解说将十六进制数(字符串形式)转化为十进制数。函数名int调用语法intnum = int (floatnum);解说将浮点数舍去小数部分转化为整型数。函数名oct调用语法d

51、ecnum = oct (octnum);解说将八进制数(字符串形式)或十六进制数(0 x.形式)转化为十进制数。函数名ord调用语法asciival = ord (char);解说返回单个字符的ASCII值，与PASCAL中同名函数类似。函数名chr调用语法$char = chr (asciival);解说返回ASCII值的相应字符，与PASCAL中同名函数类似。函数名pack调用语法formatstr = pack(packformat, list);解说把一个列表或数组以在实际机器存贮格式或C等编程语言使用的格式转化（包装）到一个简单变量中。参数packformat包含一个或多个格式字符

52、，列表中每个元素对应一个，各格式字符间可用空格或tab隔开，因为pack忽略空格。除了格式a、A和外，重复使用一种格式多次可在其后加个整数，如： $twoints = pack (i2, 103, 241);把同一格式应用于所有的元素则加个*号，如： $manyints = pack (i*, 14, 26, 11, 83);对于a和A而言，其后的整数表示要创建的字符串长度，重复方法如下： $strings = pack (a6 x 2, test1, test2);格式的情况比较特殊，其后必须加个整数，该数表示字符串必须的长度，如果长度不够，则用空字符(null)补足，如： $output

53、= pack (a 6 a, test, test2);pack函数最常见的用途是创建可与C程序交互的数据，例如C语言中字符串均以空字符(null)结尾，创建这样的数据可以这样做： $Cstring = pack (ax, $mystring);下表是一些格式字符与C中数据类型的等价关系：字符 等价C数据类型CcharddoubleffloatiintIunsigned int (or unsigned)llongLunsigned longsshortSunsigned short完整的格式字符见下表。 格式字符 描述a用空字符(null)补足的字符串A用空格补足的字符串b位串，低位在前B位

54、串，高位在前c带符号字符（通常-128127）C无符号字符（通常8位）d双精度浮点数f单精度浮点数h十六进制数串，低位在前H十六进制数串，高位在前i带符号整数I无符号整数l带符号长整数L无符号长整数n网络序短整数N网络序长整数p字符串指针s带符号短整数S无符号短整数u转化成uuencode格式vVAX序短整数VVAX序长整数x一个空字节X回退一个字节以空字节(null)填充函数名unpack调用语法list = unpack (packformat, formatstr);解说unpack与pack功能相反，将以机器格式存贮的值转化成Perl中值的列表。其格式字符与pack基本相同（即上表），

55、不同的有：A格式将机器格式字符串转化为Perl字符串并去掉尾部所有空格或空字符；x为跳过一个字节；为跳过一些字节到指定的位置，如4为跳过4个字节。下面看一个和X合同的例子： $longrightint = unpack (* X4 L, $packstring);此语句将最后四个字节看作无符号长整数进行转化。下面看一个对uuencode文件解码的例子：1 : #!/usr/local/bin/perl2 : 3 : open (CODEDFILE, /u/janedoe/codefile) |4 : die (Cant open input file);5 : open (OUTFILE, o

56、utfile) |6 : die (Cant open output file);7 : while ($line = ) 8 : $decoded = unpack(u, $line);9 : print OUTFILE ($decoded);10: 11: close (OUTFILE);12: close (CODEDFILE); 当将pack和unpack用于uuencode时，要记住，虽然它们与UNIX中的uuencode、uudecode工具算法相同，但并不提供首行和末行，如果想用uudecode对由pack的输出创建的文件进行解码，必须也把首行和末行输出（详见UNIX中uuenc

57、ode帮助）。函数名vec调用语法retval = vec (vector, index, bits);解说顾名思义，vec即矢量(vector)函数，它把简单变量vector的值看作多块(维)数据，每块含一定数目的位，合起来即一个矢量数据。每次的调用访问其中一块数据，可以读取，也可以写入。参数index就象数组下标一样，提出访问哪一块，0为第一块，依次类推，要注意的是访问次序是从右到左的，即第一块在最右边。参数bits指定每块中的位数，可以为1,2,4,8,16或32。例子1 : #!/usr/local/bin/perl2 : 3 : $vector = pack (B*, 1101001

58、1);4 : $val1 = vec ($vector, 0, 4);5 : $val2 = vec ($vector, 1, 4);6 : print (high-to-low order values: $val1 and $val2n);7 : $vector = pack (b*, 11010011);8 : $val1 = vec ($vector, 0, 4);9 : $val2 = vec ($vector, 1, 4);10: print (low-to-high order values: $val1 and $val2n); 结果high-to-low order valu

59、es: 3 and 13low-to-high order values: 11 and 12函数名defined调用语法retval = defined (expr);解说判断一个变量、数组或数组的一个元素是否已经被赋值。expr为变量名、数组名或一个数组元素。如果已定义，返回真，否则返回假。函数名undef调用语法retval = undef (expr);解说取消变量、数组或数组元素甚至子程序的定义，回收其空间。返回值始终为未定义值，此值与空串等效。五、数组和列表函数函数名grep调用语法foundlist = grep (pattern, searchlist);解说与同名的UNIX查找工具类似，grep函数在列表中抽取与指定模式匹配的元素，参数pattern为欲查找的模式，返回值是匹配元素的列表。例子list = (This, is, a, test);foundlist = grep(/tT/, list);结果foundlist = (This, test);函数名splice调用语法retval = splice (array, slipelements, length, n