位置: 编程技术 - 正文

Perl的经典用法分享(perl有什么用)

编辑:rootadmin

用Open() 函数打开文件

打开文件的常用方法是:

open() 函数通常带有两个参数,第一个为文件句柄,用于指向打开的文件,第二个参数是文件名及模式(文件的打开模式)的混合体,如果文件被成功打开,open()函数返回true,否则为false。我们用“or”来测试该条件。上述代码中的模式由小于字符(<)来表示。如果文件不存在,open()将返回false。此时,你可以读文件句柄,但不可以写。大于字符表示写。如果文件不存在,就会被创建。如果文件存在,文件被清除,以前的数据将会丢失。你可以写入文件句柄,但不可以读入。

如果文件不存在,添加模式(用两个大于符号表示)可以用来创建新文件,如果文件存在,该模式并不会清除原来的数据。同“<”或“读”模式一样,你只能对文件句柄进行写操作。 (所以的写入内容都添加到文件尾)。企图进行读操作,会产生运行错误。

通过“+<”模式,你可以既可以读文件,又可以写文件。你可以通过tell() 函数在文件内部移动,通过seek()函数进行定位。如果文件不存在,就会被创建。如果文件已经存在,原来的数据不会被清除。如果你打算清除原来的文件内容,或者自己调用truncate() 函数,或者使用“+>”模式。

注意“+<”和“+>”的区别,两者都可以可读可写。前者为非破坏性写,后者为破坏性写。错误错误是如何出现的?很多地方都会出现错误:如目录不存在,文件不可写入,你的程序丢失了文件句柄等等。你应该检查系统调用的结果 (如open() 和sysopen()),看看是否调用成功。为了帮助用户查错,通常使用“or die()”,你应记住这些用法。首先,应写出系统调用失败(“open”)的信息。其次,应写出文件名的信息,以便修正错误时更容易地定位。第三,要写出打开文件的方式, (“for writing,”“for appending”)。第四,输出操作系统的出错信息(包含在$!中)。这样,一旦出现文件不能打开的问题,使用你的程序的用户会大体上知道为什么不能打开。有时,我们把第一个和第三个合并在一起:or die "unable to append to $filename: $!";

如果在open() 和出错信息中都写了文件的全名,你会冒改变了open() 的风险,使得出错信息不合时宜或不正确。用 Sysopen()进行更多的控制 为了更好的控制文件的打开方式,可以使用 sysopen() 函数: 函数 sysopen() 带有四个参数,第一个是同open()函数类似的文件句柄参数,第二个参数是不带模式信息的文件名,第三个参数是模式参数,由Fcntl 模块提供的逻辑OR运算组合起来的常数构成,第四个参数(可选),为八进制属性值(表示数据文件, 表示程序)。如果文件可以被打开,sysopen() 返回true,如果打开失败,则返回false。不同于open()函数,sysopen()不提供模式说明的简写方式,而是把一些常数组合起来,而且,每个模式常数有唯一的含义,只有通过逻辑OR运算才能将它们组合起来,你可以设置多个行为的组合。O_RDONLYRead-only O_WRONLY Write-only O_RDWR Reading and writing O_APPEND Writes go to the end of the file O_TRUNC Truncate the file if it existed O_CREAT Create the file if it didn't exist O_EXCLError if the file already existed (used with O_CREAT)

当你需要小心行事的时候,就使用sysopen() 函数,例如,如果你打算添加内容到文件中,如果文件不存在,不创建新文件,你可以这样写:sysopen(LOG, "/var/log/myprog.log", O_APPEND, )or die "Can't open /var/log/myprog.log for appending: $!";

