| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> perl >> 适合初学者的Perl的文件操作(1) shi he chu xue zhe de Perl de wen jian cao zuo (1)
 

适合初学者的Perl的文件操作(1)

2008-05-19 06:25:51 编辑來源:互联网 繁體版 评论
 
 
本文为【适合初学者的Perl的文件操作(1)】的汉字拼音对照版显示拼音
  weilegenghaodekongzhiwenjiandedakaifangshikeyi使shiyong sysopen() hanshu

  use Fcntl;

  sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)

  or die "Can't open $filename for reading/writing/creating : $!";

  hanshu sysopen() daiyousigeshenshudiyigeshitongopen()hanshuleisidewenjianjubingshenshudiergeshenshushibudaimoshixinxidewenjianmingdisangeshenshushimoshishenshuyouFcntl mokuaitigongdeluojiORyunsuanzuheqilaidechangshugouchengdisigeshenshu(kexuan)weibajinzhishuxingzhi(0666biaoshishujuwenjian 0777biaoshichengxu)ruguowenjiankeyibeidakaisysopen() fanhuitrueruguodakaishibaizefanhuifalse

  butongyuopen()hanshusysopen()butigongmoshishuomingdejianxiefangshiershibayixiechangshuzuheqilaierqiemeigemoshichangshuyouweiyidehanyizhiyoutongguoluojiORyunsuancainengjiangtamenzuheqilainikeyishezhiduogexingweidezuhe

  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)

  dangnixuyaoxiaoxinxingshideshihoujiu使shiyongsysopen() hanshuliruruguonidasuantianjianeirongdaowenjianzhongruguowenjianbucunzaibuchuangjianxinwenjiannikeyizheyangxie

  sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666)

  or die "Can't open /var/log/myprog.log for appending: $!";

  durudangejilu

  youyigerongyidefangfadurufilehandlesyong caozuofuzaibiaoliangneirongxiatafanhuiwenjianzhongdexiayigejiluhuozhefanhuiweidingyichucuoxinxiwomenkeyi使shiyongtalaibayixingdurudaoyigebianliangzhong

  $line = ;

  die "Unexpected end-of-file" unless defined $line;

  zaixunhuanyujuzhongwomenkeyizheyangxie

  while (defined ($record = )) { # long-winded

  # $record is set to each record in the file, one at a time

  }

  yinweiyaodaliangjinxingzheyangdegongzuotongchangzaijinxingyixiajianhua

  bajilufangdao$_ zhongerbushi$recordzhong

  while () {

  # $_ meiciweiwenjianzhongdeyigejilu

  }

  zaiPerl 5.004_04zhongwomenkeyizheyangzuo

  while ($record = ) {

  # $record meiciweiwenjianzhongdeyigejilu

  }

  defined() jiangzidongjiashangzaiPerl 5.004_04yiqiandebanbenzhonggaiminglinggeichuyigejingshiyaolejiesuoyongdePerlbanbenkezaiminglingxingxiadaru

  perl -v

  yidanwomenduchuleyigejilutongchangdasuanqudiaojilufengefu(queshengzhiweihuanxingfuzifu)

  chomp($record);

  Perl 4.0banbenjinyouchop()caozuoqudiaochuandezuihouyigezifu, buguangaizifushishenmechomp() meiyouzhemedadepohuaixingruguoyouxingfengefucunzaitajinqudiaoxingfengefuruguonidasuanqudiaoxingfengefujiuyongchomp() laidaitichop()

  原文】【拼音
 
 
 
 
上一篇《Linux环境中的Mod_perl编程介绍》
下一篇《适合初学者的Perl的文件操作(2)》
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
  为了更好的控制文件的打开方式,可以使用 sysopen() 函数:   use Fcntl;   sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)   or die "Can't open $filename for reading/writing/creating : $!";   函数 sysopen() 带有四个参数,第一个是同open()函数类似的文件句柄参数,第二个参数是不带模式信息的文件名,第三个参数是模式参数,由Fcntl 模块提供的逻辑OR运算组合起来的常数构成,第四个参数(可选),为八进制属性值(0666表示数据文件, 0777表示程序)。如果文件可以被打开,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, 0666)   or die "Can't open /var/log/myprog.log for appending: $!";   读入单个记录   有一个容易的方法读入filehandles:用 操作符。在标量内容下,它返回文件中的下一个记录,或者返回未定义出错信息。我们可以使用它来把一行读入到一个变量中:   $line = ;   die "Unexpected end-of-file" unless defined $line;   在循环语句中,我们可以这样写:   while (defined ($record = )) { # long-winded   # $record is set to each record in the file, one at a time   }   因为要大量进行这样的工作,通常再进行一下简化,   把记录放到$_ 中,而不是$record中:   while () {   # $_ 每次为文件中的一个记录   }   在Perl 5.004_04中,我们可以这样做:   while ($record = ) {   # $record 每次为文件中的一个记录   }   defined() 将自动加上,在Perl 5.004_04以前的版本中,该命令给出一个警示。要了解所用的Perl版本,可在命令行下打入:   perl -v   一旦我们读出了一个记录,通常打算去掉记录分隔符,(缺省值为换行符字符):   chomp($record);   Perl 4.0版本仅有chop()操作,去掉串的最后一个字符, 不管该字符是什么。chomp() 没有这么大的破坏性,如果有行分隔符存在,它仅去掉行分隔符。如果你打算去掉行分隔符,就用chomp() 来代替chop()。   
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
华丽的模特拍摄(8)
华丽的模特拍摄(7)
华丽的模特拍摄(6)
华丽的模特拍摄(5)
八里沟
朝阳宫
天下峨眉 云上金顶
老家(四)
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
©2005- 王朝网络 版权所有