主頁 > 知識庫 > perl對長度不一文本的行列進行置換的實現(xiàn)代碼

perl對長度不一文本的行列進行置換的實現(xiàn)代碼

熱門標簽:浦東上海400開頭的電話申請 買了外呼系統(tǒng)不想用了怎么辦 真人語音電銷機器人系統(tǒng) 武漢呼叫中心外呼系統(tǒng)線路商 電話機器人電話卡封號怎么辦 邯鄲外呼調(diào)研線路 樂昌電話機器人 開封百應(yīng)電銷機器人聯(lián)系方式 北京語音電銷機器人價格

有時遇到各行或各列的長度不一致時就麻煩了,雖然可以在R里面把文件按最長的行(列)填充,但是不便,所以想起用perl去實現(xiàn)一個。
由逗號分隔的不定長度的文本文件, 現(xiàn)要實現(xiàn)行列轉(zhuǎn)置, 即由

復(fù)制代碼 代碼如下:

1,2,3,4,5,6,
7,8,9,
10,11,12,13,
轉(zhuǎn)換為:
1,7,10,
2,8,11,
3,9,12,
4,  ,13,
5,  ,    ,
6,  ,    ,

以下是完整的代碼,供大家參考。

復(fù)制代碼 代碼如下:

#!/usr/bin/perl -w
my @matrix;
my $max_len = 0;
while(DATA>){
chomp;
s/,$//g;
my @fields = split /,/, $_;
my $len = @fields;
$max_len = $max_len > $len ? $max_len : $len;
push @matrix, [@fields];
}
for my $col (0..$max_len - 1){
for my $line (@matrix){
print $line->[$col] || ' ', ',';
}
print "\n";
}
__DATA__
1,2,3,4,5,6,
7,8,9,
10,11,12,13,

準備學(xué)習(xí)下,自己動手實現(xiàn)一遍,最好是做成模板,隨調(diào)隨用。

標簽:河北 宜春 自貢 石嘴山 六安 鄂州 淄博 松原

巨人網(wǎng)絡(luò)通訊聲明:本文標題《perl對長度不一文本的行列進行置換的實現(xiàn)代碼》,本文關(guān)鍵詞  perl,對,長度,不一,文本,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《perl對長度不一文本的行列進行置換的實現(xiàn)代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于perl對長度不一文本的行列進行置換的實現(xiàn)代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章