लिनक्स में 8000 से अधिक टैब के बीच वर्णों की गणना कैसे करें

wc की आवश्यकता नहीं है।

$IFS को अस्थायी रूप से एक read के आगे की लाइन पर एक टैब पर सेट करें।
यह रिक्त स्थान को बाहर कर देगा (c.f. "a b c")।
एक सरणी में पढ़ें, और प्रत्येक को लूप करें।

लंबाई> 8000 के लिए परीक्षण करें और उसके अनुसार व्यवहार करें। यहां एक त्वरित उदाहरण दिया गया है जिसे आपको अनुकूलित करने में सक्षम होना चाहिए।

 $: IFS="   " read -a lst < in
 $: for x in "${lst[@]}"
 >  do l="${#x}"
 >     if (( l > 8000 ))
 >     then x='<too long>'
 >     fi
 >     printf "'%s' = %d\n" "$x" "$l"
 >  done
 'hi' = 2
 'a b c' = 5
 'apple' = 5
 '<too long>' = 10000
 'toast' = 5

यदि आप किसी बड़ी फ़ाइल को संसाधित कर रहे हैं, तो बेहतर प्रदर्शन के लिए उसे awk या perl में लिखें।

 awk -F'\t' '{for (i=1; i<=NF;i++) if(length($i)>8000)  print $i}'

डेमो

$echo -e "hi\tapple\ttoast" |  awk -F'\t' '{for (i=1; i<=NF;i++) if(length($i)>2)  print $i}' 
apple
toast
$echo -e "hi\tapple\ttoast" |  awk -F'\t' '{print length($1) , length($2) , length($3)}' 
2 5 5
$echo -e "hi\tapple\ttoast"
hi  apple   toast
$echo -e "hi\tapple\ttoast" |  awk -F'\t' '{print length($1) , length($2) , length($3)}' 
2 5 5
$echo -e "hi\tapple\ttoast" |  awk -F'\t' '{for (i=1; i<=NF;i++) if(length($i)>2)  print $i}' 
apple
toast
$