求助将五言诗歌按古代排版顺序打印

oldknew

求教如何将以下文本处理成古代诗歌排版形式
[aii@localhost gjy]$ cat 4.txt
离离原上草
一岁一枯荣
野火烧不尽
春风吹又生

最终打印效果为:
[aii@localhost gjy]$ cat 5.txt
春野一离
风火岁离
吹烧一原
又不枯上
生尽荣草

jason680

回复 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

强啊，不过大神能解释一下么？

jason680

http://bbs.chinaunix.net/thread-2309494-1-1.html

yinyuemi

回复 1# oldknew

1. echo '离离原上草
   
2. 一岁一枯荣
   
3. 野火烧不尽
   
4. 春风吹又生' |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. 风火岁离
   
7. 吹烧一原
   
8. 又不枯上
   
9. 生尽荣草
   

复制代码

oldknew

牛人

moperyblue

1. echo '离离原上草
   
2. 一岁一枯荣
   
3. 野火烧不尽
   
4. 春风吹又生'|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. 风火岁离
   
7. 吹烧一原
   
8. 又不枯上
   
9. 生尽荣草

复制代码

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;
    

复制代码

toddhai

回复 2# jason680

a[n]=$n a[n]为什么中间要加空格呢（我试过将空格去掉，输出了错误的结果）