读入单个记录有一个容易的方法读入filehandles:用 <FH> 操作符。在标量内容下,它返回文件中的下一个记录,或者返回未定义出错信息。我们可以使用它来把一行读入到一个变量中:$line = <FH>; die "Unexpected end-of-file" unless defined $line;在循环语句中,我们可以这样写:因为要大量进行这样的工作,通常再进行一下简化,把记录放到$_ 中,而不是$record中:defined() 将自动加上,在Perl 5._以前的版本中,该命令给出一个警示。要了解所用的Perl版本,可在命令行下打入: perl -v一旦我们读出了一个记录,通常打算去掉记录分隔符,(缺省值为换行符字符):chomp($record);Perl 4.0版本仅有chop()操作,去掉串的最后一个字符, 不管该字符是什么。chomp() 没有这么大的破坏性,如果有行分隔符存在,它仅去掉行分隔符。如果你打算去掉行分隔符,就用chomp() 来代替chop()。读入多个记录如果你调用<FH>,返回文件中剩余的记录。如果你处于文件尾,则返回空表:在下面的一步中,进行赋值和测试两项工作:chomp() 也可适用对数组操作: @records = <FH>; chomp(@records); 对于任何表达式,都可以进行chomp操作,故你可以在下面的一步中这样写: chomp(@records = <FH>);

什么是记录?记录的缺省定义为:“行”。记录的定义由$/ 变量控制的,该变量存放所输入的记录的分隔符,因为换行符字符(根据定义!)是用来分隔行的,故其缺省值为串“ ”。例如,你可以用任何你想要替换的符号来代替“ ”。 $/ = ";"; $record = <FH>; # 读入下一个用分号分隔的记录$/可以取其它两个有趣的值:空串("") 和undef。读入段落$/ =""的写法是用来指示Perl读入段落的,段落是由两个或两个以上的换行符构成的文本块。这不同于设置为" ",后者仅读入由两行组成的文本块。在这种情况下,将出现这样一个问题:如果有连续的空行存在,例如“text ”,你既可以把它解释为一个段落 ("text"),也可以解释为两个段落 ("text", 后面跟两个换行符,以及一个空段落,后面跟两个空行。) 在读入文本时,第二个解释用途不大。如果你正在读的段落出现上述情况,你不必过滤出“空”段落。你可以把 $/设置为undef,它用于读入后面跟着两个或多个换行符组成的段落: undef $/;while (<FH>) { chomp; # ... }

读入整个文件$/ 的其它有趣的值为undef。如果设置为该值,就将告诉Perl,读命令将把文件的剩余部分作为一个串返回:因为改变了 $/的值,将会影响以后的每次读操作,而不仅是下一个读操作。通常,你需要将该操作限制在局部。通过下面的例子,可以把文件句柄的内容读入到一个串中:记住:Perl变量可读入很长的串。尽管你的文件大小不可以超出你的虚拟内存容量的限度,你仍可以读入尽可能多的数据。用正则表达式对文件进行操作一旦你有个包含了整个串的变量,你可以使用正则表达式,对整个文件进行操作,而不是对文件中的某个块进行操作。有两个有用的正则表达式标记/s和/m。一般,Perl的正则表达式对行进行处理,你可以这样写:如果把我们的文件填入如下内容: browngrass bluegrass则输出为:found bluegrass它没有找到“browngrass”,这是因为$ 仅在串尾寻找其匹配, (或者在串结束前的一行)。如果在包含很多行的串中,用"^" 和"$" 来匹配,, 我们可以使用 /m ("multiline") 选项:if ($line =~ /(b.*grass)$/m) {}现在程序会把如下的信息输出: found browngrass类似地,句点可以匹配除了换行符之外的所有字符:如果我们从文件中读入“”,$_ 将包含“ ”。正则表达式中的句点匹配“8”和“1”, 而不匹配“ ”。这里正需要这样做,因为换行符不是日期的组成部分。对于一个包含很多行的串,我们也许要提取其中的大的块,这些块可能会跨越行分隔符。在这种情况下,我们可以使用 /s 选项,并用句点来匹配除了换行符以外的所有字符。此处,我用了{}来表示正则表达式的起始和结束,而不用斜杠,所以,我就可以告诉 Perl我正在匹配,起始字符为"m",结束字符为"s"。你可以把/s 和/m 选项组合使用:总结有两种方法打开文件:open()函数的特点是快速简捷,而sysopen()函数功能强大而复杂。通过 <FH> 操作符,可以读入一个记录,$/ 变量可以让你控制记录是什么。如果你打算把很多行的内容读入到一个串中,不要使用忘记/s和/m 这两个正则表达式标记。

推荐整理分享Perl的经典用法分享(perl有什么用),希望有所帮助,仅作参考,欢迎阅读内容。

Perl的经典用法分享(perl有什么用)

