perl 程序如何跳过空行

54red

我的数据是下面图片的格式，发现总会多出一个空行来
当我用 map{chomp;@data=split/\t/,$_;hash{data[0]}="data[1]\n";}@data_old
就会提示我最后一行有问题，我试过加上
next unless $_!~/^$/;
if ($_=~/^\s*$/){last;}
next if /^s*$/;
都没效果，拜托各位帮忙看看！我该怎么写，或者哪里的错误！

substr函数

回复 1# 54red

总会多出一个空行来

pop @data_old;
map{chomp;@data=split/\t/,$_;hash{data[0]}="data[1]\n";}@data_old

54red

好像不是多的那个空格的问题，去了仍然有问题，我再找找问题。。。。

54red

谢谢，不过好像不是多的那个空格的问题，去了仍然有问题，我再找找问题。。。。回复 2# substr函数


   

MMMIX

回复 1# 54red


    为什么不直接拷贝粘贴实际的代码, 而是手工输入一些错误的上来?

xiaoxingan99

贴个全部的代码看看吧
另外问一句 hash{data[0]}="data[1]\n"这句没问题么？

54red

代码还没写完我现在写一点运行一点，那个有问题多个\n回复 6# xiaoxingan99


   

54red

实际的hash后面的值太长了，大概20几个回复 5# MMMIX


   

MMMIX

回复 8# 54red


    算了,反正编程也不是你的主业...

rubyish

Ni shi ruhe dedao @data_old de?