將文本根據(jù)行數(shù)平均分配行寫(xiě)到相關(guān)文件中

reyleon

有個(gè)文件，數(shù)據(jù)如下:

1
2
3
4
5
6
7
8
9
10

共10行數(shù)據(jù).將這些數(shù)據(jù)進(jìn)行平均分配（有不能平均分配的情況，如下所說(shuō)）。

詳細(xì)解析如下：

1. 平均分配到兩個(gè)文件(假設(shè)為a,b）中，則a分5行，b分5行 (注：是按順序分配，就是說(shuō)前5行寫(xiě)到a文件，后5行寫(xiě)到b文件，而不是1在a中，2在b中，3在a中，4在b中這樣，下同....),其內(nèi)容是：
a:
1
2
3
4
5

b:
6
7
8
9
10

2. 平均分配到三個(gè)文件（a,b,c），因?yàn)樾袛?shù)不被3整除，則要求a文件分前4行，b分3行，c分3行，其內(nèi)容是：
a:
1
2
3
4

b:
5
6
7

c:
8
9
10

3. 平均分配到四個(gè)文件（a,b,c,d），同第二點(diǎn)，因行數(shù)不被4整除，則a分3行，b分3行，c分2行,d分2行,其內(nèi)容是：
a:
1
2
3

b:
4
5
6

c:
7
8

d:
9
10

4. 平均分配到N個(gè)文件(a,b,c,d....) 這樣子下去...

----------------

注：以上是【文件是偶數(shù)行的情況】，但假如文件行數(shù)是奇數(shù)行，比如是11行，則：

1. 分配到兩個(gè)文件(a,b),則a分6行，b分5行
2. 分配到三個(gè)文件(a,b,c)，則a分4行，b分4行,c分3行
3. 分配到四個(gè)文件(a,b,c,d)，則a分3行，b分3行，c分3行，d分2行
4. 分配到N個(gè)文件(a,b,c,d...)，則............


========================
   話說(shuō)這能寫(xiě)程序么？

chinaboywg

linux split 命令

　　功能說(shuō)明：切割文件。

　　語(yǔ)　　法：split [--help][--version][-<行數(shù)>][-b <字節(jié)>][-C <字節(jié)>][-l <行數(shù)>][要切割的文件][輸出文件名]

　　補(bǔ)充說(shuō)明：split可將文件切成較小的文件，預(yù)設(shè)每1000行會(huì)切成一個(gè)小文件。

　　參　　數(shù)：

　　-<行數(shù)>或-l<行數(shù)> 　指定每多少行就要切成一個(gè)小文件。

　　-b<字節(jié)> 　指定每多少字就要切成一個(gè)小文件。支持單位:m,k

　　-C<字節(jié)> 　與-b參數(shù)類(lèi)似，但切割時(shí)盡量維持每行的完整性。

　　--help 　顯示幫助。

　　--version 　顯示版本信息。

　　[輸出文件名] 　設(shè)置切割后文件的前置文件名，split會(huì)自動(dòng)在前置文件名后再加上編號(hào)。

　　使用例子：

　　split -b 100m filename

liion631818

1. 
   
2. s=1
   
3. split()
   
4. {
   
5.         lines=$1
   
6.         files=$2
   
7.         if [[ $lines == 0 || $files == 0 ]]; then
   
8.                 exit 0
   
9.         fi
   
10.         max=$(( $1/$2 ))
    
11.         tmp=$(( $max*$files ))
    
12.         if [[ $lines != $tmp ]]; then
    
13.                 (( max++ ))
    
14.         fi
    
15.         echo "==========file $files======="
    
16.         tmp=$(( $max+$s-1 ))
    
17.         seq $s $(( $max+$s-1 ))
    
18.         (( lines=$lines-$max ))
    
19.         (( files-- ))
    
20.         s=$(( tmp+1 ))
    
21.         split $lines $files
    
22. }
    
23. 
    
24. split 11 3
    

復(fù)制代碼

liion631818

n個(gè)分m份，使分的最多的與最小的之間的差最小。是這個(gè)意思么

liion631818

前面的太復(fù)雜了，耗時(shí)

1. 
   
2.         s=1
   
3.         increment=1
   
4.         lines=$1
   
5.         files=$2
   
6.         if [[ $lines == 0 || $files == 0 ]]; then
   
7.                 exit 0
   
8.         fi
   
9.         avg=$(( $1/$2 ))
   
10.         off=$(( $lines-$avg*$files ))
    
11.        
    
12.         for i in `eval echo {1..$files}`; do
    
13.                 if [[ $off -eq 0 ]]; then
    
14.                         increment=0
    
15.                 fi
    
16.                 echo "==========file $i======="
    
17.                 seq $s $(( s+avg+increment-1 ))
    
18.                 s=$(( s+avg+increment-0 ))
    
19.                 (( off-- ))
    
20.         done
    

復(fù)制代碼

yaozhibing41001

