怎样用perl添加数据到文件头部

不大的话可以这样。。。

先写一个临时文件，临时文件里写helloworld

然后一行一行把原来文件写到临时文件里。

删除原来的文件

把临时文件拷到原来文件那个地方

删除临时文件

完毕

如果是将这一行插入到数组的最后一个单元中，直接使用push(@array,'值')，就可以了；

看你上面的内容应该是将不同的单词放到数组的不同单元中，且提供的内容“MagnoliophytaEricalesActinidiaceaeActinidia”是以半角“”做为分隔的，那么使用@array=split(//,'MagnoliophytaEricalesActinidiaceaeActinidia')就可以了；

例如（本例中用空格做为分隔）：

my $crt="MagnoliophytaEricalesActinidiaceaeActinidia"

my @array=split(/\s/,$crt)

结果：

@array[0]='Magnoliophyta'

@array[1]='Ericales'

@array[2]='Actinidiaceae'

@array[3]='Actinidia'

---