shell如何读取一个文本文件里面的随机一行（要求是：取出的这一行字节数要大于10个...

sofs

shell如何读取一个文本文件里面的随机一行？（要求是：取出的这一行字节数要大于10个字符，小于20个字符，且这一行里面不能含有英文字母）

用shuf可以随机去除行，但怎么去匹配规则弄不好。

moperyblue

数据文件大吗?大概多少行？

sofs

文件不大，都是小于100k的。
大概300到700行左右。
主要是中文，有些行夹杂着英文字母和数字。

moperyblue

可以将 字节数要大于10个字符，小于20个字符，且这一行里面不能含有英文字母 的行放在一个数组 或 文件中
然后用shuf的值去取其中一行就行了

有数据吗

sofs

用这个测试吧。

吉日兮辰良，穆将愉兮上皇；
抚玉珥，璆锵鸣兮琳琅；
瑶盍将把兮琼芳；
蕙兰藉，奠桂酒兮椒浆；
扬鼓，疏缓节兮安歌；
陈浩倡；
灵fff兮满堂；
五繁会，君欣欣兮乐康。

云
浴沐芳，华采衣兮若英；
灵既留，烂昭昭兮未央；
謇寿ffdsf兮齐光；
龙服ffdsf周章；
灵既ffdsf兮云中；
览有ffdsf兮焉穷；
思夫君兮太ffdsf兮忡忡；

湘君
君不行兮夷犹，蹇谁留兮中洲；
美要眇兮宜修，沛吾乘
令沅湘兮无波，使江水
望夫君兮未来，吹参差
驾飞龙兮fds23邅吾道
薜荔柏兮fds23荪桡兮
望涔阳兮fds23横大江
扬灵兮未fds23婵媛兮
横流涕兮fds23隐思君
桂棹兮兰fds23冰兮积
采薜荔兮fds23搴芙蓉
心不同兮fds23恩不甚
石濑兮浅浅ddd翩翩；
交不忠兮怨长，期不信；
朝骋骛兮江皋，夕弭节
鸟次兮屋上，水周兮堂
捐余玦兮江中，遗余佩
采芳洲兮杜若，将以遗
时不可兮再得，聊逍遥

湘夫人
帝子降兮北渚，目眇眇兮愁予；
袅袅兮秋风，洞庭波下；
登白薠兮骋望，与
鸟何萃兮苹中，罾通：蘋)
沅有茝兮醴有兰，
荒忽兮远望，观流
麋何tre兮庭中，蛟
朝驰tre马兮江皋，
闻佳tre兮召余，将
筑室tre水中，葺之
荪壁tre紫坛，播芳
桂栋兮兰橑，辛夷
罔薜荔兮aaa蕙櫋
白玉兮为镇，疏石
芷葺兮荷屋，缭之
合百草兮实庭，建
九嶷缤兮并迎，灵
捐余袂兮江中，遗
搴汀洲兮杜若，将
时不可兮骤得，聊逍遥兮容与！

大司命
广开兮天门，纷吾乘兮玄云；
令飘风兮先驱，使涷雨兮洒尘；
君回翔兮以下，逾空桑兮从女；
纷总总兮九州，何寿夭兮在予；
高飞兮安cc气兮御阴
吾与君兮齐速，导帝
灵衣兮被被，玉佩兮
一阴兮一阳，众莫知
折疏麻兮瑶华，将以
老冉冉兮既极，不寖
乘龙兮ccc兮冲天；
结桂枝兮延伫，羌愈
愁人兮奈何，愿若今
固人命兮有当，孰离

少司命
秋兰兮麋芜，罗生兮
绿叶兮素华，芳菲菲
夫人兮自有美子，荪
秋兰兮青青，绿叶兮

jason680

$ awk 'function chk(){if(length<10)next}{chk();s=$0;if(gsub("[A-Z0-9a-z]",""))next;gsub("[，；！：)。]","");chk();a[c++]=s}END{srand();print a[int(rand()*c)]}' FILE
时不可兮骤得，聊逍遥兮容与！

$ awk 'function chk(){if(length<10)next}{chk();s=$0;if(gsub("[A-Z0-9a-z]",""))next;gsub("[，；！：)。]","");chk();a[c++]=s}END{srand();print a[int(rand()*c)]}' FILE
令飘风兮先驱，使涷雨兮洒尘；

$ awk 'function chk(){if(length<10)next}{chk();s=$0;if(gsub("[A-Z0-9a-z]",""))next;gsub("[，；！：)。]","");chk();a[c++]=s}END{srand();print a[int(rand()*c)]}' FILE
君回翔兮以下，逾空桑兮从女；

moperyblue

1. awk 'length($0)>10 && length($0)<20 && !/[A-Za-z]/{print|"shuf|tail -1"}' 1.txt

复制代码

?

杰瑞26

1. root@localhost:~# cat file | egrep -v "[a-zA-Z]" | egrep '.{10,20}' | awk '{a[NR]=$0}END{srand();i=int(rand()*NR+1);print a[i]}'
   
2. 令飘风兮先驱，使涷雨兮洒尘；
   

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDIN, ':encoding(utf8)');
   
7. binmode (STDOUT, ':encoding(utf8)');
   
8. 
   
9. my @aData;
   
10. while (<>){
    
11.     chomp;
    
12.     (my $str = $_) =~ s/[\p{P})]//g;
    
13.     next if (length ($str) < 10 or length ($str) > 20);
    
14.     next if ($str =~ /[a-z]/i);
    
15.     push (@aData, $_);
    
16. }
    
17. print $aData[int (rand @aData)], "\n";
    

复制代码

cat f|perl abc.pl