Checksumcolor: Difference between revisions
Content added Content deleted
m (→{{header|OCaml}}: replaced Array.iteri by Array.iter) |
SqrtNegInf (talk | contribs) (Added Perl example) |
||
| Line 214: | Line 214: | ||
<span style="color:#A00">b25</span><span style="color:#AA0">9b2</span><span style="color:#A00">936</span><span style="color:#AA0">bb4</span><span style="color:#A00">600</span><span style="color:#0AA">9be</span><span style="color:#0A0">3f5</span><span style="color:#AA0">cc0</span><span style="color:#0A0">6a12c3</span>2d coreutils-8.30.tar.gz |
<span style="color:#A00">b25</span><span style="color:#AA0">9b2</span><span style="color:#A00">936</span><span style="color:#AA0">bb4</span><span style="color:#A00">600</span><span style="color:#0AA">9be</span><span style="color:#0A0">3f5</span><span style="color:#AA0">cc0</span><span style="color:#0A0">6a12c3</span>2d coreutils-8.30.tar.gz |
||
<span style="color:#00A">03c</span><span style="color:#A00">f26420</span><span style="color:#AA0">de5</span><span style="color:#00A">66c306</span><span style="color:#A00">d34</span><span style="color:#0AA">0df</span><span style="color:#00A">52f</span><span style="color:#0AA">6cc</span>d7 coreutils-8.31.tar.gz |
<span style="color:#00A">03c</span><span style="color:#A00">f26420</span><span style="color:#AA0">de5</span><span style="color:#00A">66c306</span><span style="color:#A00">d34</span><span style="color:#0AA">0df</span><span style="color:#00A">52f</span><span style="color:#0AA">6cc</span>d7 coreutils-8.31.tar.gz |
||
=={{header|Perl}}== |
|||
{{trans|Sidef}} |
|||
<lang perl>use strict; |
|||
use warnings; |
|||
use Term::ANSIColor qw<colored :constants256>; |
|||
while (<>) { |
|||
my($cs,$fn) = /(^\S+)\s+(.*)/; |
|||
print colored($_, 'ansi' . hex $_) for $cs =~ /(..)/g; |
|||
print " $fn\n"; |
|||
}</lang> |
|||
{{out}} |
|||
<font face='fixedsys, lucida console, terminal, vga, monospace' style='line-height: 1; letter-spacing: 0; font-size: 12pt'> |
|||
<span style="color:#d7af00;">b2</span><span style="color:#d7af5f;">b3</span><span style="color:#d7ff87;">c0</span><span style="color:#808080;">f4</span><span style="color:#af00ff;">81</span><span style="color:#0000ff;">15</span><span style="color:#afd7d7;">98</span><span style="color:#875f00;">5e</span><span style="filter: contrast(70%) brightness(190%);color:blue;">0c</span><span style="color:#af8787;">8a</span><span style="color:#5f8700;">40</span><span style="color:#8787d7;">68</span><span style="color:#af5f5f;">83</span><span style="color:#ffaf5f;">d7</span><span style="color:#c0c0c0;">fa</span><span style="color:#ff005f;">c5</span> ref/test/not-in-kansas.txt<br> |
|||
<span style="color:#5fffff;">57</span><span style="color:#0a0a0a;">e9</span><span style="color:#8787ff;">69</span><span style="color:#ffd75f;">dd</span><span style="color:#8787af;">67</span><span style="color:#afd7af;">97</span><span style="color:#ff5f5f;">cb</span><span style="color:#8787ff;">69</span><span style="color:#af8787;">8a</span><span style="color:#d7af87;">b4</span><span style="color:#5f87d7;">44</span><span style="color:#8787d7;">68</span><span style="color:#ffafff;">db</span><span style="color:#6a6a6a;">f2</span><span style="color:#d7afff;">b7</span><span style="color:#d700d7;">a4</span> ref/test/reverse_words.txt<br> |
|||
<span style="color:#afaf87;">90</span><span style="color:#00ffaf;">31</span><span style="color:#ff5fff;">cf</span><span style="filter: contrast(70%) brightness(190%);color:green;">0a</span><span style="color:#ff00af;">c7</span><span style="color:#f5f5f5;">ff</span><span style="color:#d75faf;">a9</span><span style="color:#87af87;">6c</span><span style="color:#ff87ff;">d5</span><span style="color:#d787d7;">b0</span><span style="color:#5fafd7;">4a</span><span style="color:#d75f87;">a8</span><span style="color:purple;">05</span><span style="color:#5f87af;">43</span><span style="color:#d70087;">a2</span><span style="color:#8787d7;">68</span> ref/test/sample.txt<br> |
|||
</font> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||