stdin लाइन लंबाई truncate?

Question

मैं कुछ लॉग फ़ाइलों के माध्यम से पार्सिंग कर रहा हूं और मुझे पता चला है कि कुछ पंक्तियां एक पंक्ति पर प्रदर्शित होने में बहुत लंबी हैं, इसलिए टर्मिनल.एप कृपया उन्हें अगली पंक्ति पर लपेटें। हालांकि, मैं अक्षरों की एक निश्चित संख्या के बाद एक रेखा को छीनने का एक तरीका ढूंढ रहा हूं ताकि टर्मिनल लपेट न सके, जिससे पैटर्न पैटर्न को और अधिक आसान बना दिया जा सके।

मैं एक छोटे से पर्ल पटकथा लिखी यह करने के लिए:

#!/usr/bin/perl 

die("need max length\n") unless $#ARGV == 0; 

while (<STDIN>) 
{ 
    $_ = substr($_, 0, $ARGV[0]); 
    chomp($_); 
    print "$_\n"; 
} 

लेकिन मुझे लगता है कि इस कार्यक्षमता शायद कुछ अन्य उपकरणों में बनाया गया है है कि मैं सिर्फ करने के बारे में पर्याप्त जानकारी नहीं है (sed?) इस काम के लिए उपयोग करें।

तो मेरा प्रश्न एक रिवर्स प्रश्न का प्रकार है: मैं इसे करने के लिए प्रोग्राम लिखने के बिना stdin की एक पंक्ति को कैसे छोटा कर सकता हूं?

Answer 1

पाइप उत्पादन के लिए:

cut -b 1-LIMIT 

जहां सीमा वांछित लाइन चौड़ाई है।

Answer 2

एक और रणनीति जो मैं बहुत लंबी लाइनों के साथ लॉग फ़ाइलों को देखने के लिए उपयोग करता हूं, फ़ाइल को "कम-एस" पर पाइप करना है। कम के लिए -S विकल्प लपेटने के बिना लाइनों को मुद्रित करेगा, और आप दाएं तीर कुंजी दबाकर लंबी लाइनों के छिपे हिस्से को देख सकते हैं।

Answer 3

वास्तव में इस सवाल का जवाब नहीं, लेकिन अगर आप पर्ल के साथ चिपके रहते हैं और एक एक लाइनर का उपयोग करना चाहते, एक संभावना है:

$ perl -pe's/(?<=.{25}).*//' filename 

जहां 25 वांछित लाइन की लंबाई है।

Answer 4

होगा

perl -wlne'print substr($_,0,80)' 

golfed (5.10 के लिए) यह करने के लिए हमेशा की तरह:

perl -nE'say/(.{0,80})/' 

(, प्रोग्रामिंग के रूप में इसके बारे में मत सोचो एक कमांड लाइन का उपयोग कर के रूप में यह के बारे में सोच विकल्पों की एक बड़ी संख्या के साथ उपकरण।) (हाँ, python संदर्भ जानबूझकर है।)

Answer 5

एक कॉर्न खोल समाधान (70 वर्णों को छंटनी - हालांकि पैरामीटर को आसान बनाना):

typeset -L70 line 
while read line 
do 
    print $line 
done 

Answer 6

आप एक बंधे चर कि एक निश्चित लंबाई के लिए क्लिप इसकी सामग्री का उपयोग कर सकते हैं:

#! /usr/bin/perl -w 

use strict; 
use warnings 
use String::FixedLen; 

tie my $str, 'String::FixedLen', 4; 

while (defined($str = <>)) { 
    chomp; 
    print "$str\n"; 
} 

Answer 7

यह ठीक नहीं है क्या आप के लिए पूछ रहे हैं, लेकिन GNU Screen (, अगर ओएस एक्स के साथ शामिल मैं सही ढंग से याद करता हूं, और अन्य * निक्स सिस्टम पर आम) आपको लाइन रैपिंग चालू/बंद (सीए आर और सीए सीआर) चालू करने देता है। इस तरह, आप स्क्रिप्ट के माध्यम से सामान को पाइप करने के बजाय बस अपने टर्मिनल का आकार बदल सकते हैं।

स्क्रीन मूल रूप से आपको "वर्चुअल" टर्मिनलों को एक अपूर्ण टर्मिनल एप्लिकेशन के भीतर देता है।

Answer 8

use strict; 
use warnings 
use String::FixedLen; 

tie my $str, 'String::FixedLen', 4; 

while (defined($str = <>)) { 
    chomp; 
    print "$str\n"; 
} 

Answer 9

जब तक मैं बात को अनदेखा कर रहा हूँ, यूनिक्स "गुना" कमांड वास्तव में ऐसा करने के लिए डिजाइन किया गया था:

$ cat file 
the quick brown fox jumped over the lazy dog's back 

$ fold -w20 file 
the quick brown fox 
jumped over the lazy 
dog's back 

$ fold -w10 file 
the quick 
brown fox 
jumped ove 
r the lazy 
dog's bac 
k 

$ fold -s -w10 file 
the quick 
brown fox 
jumped 
over the 
lazy 
dog's back