फाइल और स्टडआउट के लिए स्टडआउट और पाइप से कलर कोड कैसे छीनें


14

मेरे पास एक प्रोग्राम है जो printfइसमें कुछ tputमिश्रित के साथ उपयोग करता है और मैं आउटपुट को पाइप के साथ-साथ एक फ़ाइल में भी पाइप करना चाहता हूं। sedजब से मैं अपनी स्क्रिप्ट पर कोई अनावश्यक निर्भरता नहीं चाहता, मैं उपयोग करना पसंद करूंगा । यहाँ मुझे अब तक क्या मिला है।

printf "\n$(tput setaf 6)| $(tput sgr0)$(tput setaf 7)Sourcing files...\033[m\n" | tee install.log

इस के साथ एक ही मुद्दा मेरी लॉग फ़ाइल के रूप में रंग उत्पादन के सभी हो रही है ...

^[[36m| ^[(B^[[m^[[37mSourcing files...^[[m

मुझे यह पसंद है | Sourcing files...



@ स्टेफ़ेनचेज़लस, मैं कोशिश कर रहा हूं कि अब के लिए किसी भी पर्ल स्क्रिप्ट का उपयोग न करें, और यहां तक ​​कि sedविकल्प भी काम नहीं करते हैं।
इमानवेटन

जवाबों:


12

आउटपुट से रंगों को हटाने के अनुसार , आपको कमांड होनी चाहिए:

printf "\n$(tput setaf 6)| $(tput sgr0)$(tput setaf 7)Sourcing files...\033[m\n" |\
sed -r "s/\x1B\[([0-9]{1,2}(;[0-9]{1,2})?)?[mGK]//g" |tee install.log
w/o "-r"
sed "s/\x1B\[\([0-9]\{1,2\}\(;[0-9]\{1,2\}\)\?\)\?[mGK]//g"

सुविधा कारणों से आप इसमें एक उपनाम भी बना सकते हैं /etc/profile

alias stripcolors='sed -r "s/\x1B\[([0-9]{1,2}(;[0-9]{1,2})?)?[mGK]//g"'
w/o '-r'
alias stripcolors='sed "s/\x1B\[\([0-9]\{1,2\}\(;[0-9]\{1,2\}\)\?\)\?[mGK]//g"'

[संपादित करें]

दिए गए आउटपुट से आप इसे स्वयं देख सकते हैं:

#!/usr/bin/perl

while ($line=<DATA>) {
    $line =~ s/^[0-9a-f]+: //;
    while ($line =~ s/([0-9a-f]{2})(?=[0-9a-f]{2}| )//) {
      print chr(hex($1));
    }
}
__DATA__
0000000: 1b5b 316d 1b5b 3333 6de2 9aa0 2020 5761 .[1m.[33m... Wa
0000010: 726e 696e 673a 201b 2842 1b5b 6d4e 6f20 rning: .(B.[mNo
0000020: 2f55 7365 7273 2f61 7077 2f2e 6261 7368 /Users/apw/.bash
0000030: 2066 6f75 6e64 2e21 0a found.!.

उत्पादन:

$ perl checkerbunny|xxd
0000000: 1b5b 316d 1b5b 3333 6de2 9aa0 2020 5761  .[1m.[33m...  Wa
0000010: 726e 696e 673a 201b 2842 1b5b 6d4e 6f20  rning: .(B.[mNo 
0000020: 2f55 7365 7273 2f61 7077 2f2e 6261 7368  /Users/apw/.bash
0000030: 2066 6f75 6e64 2e21 0a                    found.!.

$ perl checkerbunny|stripcolors|xxd
0000000: e29a a020 2057 6172 6e69 6e67 3a20 1b28  ...  Warning: .(
0000010: 424e 6f20 2f55 7365 7273 2f61 7077 2f2e  BNo /Users/apw/.
0000020: 6261 7368 2066 6f75 6e64 2e21 0a         bash found.!.

1
-rझंडा, मैक BSD पर काम करने के लिए प्रकट नहीं होता है तो मैं उपयोग करने की कोशिश -Eसबसे अधिक समान प्रतीत हो रहा है और यह अभी भी इस तरह के रूप लॉग फ़ाइल में outputting है ... ^[36m| ^[(B^[[m^[[37mSourcing files...^[[m यह भी रूप में वापस आता है | ^[(BSourcing files...मेरी लिनक्स बॉक्स पर।
०२:२६ को २३

कृपया हमें अपने प्रिंट cmd के उत्पादन के साथ |xxdऔर अपने TERMenv दिखाएँ । वर।

TERM=> xterm0000000: 1b5b 316d 1b5b 3333 6de2 9aa0 2020 5761 .[1m.[33m... Wa 0000010: 726e 696e 673a 201b 2842 1b5b 6d4e 6f20 rning: .(B.[mNo 0000020: 2f55 7365 7273 2f61 7077 2f2e 6261 7368 /Users/apw/.bash 0000030: 2066 6f75 6e64 2e21 0a found.!.
newewton

1
यह अभी भी मुझे वही परिणाम देता है, सिवाय इसके कि मुझे stripcolorsफ़ंक्शन को बदलना होगा क्योंकि मैक ओएस एक्स कमांड के -rलिए विकल्प नहीं समझता है sed। मैं मान रहा हूं कि आप किसी तरह के लिनक्स डिस्ट्रो पर हैं?
नवंबर को दोपहर 11:54

3
दुर्भाग्य से, यह ओएस एक्स पर काम नहीं करता है।
जॉर्ज बुकानन
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.