求助將五言詩歌按古代排版順序打印

oldknew

求教如何將以下文本處理成古代詩歌排版形式
[aii@localhost gjy]$ cat 4.txt
離離原上草
一歲一枯榮
野火燒不盡
春風(fēng)吹又生

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

jason680

回復(fù) 1# oldknew

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

$ 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
春野一離
風(fēng)火歲離
吹燒一原
又不枯上
生盡榮草

   

oldknew

強啊，不過大神能解釋一下么？

jason680

http://72891.cn/thread-2309494-1-1.html

yinyuemi

回復(fù) 1# oldknew

1. echo '離離原上草
   
2. 一歲一枯榮
   
3. 野火燒不盡
   
4. 春風(fēng)吹又生' |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'
   
5. 春野一離
   
6. 風(fēng)火歲離
   
7. 吹燒一原
   
8. 又不枯上
   
9. 生盡榮草
   

復(fù)制代碼

oldknew

牛人

moperyblue

1. echo '離離原上草
   
2. 一歲一枯榮
   
3. 野火燒不盡
   
4. 春風(fēng)吹又生'|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'   
   
5. 春野一離
   
6. 風(fēng)火歲離
   
7. 吹燒一原
   
8. 又不枯上
   
9. 生盡榮草

復(fù)制代碼

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. use Encode;
   
6. 
   
7. my @aData = ();
   
8. while (<>){
   
9.     chomp;
   
10.     my $sLine = decode ('utf8', $_);
    
11.     my @aWords = split //, $sLine;
    
12.     foreach (0 .. $#aWords){
    
13.         $aData[$_] = $aWords[$_] . ($aData[$_] ? $aData[$_] : '');
    
14.     }
    
15. }
    
16. 
    
17. printf ("%s\n",encode ('utf8',$_)) for @aData;
    

復(fù)制代碼

toddhai

回復(fù) 2# jason680

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