#！usr/bin/perl -W

use strict;

use Spreadsheet::ParseExcel;

use utf8;

#引入utf8模块 脚本内的字符串使用utf8作为编码格式

binmode(STDOUT,":encoding(gbk)");

#标准输出使用gbk作为编码格式，也可以把gbk改为gb2312

binmode(STDIN,":encoding(gbk)");

#如果涉及到输入流，例如读文件，不加这条读中文文件会出现乱码

binmode(STDERR,":encoding(gbk)");

#如果异常错误中的字符串有中文，请加上STDERR，否则也会出现乱码

#以写的方式打开文件,如果没有该文件，尝试创建该文件,如果文件存在，那么文件内容被清空

if(open(data, ">test1.txt"))

{

   print "以写的方式打开文件成功\n";
   #写入数据到txt文件中 
   print data "写入数据到test1中\n";

   close(data);

}

else

{

   die "test1.txt 文件无法打开, $!\n";  #没有该文件，提示：can't open perl script "operation.pl": no such file or directory

}

#以读的方式打开文件，如果没有该文件，不会创建该文件

if(open(data, "<test2.txt"))

{

   print "以读的方式打开文件成功\n";

   #逐行读取文件数据，通过文件句柄操作符

   while(<data>)

   {

     print "$_";

   }

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

else

{

   die "test2.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory

}

#读写方式打开文件，如果没有该文件，就会创建该文件，如果文件存在，文件内容会被清空

if(open(data, "+>test3.txt"))

{

   print "以读写的方式打开文件成功\n";

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

else

{

   die "test3.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory

}

#读写方式打开文件，如果文件不存在，不会被创建。如果文件已经存在，原来的数据不会被清除。

if(open(data, "+<test4.txt"))

{

   print "以读写的方式打开文件成功\n"; #

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

else

{

   die "test4.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory

}

#如果要向文件追加数据，则在追加数据之前只需要以追加的方式打开文件，文件内容不会被清空，而是向尾部追加数据，文件不存在就会被创建

if(open(data,">>test5.txt"))

{

   print "以追加的方式打开文件成功\n";

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

else

{

   die "test5.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory

}

#如果需要读取追加的文件，文件不存在就会被创建

if(open(data,"+>>test6.txt"))

{

   print "以读取追加文件的方式打开文件成功\n"; 
   #追加内容到文件中 
   print data "追加内容到test5中";

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

else

{

   die "test6.txt 文件无法打开, $!\n"; #没有该文件，提示：can't open perl script "operation.pl": no such file or directory

}

#以读的方式打开文件，如果没有该文件，不会创建该文件

if(open(data, "<test2.txt"))

{

   print "以读的方式打开文件成功\n";

   #从键盘返回一个字符

   my $key = getc(STDIN);

   print "Entered value is $key\n";

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

if(open(data, "<test2.txt"))

{

   print "以读的方式打开文件成功\n";

   my $SCALAR;

   read(data, $SCALAR, 2, 0);#读取的数据保存在SCALAR中，读取的长度为2

   print "$SCALAR";

   #使用完后要关闭文件

   close(data) || die "无法关闭文件";

}

#!/usr/bin/perl

# 只读方式打开文件

open(data1, "<test1.txt");

# 打开新文件并写入

open(data2, ">test2.txt");

# 拷贝数据

while(<data1>)

{

   print data2 $_;

}

print "拷贝数据成功\n";

close( data1 );

close( data2 );

#文件重命名

rename("D:/test1.txt","D:/test1_Rename.txt");

#删除文件

unlink("D:/test1_Rename.txt");

if(open(data1, "+<test1.txt"))

{

  my $position=tell data1;

  print "position:$position";#输出文件指针的位置0

  close data1;

}