Perl读写⽂件字符串操作
Perl中读写⽂件的⽅法⾮常简单，可以使⽤open或sysopen函数来打开⽂件，linux下运⾏perl 脚本只需 ./XX.pl 或 perl XX.pl。
读⽂件
open(⽂件句柄, "<⽂件名")；或者 open(⽂件句柄, "⽂件名");
如：open (IN, "./");
  while (<IN>) {
    chomp; #去掉换⾏符(/n);
    print $_; #perl将每⼀⾏赋给“$_”这样⼀个内置变量⾥。
  }
  close(IN);
写⽂件
open(⽂件句柄, ">⽂件名"); #覆盖原⽂件的内容。
open(⽂件句柄, ">>⽂件名"); #追加写⼊⽂件。
如：open (OUT, "./");
  my $str = "I love Perl.";
linux怎么读文件内容  print OUT "$str\n";
  close(OUT);
PS：在读写⽂件时，经常伴有对字符串的拆分，这时⼀个⾮常有⽤的函数是split函数，把字符串分割并将结果存⼊数组中，下⾯做简单介绍：
perl的split函数使⽤正则表达式，未特定则⼯作在$_上。
⽤法：@array = split (/<reg>/, $line)；或@array = split(/<reg>/);
如：$str="Caine:Michael:Actor:14,LeafyDrive";
@array=split(/:/,$str); #@array=("Caine","Michael","Actor","14,LeafyDrive");
//之间表⽰split⽤到的正则表达式(或分隔法则);
\s是⼀种常⽤的通配符，代表空格。
+代表重复⼀次或者⼀次以上；
故\s+代表⼀个或者⼀个以上的空格；
字符串⽐较⽤“eq” 和“ne”；
字符串连接⽤ “.” 。
截取字符串：my $substr1=substr("I love Perl",2,5);#截取第三个字符开始的5个字符，即“love ”；

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。