perl [Ωδ■≈Φ] ⌠αΘδ α≡π≤∞σφ≥√╧σ≡σΣ ±≥α≡≥ε∞ Perl Φ∙σ≥ ±Ω≡Φ∩≥ (∩≡επ≡α∞∞≤) Γ ±δσΣ≤■∙σ∞ ∩ε≡ ΣΩσ:
┬ ∞σ≥εΣα⌡ 1 Φ 2 Perl ±ΩαφΦ≡≤σ≥ ±≥≡εΩΦ, φα≈Φφα ± ∩σ≡ΓεΘ, σ±δΦ φσ ≤Ωαταφ Ωδ■≈ '-x', Γ ∩≡ε≥ΦΓφε∞ ±δ≤≈ασ φα≈αδε∞ ∩≡επ≡α∞∞√ ±≈Φ≥ασ≥± ±≥≡εΩα ± ±Φ∞Γεδα∞Φ '#!' Γ φα≈αδσ Φ ±εΣσ≡µα∙α ±δεΓε 'perl'. ╩εφ÷ε∞ ∩≡επ≡α∞∞√ ±≈Φ≥ασ≥± ±≥≡εΩα '__END__'. ┬ ±≥≡εΩσ ± '#!' ∞εµφε ≤Ωατ√Γα≥ⁿ Φ Ωδ■≈Φ. ═α∩≡Φ∞σ≡ '#!/bin/perl -d' Σδ ε≥δαΣΩΦ ∩≡επ≡α∞∞.
╧ε±δσ "εßφα≡≤µσφΦ " ±Ω≡Φ∩≥α Perl Ωε∞∩ΦδΦ≡≤σ≥ σπε ÷σδΦΩε∞ Γε Γφ≤≥≡σφφσσ ∩≡σΣ±≥αΓδσφΦσ. ┼±δΦ εßφα≡≤µΦΓα■≥± ε°ΦßΩΦ, ≥ε Γ√∩εδφσφΦσ ∩≡σΩ≡α∙ασ≥± . ┼±δΦ ε°ΦßεΩ φσ≥, εφ Γ√∩εδφ σ≥± . ┼±δΦ ±Ω≡Φ∩≥ ταΩαφ≈ΦΓασ≥± ßστ Ωε∞αφΣ exit() ΦδΦ die(), ≥ε ∩ε ≤∞εδ≈αφΦ■ Γ√∩εδφ σ≥± Ωε∞αφΣα exit(0), εßετφα≈α■∙α φε≡∞αδⁿφεσ ταΓσ≡°σφΦσ ∩≡επ≡α∞∞√.
╩δ■≈Φ:
1 | p | ╤Φφ≥αΩ±Φ≈σ±ΩΦΘ ≡ατßε≡ |
2 | s | ╤ε±≥ε φΦσ ±≥σΩα |
4 | l | ╤ε±≥ε φΦσ ±≥σΩα Φ∞σφ |
8 | t | ╥≡α±±Φ≡εΓΩα Φ±∩εδφσφΦ |
16 | o | ╤ετΣαφΦσ ε∩σ≡α≥ε≡α ≤τδα |
32 | c | ╤≥≡εΩεΓεσ/≈Φ±δεΓεσ ∩≡σεß≡ατεΓαφΦσ |
64 | p | ┬√ΓεΣ Ωε∞αφΣ√ ∩≡σ∩≡ε÷σ±±ε≡α Σδ -P |
128 | m | ╨α±∩≡σΣσδσφΦσ ∩α∞ ≥Φ |
256 | f | ╬ß≡αßε≥Ωα ⌠ε≡∞α≥α |
512 | r | ╤Φφ≥αΩ±Φ≈σ±ΩΦΘ ≡ατßε≡ ≡σπ≤δ ≡φ√⌡ Γ√≡αµσφΦΘ |
1024 | x | ─α∞∩ ±Φφ≥αΩ±Φ≈σ±Ωεπε Σσ≡σΓα |
2048 | u | ╧≡εΓσ≡Ωα τα∙Φ≥√ |
4096 | L | "╙≥σ≈Ωα" ∩α∞ ≥Φ |
8192 | H | ─α∞∩ ⌡σ°α |
16384 | X | ╨α±∩≡σΣσδσφΦσ scratchpad |
32768 | D | ╬≈Φ±≥Ωα |
perl -p -i.old -e "s/≡ ΣεΓεΘ/σ⌠≡σΘ≥ε≡/" file