1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
.TH Perl "Strings"
.SH WARNING:
÷ÓÅ ×ÉÄÙ regexp ÐÏÉÓËÏ× ÎÅ ÍÏÇÕÔ ÎÁÈÏÄÉÔØ ÐÅÒÅÓÅËÁÀÝÉÅÓÑ É ×ÓÔÁ×ÎÙÅ
×ÈÏÖÄÅÎÉÑ:
.br
Ô.Å. "abacbabc"
.br
1. ÷ ÓÌÕÞÁÅ /a.*c/ ÎÁÊÄÅÔ ÔÏÌØËÏ "abacbabc";
"abac", "ac", "acbabc", "abc" ÎÁÊÄÅÎÙ ÎÅ ÂÕÄÕÔ.
2. ÷ ÓÌÕÞÁÅ /a.*?c/ ÂÕÄÅÔ ÎÁÊÄÅÎÏ "abac", "abc";
"abacbabc", "ac" "acbabc" - ÎÁÊÄÅÎÙ ÎÅ ÂÕÄÕÔ
.SH $var =~ m/regexp/options
úÎÁÞÅÎÉÅ $var ÎÅ ÉÚÍÅÎÑÅÔÓÑ
.br
÷ ËÏÎÔÅËÓÔÅ ÍÁÓÓÉ×Ï× ×ÏÚ×ÒÁÝÁÅÔ ÍÁÓÓÉ× ($1,...,$+) ÅÓÌÉ
$var ÕÄÏ×ÌÅÔ×ÏÒÑÅÔ ÒÅÇÕÌÑÒÎÏÍÕ ×ÙÒÁÖÅÎÉÀ (× ÓÌÕÞÁÅ ÅÓÌÉ ÎÅ ÏÄÎÁ ÉÚ
ÐÅÒÅÍÅÎÎÙÈ $<num> ÎÅ ÏÐÒÅÄÅÌÅÎÁ ×ÏÚ×ÒÁÝÁÅÔ ÉÓÔÉÎÕ), × ÐÒÏÔÉ×ÎÏÍ ÓÌÕÞÁÅ
ÎÅ ×ÏÚ×ÒÁÝÁÅÔ ÎÉÞÅÇÏ.
.br
÷ ÓËÁÌÑÒÎÏÍ ËÏÎÔÅËÓÔÅ ×ÏÚ×ÒÁÝÁÅÔ 1 ÅÓÌÉ $var ÕÄÏ×ÌÅÔ×ÏÒÑÅÔ ÒÅÇÕÌÑÒÎÏÍÕ
×ÙÒÁÖÅÎÉÀ, ÉÎÁÞÅ ×ÏÚ×ÒÁÝÁÅÔ ÌÏÖØ.
.br
åÓÌÉ ÎÁÐÉÓÁÔØ "!~" ÔÏ ×ÓÅ ÓÏÏÔ×ÅÔÓÔ×ÅÎÎÏ ÎÁÏÂÏÒÏÔ.
.br
âÕË×Õ "m" ÍÏÖÎÏ ÏÐÕcÔÉÔØ.
.SS options:
.I i:
ÉÇÎÏÒÉÒÏ×ÁÔØ ÒÁÚÌÉÞÉÅ ÂÏÌØÛÉÈ É ÍÁÌÅÎØËÉÈ ÂÕË×
.br
.I g:
ÉÓËÁÔØ ×ÓÅ ×ÈÏÖÄÅÎÉÑ
.SH @arr = /regexp/options
ðÉÈÁÅÔ × ÁÒÈÉ× $1,...,$+ ÄÌÑ ÐÅÒ×ÏÇÏ ÎÁÊÄÅÎÏÇÏ ×ÈÏÖÄÅÎÉÑ ,
$1,...,$+ ÄÌÑ ×ÔÏÒÏÇÏ ÎÁÊÄÅÎÎÏÇÏ ×ÈÏÖÄÅÎÉÑ É Ô.Ä.
.br
éÌÉ ÐÏ ÄÒÕÇÏÍÕ ÍÏÖÎÏ ÔÁË:
.I while (/regexp/g) {}
- ÂÕÄÅÔ ×ÙÐÏÌÎÑÔØ ÃÉËÌ ÐÏ ×ÓÅÍ ×ÈÏÖÄÅÎÉÑ
.SH $var =~ s/regexp/new/options
úÁÍÅÎÁ, ÚÄÅÓØ ÍÏÖÎÏ ÉÓÐÏÌØÚÏ×ÁÔØ "\e1" ÐÅÒÅÍÅÎÎÙÅ.
.br
÷ÏÚ×ÒÁÝÁÅÔ ÉÓÔÉÎÕ ÉÌÉ ÌÏÖØ × ÚÁ×ÉÓÉÍÏÓÔÉ ÏÔ ÔÏÇÏ ÂÙÌÁ ÐÒÏÉÚ×ÅÄÅÎÁ ÚÁÍÅÎÁ
ÉÌÉ ÎÅÔ × ÌÀÂÏÍ ËÏÎÔÅËÓÔÅ.
.SS options:
.I e:
ÐÒÁ×ÁÑ ÞÁÓÔØ regexp
.br
÷ ÜÔÏÍ ÓÌÕÞÁÅ ÍÙ ×ÍÅÓÔÏ \e1 ÍÏÖÅÍ ÉÓÐÏÌØÚÏ×ÁÔØ $1,
ÐÌÀÓ ×ÏÚÍÏÖÎÙ ÍÁÔÅÍÁÔÉÞÅÓËÉÅ ÏÐÅÒÁÃÉÉ.
.br
éÎÏÇÄÁ ÂÙ×ÁÅÔ ÎÅÏÂÈÏÄÉÍÏ ÉÓÐÏÌØÚÏ×ÁÔØ ËÏÎÓÔÒÕËÃÉÉ ÔÉÐÁ "\eee"
.br
ðÒÉÍÅÒ:
.RS 8
âÅÚ "\ee" ÐÏÌÕÞÁÅÔÓÑ (5+2).*2+4
.br
"\ee" ÐÏÌÕÞÁÅÔÓÑ 7.*2+4
.br
"\eee" ÐÏÌÕÞÁÅÔÓÑ 18
.RE
.I g:
ÍÅÎÑÔØ ×ÓÅ ×ÈÏÖÄÅÎÉÑ
.br
.I m:
ÓÔÒÏËÁ ÅÓÔØ ÏÂßÅÄÉÎÅÎÉÅ ÐÏÄÓÔÒÏË
.br
.I s:
ÓÔÒÏËÁ ÓÏÓÔÏÉÔ ÉÚ ÏÄÎÏÊ ÐÏÄÓÔÒÏËÉ
.br
.I i:
ÒÁÚÌÉÞÁÔØ ÂÏÌØÛÉÅ É ÍÁÌÅÎØËÉÅ ÂÕË×Ù
.br
.I x:
ÉÓÐÏÌØÚÏ×ÁÔØ ÒÁÓÛÉÒÅÎÎÙÅ ÒÅÇÕÌÑÒÎÙÅ ×ÙÒÁÖÅÎÉÑ
.br
.SH $var =~ tr/old symbol list/new symbol list/options
ÚÁÍÅÎÑÅÔ ×ÓÅ ÓÉÍ×ÏÌÙ ÉÚ "old symbol list" ÎÁ ÓÏÏÔ×ÅÓÔ×ÕÀÝÉÅ
ÓÉÍ×ÏÌÙ ÉÚ "new symbol list" ( ÎÁÐÒÉÍÅÒ tr/a-z/A-Z/ ÚÁÍÅÎÑÅÔ
×ÓÅ ÍÁÌÅÎØËÉÅ ÂÕË×Ù ÎÁ ÂÏÌØÛÉÅ )
.br
÷ÏÚ×ÒÁÝÁÅÔ ËÏÌÉÞÅÓÔ×Ï ÚÁÍÅÎÅÎÙÈ ÓÉÍ×ÏÌÏ× × ÌÀÂÏÍ ËÏÎÔÅËÓÔÅ
.SS options:
.I d:
ÓÔÉÒÁÅÔ ÓÉÍ×ÏÌÙ ËÏÔÏÒÙÅ ÎÅ ÚÁÍÅÎÑÀÔÓÑ
.br
.I s:
ÐÅÒÅ×ÏÄÉÔ ÐÏÓÌÅÄ×Ï×ÁÔÅÌØÎÏÓÔØ ÚÁÍÅÎÑÅÍÙÈ ÓÉÍ×ÏÌÏ× ÎÁ
ÏÄÉÎ É ÔÏÔ ÖÅ ÓÉÍ×ÏÌ
.SH qw(a b c d)
word boundaries used as delimiters. ÷ ÓÍÙÓÌÅ ÜÔÏ ÜË×É×ÁÌÅÎÔÎÏ "a,b,c,d"
.SH chomp($var)
ÓÔÉÒÁÅÔ "\\n" ÉÚ ËÏÎÃÁ $var ÅÓÌÉ ÏÎ ÔÁÍ ÅÓÔØ, ×ÏÚ×ÒÁÝÁÅÔ ÉÓÔÉÎÕ
ÉÌÉ ÌÏÖØ × ÚÁ×ÉÓÉÍÏÓÔÉ ÏÔ ÔÏÇÏ ÓÔÉÒÁÌ ÏÎ ÞÔÏ-ÎÉÂÕÄØ ÉÌÉ ÎÅÔ.
.SH @arr=split /regexp/,$str[,<num>]
òÁÚÄÅÌÑÅÔ ÓÔÒÏËÕ $str ÎÁ ÓÌÏ×Á, ÇÄÅ ÒÁÚÄÅÌÉÔÅÌÅÍ ÓÌÕÖÉÔ _ÒÅÇÕÌÑÒÎÏÅ
×ÙÒÁÖÅÎÉÅ_ regexp, É cÏÈÒÁÎÑÅÔ ÎÅ ÂÏÌØÛÅ ÞÅÍ [num] ÓÔÒÏË × ÍÁÓÓÉ× @arr
.SH $str=join $sep,$a,@b,...$x
óÏÅÄÉÎÑÅÔ ÓÌÏ×Á $a, $b[0],..,$b[-1],..$x ÉÓÐÏÌØÚÕÑ × ËÁÞÅÓÔ×Å
ÒÁÚÄÅÌÉÔÅÌÑ $sep
.SH @arr=grep operator @list, @arr=grep { operators } @list
ïÐÅÒÁÃÉÑ ÐÒÏÉÚ×ÏÌÉÔÓÑ ÎÁÄ ÓÁÍÉÍ list, Ô.Å. s// ÐÏÍÅÎÑÅÔÓÑ ÚÎÁÞÅÎÉÑ
ÓÁÍÏÇÏ ÍÁÓÓÉ×Á list, ×ÓÅ ÜÌÅÍÅÎÔÙ @list ÄÌÑ ËÏÔÏÒÙÈ operator ×ÅÒÎÅÔ
ÉÓÔÉÎÎÏÅ ÚÎÁÞÅÎÉÅ ÂÕÄÕÔ ÐÏÍÅÝÅÎÙ × ÍÁÓÓÉ× @arr ( ÎÏ×ÙÅ ÚÎÁÞÅÎÉÑ
@list )
.br
ë ÐÒÉÍÅÒÕ ÐÏÓÌÅ ×ÙÐÏÌÎÅÎÉÑ "@arr=grep /regexp/, @array"
× ÎÏ×ÙÊ ÍÁÓÓÉ× ÐÏÐÁÄÕÔ ÔÏÌØËÏ ÓÔÒÏËÉ ÕÄÏ×ÌÅÔ×ÏÒÑÀÝÅÅ ÒÅÇÕÌÑÒÎÏÍÕ
×ÙÒÁÖÅÎÉÀ.
.SH @arr=map operator @list, @arr=map { operators } @list
ïÞÅÎØ ÐÏÈÏÖÅ ÎÁ grep, ËÒÏÍÅ ÔÏÇÏ ÞÔÏ × @arr ÂÕÄÕÔ ÐÏÍÅÝÅÎÙ ÚÎÁÞÅÎÉÑ
ÍÁÓÓÉ×Á @list, Á ÒÅÚÕÌØÔÁÔÙ ÏÐÅÒÁÔÏÒÁ, ÐÒÉÞÅÍ ËÁË ÉÓÔÉÎÙÅ ÔÁË É
ÌÏÖÎÙÅ. ( ÏÔÓÕÔÓÔ×ÉÅ ÒÅÚÕÌØÔÁÔÁ ÔÏÖÅ ×ÏÚ×ÒÁÝÁÅÔÓÑ ÏÐÅÒÁÔÏÒÏÍ
"map" ÎÏ ÅÇÏ ÕÖÅ ÎÅ ÐÏÌÏÖÅÔ × @arr ÏÐÅÒÁÔÏÒ ÐÒÉÓ×ÁÉ×ÁÎÉÑ )
.SH reverse @list
ðÅÒÅÓÔÁ×ÌÑÅÔ ÜÌÅÍÅÎÔÙ ÓÐÉÓËÁ × ÏÂÒÁÔÎÏÍ ÐÏÒÑÄËÅ
.SH sort [sort_func] @list1 ... @listn
åÓÌÉ ÎÅ ÕËÁÚÁÎÁ ÓÏÒÔÉÒÕÀÝÁÑ ÆÕÎËÃÉÑ, cÏÒÔÉÒÕÅÔ ÍÁÓÓÉ× ÐÏ
ÁÌÆÁ×ÉÔÎÏÍÕ ×ÏÚÒÁÓÔÁÎÉÀ
.br
÷ ÓÏÒÔÉÒÕÀÝÕÅÊ ÆÕÎËÃÉÉ ÏÐÒÅÄÅÌÅÎÙ 2 ÐÅÒÅÍÅÎÎÙÅ $a É $b, ÏÎÁ
ÄÏÌÖÎÁ ×ÏÚ×ÒÁÝÁÔØ:
.RS 8
1, ÅÓÌÉ a>b
.br
0, ÅÓÌÉ a=b
.br
-1,ÅÓÌÉ a<b
.RE
ðÒÉÍÅÒ:
.I sort { $a<=>$b } @list
- ÓÏÒÔÉÒÏ×ËÁ ÐÏ ÞÉÓÌÏ×ÏÍÕ ×ÏÚÒÁÓÔÁÎÉÀ
.SH uc <string>
ÐÅÒÅ×ÏÄÉÔ × ×ÅÒÈÎÉÊ ÒÅÇÉÓÔÒ
.SH lc <string>
ÐÅÒÅ×ÏÄÉÔ × ÎÉÖÎÉÊ ÒÅÇÉÓÔÒ
|