perl用变量做句柄介绍

#!/usr/bin/perl -w
use strict;
use warnings;
use FileHandle;
my %fh;
my @array = (1..10);
for(1..5){
        open $fh{$_},">$_.txt" or die;
}
for(1..5){
        #print $fh{$_} "$_n";  此处错误
        $fh{$_}->print( "$_n" );
　　  #为FileHandle里的函数 或 用（my $h = $fh{$_};  print $h "$_n"；）亦可
 }

注意：上述错误是由于：<>里面不是简单标量就会被当glob，Perl 支持 <FILEHANDLE> 或者是 <$scalar> .

Perl学习基本备忘录
1.Perl数组(1):1)初始化数组@array=("stringA","stringB","stringC");2)使用负索引循环检索print$array[-1];#输出索引为(-1+3)%3=2的stringC3)动态增长$array[4]="stringD";#虽然$array

Perl 字符串处理备忘录
1.chop和chomp函数两个函数都以字符串作为参数，并去除其末尾最后一个字符。区别是，无论最后一个字符是什么，chop都会去除，并在返回值中返回；而

perl处理csv文件的小例子
#!/usr/bin/perl#usestrict;open(FILE1,"C:/Perl/BX/BX-Users.csv");open(FILE2,"C:/Perl/BX/BX-Books.csv");open(FILE3,"C:/Perl/BX/BX-Book-Ratings.csv");open(result1,"C:/Perl/BX/BX-Users.txt");my%table;my$r