मेरे पास एक स्ट्रिंग है जैसे: dog cat bird whale
और मैं पाना चाहता हूं dog dog cat cat bird bird whale whale
सभी शब्द एक ही पंक्ति में हैं। कोई उपाय?
मेरे पास एक स्ट्रिंग है जैसे: dog cat bird whale
और मैं पाना चाहता हूं dog dog cat cat bird bird whale whale
सभी शब्द एक ही पंक्ति में हैं। कोई उपाय?
जवाबों:
समाधान के परिवार में जोड़ना :-)।
duplicator.sh:
for i; do echo -n "$i $i "; done; echoनिष्पादन योग्य बनाएं, और अब:
$ ./duplicator.sh dog cat bird whale
dog dog cat cat bird bird whale whaleवैकल्पिक रूप से एक शेल फ़ंक्शन के लिए, उदाहरण के लिए एक स्क्रिप्ट के भीतर पुन: प्रयोज्य होना:
duplicator() {
for i; do echo -n "$i $i "; done; echo
}जो तब सीधे चलाए जा सकते हैं जहां परिभाषित किया गया है
duplicator dog cat bird whaleआप उपयोग कर सकते हैं sed:
sed -r 's/(\S+)/\1 \1/g' filenameयदि आप फ़ाइल में किए गए परिवर्तनों को इन-प्लेस में सहेजना चाहते हैं, तो कहें:
sed -i -r 's/(\S+)/\1 \1/g' filenameआप यह भी उपयोग कर सकते हैं perl:
perl -M5.10.0 -ne 'say join " ", map{$_, $_} split " ";' filename( -iफ़ाइल में किए गए परिवर्तनों को सहेजने के लिए विकल्प जोड़ें ।)
या, टेर्डन द्वारा सुझाए गए अनुसार :
perl -M5.10.0 -ane 'say join " ", map{$_, $_} @F;' filenameसे उद्धृत perlvar:
@Fसरणी
@Fमें प्रत्येक पंक्ति के फ़ील्ड शामिल हैं, जब ऑटोसप्लिट मोड चालू होता है।-aस्विच के लिए perlrun देखें । यह सरणी पैकेज-विशिष्ट है, और घोषित होने पर पैकेज मुख्य में नहीं होने पर पूर्ण पैकेज नाम घोषित या दिया जाना चाहिएstrict 'vars'।
sed -r 's/\S+/& &/g'।
-a:perl -M5.10.0 -ane 'say join " ", map{$_, $_} @F;'
यह एक awk/gawkउत्तर के बिना क्या होगा :
$ awk '{ for(i=1;i<=NF+1;i+=1/2) { printf("%s ",$i); }}' <<<"dog cat bird whale"
dog dog cat cat bird bird whale whale यदि एक समाप्ति न्यूलाइन महत्वपूर्ण है:
$ awk '{ for(i=1;i<=NF+1;i+=1/2) { printf("%s ",$i); }} END{print ""}' <<<"dog cat bird whale"for(i=1;i<=NF;++i) printf "%s %s ",$i,$i;छोटे और अधिक पठनीय, IMHO दोनों हैं।
s="dog cat bird wale"
ss=$( tr ' ' '\n' <<< "$s" | sed p | tr '\n' ' ' )
echo "$ss"dog dog cat cat bird bird wale wale sed -n 'p;p'- मैंने सोचा कि यह क्या कर रहा है, इसके बारे में अधिक पारदर्शी था।
यदि आपके पास एक चर में अपनी स्ट्रिंग है, तो कहें foo="dog cat bird whale", आप कर सकते हैं:
शुद्ध बैश:
$ echo "$foo" | (read a b c d && echo "$a $a $b $b $c $c $d $d")
dog dog cat cat bird bird whale whaleस्पष्टीकरण: कोष्ठकों ताकि जरूरत है readऔर echoएक ही subshell में होती हैं और इसलिए शेयर चर कर सकते हैं। उनके बिना, echoबस एक रिक्त रेखा मुद्रित होगी।
coreutils:
$ join -j 5 -o 1.1,1.1,1.2,1.2,1.3,1.3,1.4,1.4 <(echo $foo) <(echo)
dog dog cat cat bird bird whale whaleस्पष्टीकरण:-o का झंडा joinआप उत्पादन प्रारूप निर्धारित करने की अनुमति देता है। यहां, मैं इसे पहली फ़ाइल के 1 क्षेत्र ( 1.1) को प्रिंट करने के लिए कह रहा हूं , इसके बाद 1 फाइल के 2 क्षेत्र ( 1.2) आदि। इस तरह 1 फाइल के प्रत्येक क्षेत्र को दो बार प्रिंट किया जाता है। हालांकि, एक सामान्य क्षेत्र पर दो इनपुट लाइनों में joinशामिल होने के लिए, अच्छी तरह से डिज़ाइन किया गया है । इसलिए, मैं इसे एक रिक्त पंक्ति ( ) भी पास करता हूं और फिर इसे अनदेखा करता हूं । सेट क्षेत्र में शामिल होने, एक है कि अस्तित्व में नहीं है (5 वीं) के लिए यह स्थापित करने का कारण बनता है पूरी पंक्ति मुद्रित करने के लिए।<(echo)-jjoin
अगर आपको व्हाट्सएप या इनपुट ऑर्डर की परवाह नहीं है, तो आप कर सकते हैं
$ paste <(echo $foo) <(echo $foo)
dog cat bird wale dog cat bird waleपर्ल 1:
$ echo $foo | perl -lane 'push @k, $_,$_ for @F; print "@k"'
dog dog cat cat bird bird whale whaleस्पष्टीकरण:
-l: adds a newline to each print call (among other things)
-a: turns on field splitting, fields are saved as @F
-n: process input line by line
-e: give a script as a command line parameter.ऊपर दी गई स्क्रिप्ट प्रत्येक फ़ील्ड ( @Fदो बार) को सरणी में सहेजेगी @kऔर फिर प्रिंट करेगी @k। यदि आपको अनुगामी न्यूलाइन की आवश्यकता नहीं है, तो आप इसे सरल बना सकते हैं
$ echo $foo | perl -ane 'print " $_ $_" for @F'पर्ल 2:
$ echo $foo | perl -0040 -pne 'print "$_"' | paste - -
dog dog cat cat bird bird whale whaleस्पष्टीकरण:-0 विकल्प इनपुट रिकॉर्ड विभाजक सेट (हेक्साडेसिमल या ऑक्टल संख्या के रूप में, देखने के लिए यहाँ रूपांतरणों के लिए)। यहां, मैं इसे ऑक्टल पर सेट कर रहा हूं 040जो एक स्थान है। -pबनाता है perlप्रत्येक इनपुट "पंक्ति" प्रिंट और के बाद से हम अंतरिक्ष के लिए रिकॉर्ड विभाजक निर्धारित किया है, लाइनों अब रिक्त स्थान से है, इसलिए हर क्षेत्र में दो बार छपा है परिभाषित कर रहे हैं।
awk:
$ echo $foo | awk '{for(i=1;i<=NF;i++){$i=$i" "$i;} 1;}'
dog dog cat cat bird bird whale whaleस्पष्टीकरण: NF फ़ील्ड की संख्या है, इसलिए ऊपर की स्क्रिप्ट प्रत्येक फ़ील्ड के माध्यम से जाती है और इसे अपने आप में जोड़ देती है। एक बार ऐसा हो जाने के बाद, हम लाइन प्रिंट करते हैं ( 1;प्रिंट के लिए सिर्फ शॉर्टहैंड है)।
अब एक pythonजवाब के लिए:
कमांड लाइन से:
$ python -c "import sys; s=sys.argv[1:]; print(' '.join(j for i in zip(s,s)for j in i));" dog cat bird whaleस्टडिन से:
$ python -c "s=input().split(); print(' '.join(j for i in zip(s,s)for j in i));" <<<"dog cat bird whale"दोनों मामलों में परिणाम:
dog dog cat cat bird bird whale whaleएक अन्य दृष्टिकोण, केवल बैश बिल्डरों का उपयोग करना
$ string="dog cat bird whale"
$ twix() { while [[ ! -z $1 ]]; do printf "%s %s " $1 $1; shift; done; }
$ twix $string
dog dog cat cat bird bird whale whaleमुझे शीर्ष उत्तर की तुलना में कोई लाभ नहीं दिखता है, बस थोड़ा अलग तरीके से दिखाने के लिए, जो कुछ उद्देश्यों के लिए बेहतर हो सकता है।
echoबैश (परीक्षण type echo) में निर्मित एक शेल भी है ।