Search in paragraph's text: Difference between revisions
→{{header|Phix}}
(Added Wren) |
|||
Line 121:
</lang>
Note : 1st awk is used to search for an expression (regular or not) within paragraphs, and 2nd awk is used for formatting
=={{header|Phix}}==
<!--<lang Phix>(phixonline)-->
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
<span style="color: #000080;font-style:italic;">--constant text = get_text("Traceback.txt") -- (not js!)</span>
<span style="color: #008080;">constant</span> <span style="color: #000000;">text</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
2018-06-19 23:19:34,877 ERROR Processes plugin raised an exception.
<snip>
}"""</span><span style="color: #0000FF;">,</span>
<span style="color: #000000;">paras</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">split</span><span style="color: #0000FF;">(</span><span style="color: #000000;">text</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n\n"</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">tmrcl</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"Traceback (most recent call last)"</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">paras</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">para</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">paras</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span>
<span style="color: #004080;">integer</span> <span style="color: #000000;">tdx</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tmrcl</span><span style="color: #0000FF;">,</span><span style="color: #000000;">para</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">tdx</span> <span style="color: #008080;">then</span>
<span style="color: #000000;">para</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">para</span><span style="color: #0000FF;">[</span><span style="color: #000000;">tdx</span><span style="color: #0000FF;">..$]</span>
<span style="color: #008080;">if</span> <span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"SystemError"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">para</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n----------------\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">para</span><span style="color: #0000FF;">})</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<!--</lang>-->
Output as reuested
=={{header|Raku}}==
| |||