收藏本站 收藏本站
积木网首页 - 技术学院 - 软件测试 - 网站黄页 - 常用手册 - 站长工具 - 技术社区
首页 > perl > 正文

首页 - PHP - 数据库 - 操作系统 - 游戏开发 - JS - Android - MySql - Redis - MongoDB - Win8 - Shell编程 - DOS命令 - jQuery - CSS样式 - Python - Perl

Access - Oracle - DB2 - SQLServer - MsSql2008 - MsSql2005 - Sqlite - PostgreSQL - node.js - extjs - JavaScript vbs - Powershell - Ruby

Perl学习笔记之文件操作

Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。
1. 打开文件

#! c:/perl/bin/perl -w 
use utf8; 
use strict; 
use warnings; 
 
my $filename = 'test.txt'; # 或者用绝对路径,如: c:/perl/Learn/test.txt 
 
if(open(MYFILE,$filename)) # MYFILE是一个标志 
{ 
 printf "Can open this file:%s!", $filename;  
 close(MYFILE); 
} 
else{ 
 print "Can't open this file!"; 
} 


2. 读取文件

#! c:/perl/bin/perl -w 
use utf8; 
use strict; 
use warnings; 
 
my $filename = 'test.txt';  
if(open(MYFILE,$filename)) 
{ 
 my @myfile = <MYFILE>;  #如果要读取多行,用此方法,如果只读取一行为:$myfile = <>; 
 my $count = 0;     #要读取的行数,初始值为0     
 printf "I have opened this file: %sn", $filename; 
 while($count < @myfile){ #遍历 
  print ("$myfile[$count]n"); #注意此种写法. 
  $count++; 
 } 
 close(MYFILE); 
} 
else{ 
 print "I can't open this file!"; 
} 
exit; 

3. 写入文件

#! c:/perl/bin/perl -w 
use utf8; 
use strict; 
use warnings; 
 
my $filename = 'test.txt';  
 
if(open(MYFILE,">>".$filename))  #此种写发,添加不删除 
{                 #此种写法,重写文件内容 MYFILE,">".$filename 
 print MYFILE "Write File appending Testn"; 
 close(MYFILE); 
} 
else{ 
 print "I can't open this file!"; 
} 
exit; 

About Perl(翻译Perl官网介绍)
强大,稳定,成熟,可移植性Perl5是一门有着26年历史的,功能强大的、性能丰富的编程语言。Perl能在超过100种的平台上运行,从便携式设备到大型主机。同

Perl实现高水线算法(解决多值比较问题方法)
"高水线"算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。下面看下"高水线"算法在Perl中的运用。#!/usr/bin/perl;useutf8;submax{my($max_so

Perl中捕获警告信息、异常信息并写入日志详解
虽然建议在每个Perl脚本和模块中开启警告,可是你又不想用户看到Perl发出的警告。一方面你想在代码前面使用usewarnings作为你的安全网,另一方面,通

本周排行

更新排行

强悍的草根IT技术社区,这里应该有您想要的! 友情链接:b2b电子商务
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号