打开一个文件并加写入些东西。

devel

#!/usr/bin/perl -w
use strict;  #使用规范的格式检查脚本。
$a=9;
open (FILE,">>tmp.txt") or die "could not open tes.txt!";  #打开文件，>>的作用是附加。
while ($a>3 ){            #写操作。
print FILE "well\n";
$a--;
}
close FILE ;  #关闭文件句柄，关闭文件。

devel

也可以调用IO::File达到同样的功能。

R# cat print.pl
#!/usr/bin/perl -w
use IO::File;  # 调用IO::File
my $fh=IO::File->new(">log.txt");   #用IO::File-new()的方法打开一个文件，返回一个文件句柄。
print $fh "firest\n";
print $fh "second\n";  #这两行是写操作。
close $fh;   #关闭句柄。

georgek

devel 有沒有興趣當版主?
要是有我第一個?硗赌阋黄 ;)

打印出文件的行数，由georgek提供。

#!/bin/perl -w
my $counter=0;
open(my $fh,'test');
while (my $line=<$fh>){$counter++;}
print "counted $counter line\n";

devel

最初由 georgek 发表
devel 有沒有興趣當版主?
要是有我第一個?硗赌阋黄 ;)

:help  :help :beat :beat :beat :beat  :comp :comp :comp

georgek

hoho, 想?響摕o人反對

devel

换了系统，就不知道你打了什么字了:ask:ask看不出来。

devel

最初由devel发表
hoho, 想?響摕o人反對

原来georgek 想当版主很久了。你要当版主就投你一票