perl 程序如何跳過空行

54red

我的數(shù)據(jù)是下面圖片的格式，發(fā)現(xiàn)總會(huì)多出一個(gè)空行來
當(dāng)我用 map{chomp;@data=split/\t/,$_;hash{data[0]}="data[1]\n";}@data_old
就會(huì)提示我最后一行有問題，我試過加上
next unless $_!~/^$/;
if ($_=~/^\s*$/){last;}
next if /^s*$/;
都沒效果，拜托各位幫忙看看！我該怎么寫，或者哪里的錯(cuò)誤！

substr函數(shù)

回復(fù) 1# 54red

總會(huì)多出一個(gè)空行來

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

54red

好像不是多的那個(gè)空格的問題，去了仍然有問題，我再找找問題。。。。

54red

謝謝，不過好像不是多的那個(gè)空格的問題，去了仍然有問題，我再找找問題。。。。回復(fù) 2# substr函數(shù)


   

MMMIX

回復(fù) 1# 54red


    為什么不直接拷貝粘貼實(shí)際的代碼, 而是手工輸入一些錯(cuò)誤的上來?

xiaoxingan99

貼個(gè)全部的代碼看看吧
另外問一句 hash{data[0]}="data[1]\n"這句沒問題么？

54red

代碼還沒寫完我現(xiàn)在寫一點(diǎn)運(yùn)行一點(diǎn)，那個(gè)有問題多個(gè)\n回復(fù) 6# xiaoxingan99


   

54red

實(shí)際的hash后面的值太長了，大概20幾個(gè)回復(fù) 5# MMMIX


   

MMMIX

回復(fù) 8# 54red


    算了,反正編程也不是你的主業(yè)...

rubyish

Ni shi ruhe dedao @data_old de?