perl-我的第一个程序

1.问题描述：

总共90位长度的位流数据，其中只有5位的数据为1，其余位全部为0。统计好多组5位的简化数据（每一位之间空格隔开，每一组一行），将其扩展到90位。

 #!D:/EDA/Perl/bin
 $path_in = "weiliu.txt";
 $path_out = ">weiliu.dat";
 open(FILE_IN,$path_in)||die"can not open the file: $!";
 open(FILE_OUT,$path_out)||die"can not open the file: $!";
 while ($eachline =<FILE_IN>) {
     chomp $eachline;
     @line = split(/\s+/,$eachline);
     @line_91 = () x ;#初始化一个91位的全为0的数组
     print("@line_91\n");
 
     my $count=;
     while($count <@line){              # （$count <@line）表示的是数组的元素个数
         $line_91[$line[$count]-] = ;# @line中的值指示了@line_91中的对应位变为1.
         $count++;                      # 数组中具体变量用:$数组名[索引值] 来表示.
     }
     print("@line_91\n");    
 
     my $line_new = join('',@line_91); #产生的90位数据之间不应该有空格，将空格合并掉.
     print("$line_new\n");
     print FILE_OUT ($line_new,"\n");
 }
 close FILE_IN;
 close FILE_OUT;
 print("hello world");

其中：

  $path_in = "weiliu.txt";
  $path_out = ">weiliu.dat";

变量$path_in和$path_out分别指向要被读出来进行操作并最终写回的文本文件的路径。当然路径的话可以取绝对路径，不指出绝对路径，则默认是在当前目录下。
windows下路径用反斜杠(/)。如："D:/Perl/test/example.pl"。或者"D:\\Perl\\test\\example.pl"
UNIX下用斜杠(\),双引号。
>表示写，一旦文件以写方式打开，他的内容将被删除，若要对文件进行追加内容，应该用>>。

  open(FILE_IN,$path_in)||die"can not open the file: $!";
  open(FILE_OUT,$path_out)||die"can not open the file: $!";

perl通过文件句柄对文件进行操作 open（file_handle，file_name）。

  while ($eachline =<FILE_IN>) {

读入文件的每一行。保存在变量$eachline中。直到读出所有行，循环才结束。

@line = split(/\s+/,$eachline);
my $line_new = join('',@line_91); 

split用于将一行文本拆分为数组，对数组的每个元素即可进行单独处理。

join将数组变量合并为变量。

     print("$line_new\n");
     print FILE_OUT ($line_new,"\n");

通过句柄将变量输出到文件的每一行。

chomp $eachline;

chomp函数用于去掉字符串结尾的换行，chop用于去掉字符串最后一个字符（包括换行符）（记忆：m相当于加了约束，所以只去掉换行符）。

2.运行结果

3.总结

第一次写perl脚本，花了3个多小时，从print函数开始，到文件操作，基本上熟悉了基本的语法。终于完成了一个工作。以后的工作和学习中会继续探索Perl的用法。