文章相关热门搜索词:perl常用函数,perl主要用处,perl ne,perl的$_,perl的chomp,perl的chomp,perl的$_,perl 基本语法,内容如对您有帮助,希望把文章链接给更多的朋友!

perl文件操作的一些例子分享 删除文件使用unlinke函数,比如unlink$file,unlink$file1,$file2,$file3打开文件使用三参数的形式打开文件,这样非常便于区分模式和文件名,perl5.6之后的版本

perl 中的or与||的区别 来看看下面的代码会输出什么?my$a=0;$a=$aor1;print$a,"n";$a=$a||1;print$a,"n";输出:为什么呢?因为||,=,or这三者优先级从左至右逐渐降低。所以,这样写可

Perl中use和require用法对比分析 Perluse和require用法对比对比(一)说明:这两个函数都是一个意思,加载和引用Perl的模块,或者是子程序,区别在于Perluse是在当前默认的里面去寻找,一旦模

标签: perl有什么用

本文链接地址:https://www.jiuchutong.com/biancheng/372472.html 转载请保留说明!

上一篇:perl 文件操作总结(perl 文本文件处理)

下一篇:perl文件操作的一些例子分享(perl 文件)

  • 投资者投入固定资产的合同或协议约定
  • 视同销售行为涉税处理?
  • 以现金支付
  • 企业筹建期间契税账务处理
  • 个人提供建筑安装劳务如何缴纳个人所得税
  • 提取的应交增值税怎么算
  • 限定性资产账务处理
  • 新政府会计制度下属于负债类科目的是
  • 个体户每个月开10万会查吗
  • 库存商品暂估后怎么结转
  • 增值税专用发票和普通发票的区别
  • 本年本期累计
  • 工会经费滞纳金是多少
  • 收入跨期审计调整分录如何滚调
  • 增值税普通发票几个点
  • 水电费差价收入计算增值税公式是怎样的?
  • 消费税组成计税价
  • 车辆保险属于金融机构吗
  • 公账转私账用途怎么写
  • 文化建设服务费减免
  • 企业应交增值税的计算公式
  • 借老板的现金存入银行怎么做账?
  • 滞纳金入什么会计科目
  • 利息收入是否缴纳印花税
  • 专用发票的审核要多久
  • 财政性资金是不含税的吗
  • 退税收入计入营业外收入吗
  • win101703怎么看
  • 如何在excel中取最早与最晚
  • 销售回款率的具体指标
  • 工伤保险的作用有
  • 法律规定公司必须要有的制度
  • win10蓝屏怎么弄
  • 小米无线路由器internet黄灯
  • 坏账损失税务处理
  • vue.js mvvm
  • 简单的随机乱码怎么解决
  • 现金流量表的编报时间有
  • 安装windows(install windows)
  • 圣米厄尔教堂
  • Yii2 rbac权限控制之菜单menu实例教程
  • 购买办公用品入库如何做账务处理
  • 基于Selenium的自动化测试平台设计与实现
  • spring的aoc和aop
  • 来料加工成品如何入库
  • 装修费用一次性计入成本
  • 转出未交增值税会计处理
  • 扶贫资金入股问题
  • mysql查询表里数据
  • 一般纳税人认定管理办法
  • 库存商品和固定资产是单位会计资产核算的两项内容
  • 工资单应该盖什么章
  • sqlserver如何使用
  • 期货风险准备金计提比例
  • 盘盈盘亏怎么填写
  • 购买原材料没有发票能入库吗
  • 资金周转率计算公式
  • 盈余公积多计提对报表的影响
  • 未分配利润的
  • 发票怎么保管不会坏
  • 进出口企业需要哪些手续
  • 管理费用的明细科目如何设置
  • sqlserver
  • mysql安全性控制语句
  • mysql数据库增量备份命令
  • 笔记本开机白屏进不了桌面
  • 装win7ahci
  • Win10 Mobile RS2预览版14905更新内容大全:全新精致铃声
  • linux编译安装php扩展
  • centos打包文件
  • 麒麟linux系统怎么安装软件
  • linux的安装方法
  • javascript中call apply 与 bind方法详解
  • 脚本语言教程
  • html5翻页效果
  • websocket npm
  • 安卓手机管家下载
  • ajax实现无刷新
  • 融资租赁公司购入老旧租赁资产会计处理
  • 北京市印花税减免政策
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设