回復(fù) 1# reyleon


   
11 個(gè)數(shù)據(jù) 分到5個(gè)里面 怎么分法  

reyleon

回復(fù) 6# yaozhibing41001


就是平均分配啊，11行的數(shù)據(jù)分成5個(gè)文件，假設(shè)是a,b,c,d,e，行數(shù)依次為： 3,2,2,2,2

a為：
1
2
3

b:
4
5

c:
6
7

d:
8
9

e:
10
11

11行分為6個(gè)文件的話則為：a,b,e,d,e,f ,行數(shù)依次為：2，2，2，2，2，1.

關(guān)陰月飛

回復(fù) 1# reyleon

應(yīng)該是這個(gè)意思：

1. [root@ test]#seq 11 >urifle
   
2. [root@ test]#a="a b c"
   
3. [root@ test]#echo $a |awk 'FNR==NR{a[NR]=$0;nr=NR;next}{n=split($0,b);for(i=1;i<=n;i++){c[i]=int(nr/n)+c[i-1];if(i<=nr%n)c[i]++;for(j=1;j<=nr;j++)if(j>k&&j<=c[i])print a[j]" to "b[i];k=c[i];print ""}}' urfile -
   
4. 1 to a
   
5. 2 to a
   
6. 3 to a
   
7. 4 to a
   
8. 
   
9. 5 to b
   
10. 6 to b
    
11. 7 to b
    
12. 8 to b
    
13. 
    
14. 9 to c
    
15. 10 to c
    
16. 11 to c
    
17. 
    
18. [root@ test]#seq 10 >urifle
    
19. [root@ test]#echo $a |awk 'FNR==NR{a[NR]=$0;nr=NR;next}{n=split($0,b);for(i=1;i<=n;i++){c[i]=int(nr/n)+c[i-1];if(i<=nr%n)c[i]++;for(j=1;j<=nr;j++)if(j>k&&j<=c[i])print a[j]" to "b[i];k=c[i];print ""}}' urfile -
    
20. 1 to a
    
21. 2 to a
    
22. 3 to a
    
23. 4 to a
    
24. 
    
25. 5 to b
    
26. 6 to b
    
27. 7 to b
    
28. 
    
29. 8 to c
    
30. 9 to c
    
31. 10 to c
    
32. 
    

復(fù)制代碼

reyleon

回復(fù) 5# liion631818

你這個(gè)確實(shí)可以對(duì)數(shù)字進(jìn)行分行處理并寫(xiě)到文件中，也滿(mǎn)足要求。但我帖子中描述的只是一個(gè)內(nèi)容為數(shù)字的文本示例，而實(shí)際上文本是“以行為單位的任意類(lèi)型的文本內(nèi)容”，所以你的腳本可能還需要改改。

我這里有個(gè)腳本，不過(guò)是別人的思路，然后我整理了下，是可以滿(mǎn)足我的需求的！

1. #!/bin/sh
   
2. 
   
3. if [ $# -ne 2 ];then
   
4.         echo "U: sh $0 [file] [fnumber]"
   
5.         echo "E: sh $0 myfile 3"
   
6.         exit 1
   
7. fi
   
8. 
   
9. srcfile=$1 #原始文件
   
10. fnumber=$2 #需要拆分的文件個(gè)數(shù)
    
11. 
    
12. eval $(cat $srcfile | awk -vn=$fnumber 'END{print "total="NR,"fline="int(NR/n),"extra="NR%n,"cline="int(NR/n)+1}')
    
13. # total:原始文件總行數(shù)
    
14. # fline:拆分文件平均行數(shù)
    
15. # extra:拆分文件擴(kuò)展行數(shù)
    
16. # cline:當(dāng)前拆分文件行數(shù)
    
17. 
    
18. i=1
    
19. iline=1
    
20. while true;do
    
21.         filename="file$i"
    
22.         # 按行的順序分別寫(xiě)入文件中,滿(mǎn)足我的需求
    
23.         if [ $extra = 0 ];then
    
24.                 echo "$filename lines: $fline"
    
25.                 tail -n +$iline $srcfile | head -n $fline > $filename
    
26.                 iline=$((iline+fline))
    
27.         else
    
28.                 echo "$filename lines: $cline"
    
29.                 tail -n +$iline $srcfile | head -n $cline > $filename
    
30.                 iline=$((iline+cline))
    
31.                 extra=$((extra-1))
    
32.         fi
    
33.         ((i++))
    
34.         [ $iline -ge $total ] && exit 0
    
35. done

復(fù)制代碼

shencz2000

樓主，你的要求太嚴(yán)格，這樣有用嗎？能不能夠簡(jiǎn)單一點(diǎn)呢？這樣就可以直接使用split進(jìn)行處理了。比如說(shuō)文件數(shù)要求6個(gè)，但是分成了7個(gè)也行。另外，最后一個(gè)文件行數(shù)少一些也沒(méi)有關(guān)系。這樣行嗎？