Perl 学习之文件操作

例：

创建文件 test.txt

内容如下：

 

The Rock|Cheer|Rock Bottom
Triple H|Boo|Pedigree
Stone Cold|Cheer|Stone Cold Stunner

我们通过下面的代码就能简单的打开文，打印文件：

 

$data_file="test.txt";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;

print "@raw_data";
close(DAT);

 

但是怎么进行行操作呢，下面的例子中我们就能知道，其实很简单：

 

使用：

foreach 进行按行取值

 

foreach $wrestler (@raw_data)
{
    print $wrestler;
}

 

其中：wrestler很任意；

 

写操作：

 

打开文 ：

$sitedata="websites.cgi";
open(DAT,">>$sitedata") || die("Cannot Open File");
print DAT "Mysite/|http://www.mysite.com/|My website/n";
close(DAT);

 

写入数据：

$sitename="Mysite";
$siteurl="http://www.mysite.com";
$description="My website";
$sitedata="websites.cgi";

open(DAT,">>$sitedata") || die("Cannot Open File");
print DAT "$sitename/|$siteurl/|$description/n";
close(DAT);

 

用户锁文件 ：

需要在脚本头部引：

use Fcntl;

原型为：

flock(HANDLE, CONSTANT);

 

例：

$sitename="Mysite";
$siteurl="http://www.mysite.com";
$description="My website";
$sitedata="websites.cgi";

open(DAT,">>$sitedata") || die("Cannot Open File");
flock(DAT, LOCK_EX);
print DAT "$sitename/|$siteurl/|$description/n";

close(DAT);

 

文件定位：

 

在脚本头部引用：

use Fcntl qw(:flock :seek);

 

Value	Location
SEEK_SET	Beginning of the file
SEEK_CUR	Current position in the file
SEEK_END	End of the file

 

例：

use Fcntl qw(:flock :seek);

 

函数原型：

 

seek(HANDLE, OFFSET, LOCATION);

 

$sitename="Mysite";
$siteurl="http://www.mysite.com";
$description="My website";
$sitedata="websites.cgi";

open(DAT,">>$sitedata") || die("Cannot Open File");
flock(DAT, LOCK_EX);
seek(DAT, 0, SEEK_END);
print DAT "$sitename/|$siteurl/|$description/n";
close(DAT);

 

其它操作：

 

判断文件是否存在：

 

if (-e "filename.cgi")
{
 #proceed with your code
}

 

其它测试符号：

Readable: -r
Writable: -w
Executable: -x

 

目录操作：

opendir(IMD, "/home/yourname/www/images/") || die("Cannot open directory");

读取DIR

@thefiles= readdir(IMD);

注意这里返回的是一个数组，

可以用foreach读取

foreach $f (@thefiles)

对文件过滤可以使用

unless ( ($f eq ".") || ($f eq "..") )