亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 求助將五言詩歌按古代排版順序打印 [打印本頁]

作者: oldknew 時間: 2016-04-17 14:43
標題: 求助將五言詩歌按古代排版順序打印
求教如何將以下文本處理成古代詩歌排版形式
[aii@localhost gjy]$ cat 4.txt
離離原上草
一歲一枯榮
野火燒不盡
春風吹又生

最終打印效果為:
[aii@localhost gjy]$ cat 5.txt
春野一離
風火歲離
吹燒一原
又不枯上
生盡榮草

作者: jason680 時間: 2016-04-17 14:56
回復(fù) 1# oldknew

$ cat 4.txt
離離原上草
一歲一枯榮
野火燒不盡
春風吹又生

$ awk -vFS="" '{for(n=1;n<=NF;n++)a[n]=$n a[n]}END{for(n=1;n<=NF;++n)print a[n]}' 4.txt > 5.txt

$ cat 5.txt
春野一離
風火歲離
吹燒一原
又不枯上
生盡榮草

作者: oldknew 時間: 2016-04-17 15:05
強啊，不過大神能解釋一下么？

作者: jason680 時間: 2016-04-17 15:24
http://72891.cn/thread-2309494-1-1.html

作者: 99超人 時間: 2016-04-18 09:02
提示: 作者被禁止或刪除內(nèi)容自動屏蔽

作者: yinyuemi 時間: 2016-04-18 13:57
回復(fù) 1# oldknew

echo '離離原上草
一歲一枯榮
野火燒不盡
春風吹又生' |sed -nr '1{s/.\B/&\n/g};1!{G;s/(.)([^\n]+)\n(.*)/\2\n#\1\3/;:a;/^\n/!s/(.)([^\n]*)\n((#[^\n]+\n)+)(.+)/\2\n\3#\1\5/;ta;s/^\n//;s/#//g};h;$p'
春野一離
風火歲離
吹燒一原
又不枯上
生盡榮草

復(fù)制代碼

作者: oldknew 時間: 2016-04-18 15:26
牛人

作者: moperyblue 時間: 2016-04-18 16:06
本帖最后由 moperyblue 于 2016-04-18 16:07 編輯

echo '離離原上草
一歲一枯榮
野火燒不盡
春風吹又生'|tac|sed -e 'i,' -e';s/\B/\n/g'|sed -r ':a;N;/\n,/!ba;/,.,/s/([^,]*,).*/,\n\1/;/,$/!s/,.([^\n]*)(.*)\n(.*)/\1\3\n,\2/;$s/.,.*//;ba'
春野一離
風火歲離
吹燒一原
又不枯上
生盡榮草

復(fù)制代碼

作者: sunzhiguolu 時間: 2016-04-18 16:08

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
my @aData = ();
while (<>){
chomp;
my $sLine = decode ('utf8', $_);
my @aWords = split //, $sLine;
foreach (0 .. $#aWords){
$aData[$_] = $aWords[$_] . ($aData[$_] ? $aData[$_] : '');
}
}
printf ("%s\n",encode ('utf8',$_)) for @aData;

復(fù)制代碼

作者: toddhai 時間: 2016-05-04 10:20
回復(fù) 2# jason680

a[n]=$n a[n]為什么中間要加空格呢（我試過將空格去掉，輸出了錯誤的結(jié)果）

作者: jason680 時間: 2016-05-04 10:28
回復(fù) 10# toddhai

你都說完了...

>> 為什么中間要加空格呢 =>將空格去掉，輸出錯誤...

作者: toddhai 時間: 2016-05-04 10:36
回復(fù) 11# jason680

好吧，我換種問法：為什么加了空格后輸出的結(jié)果中卻沒有空格呢？

作者: jason680 時間: 2016-05-04 11:02
本帖最后由 jason680 于 2016-05-04 11:03 編輯

回復(fù) 12# toddhai

空格

$ awk 'BEGIN{a=1;b=2;ab=3;print a b;print ab;print a" "b;print a,b;print a","b}'
12
3
1 2
1 2
1,2

作者: toddhai 時間: 2016-05-04 11:11
回復(fù) 13# jason680

謝謝！

歡迎光臨 Chinaunix (http://72891.cn/)