File tree Expand file tree Collapse file tree 2 files changed +8
-6
lines changed Expand file tree Collapse file tree 2 files changed +8
-6
lines changed Original file line number Diff line number Diff line change 2
2
3
3
= begin pod
4
4
5
- = TITLE Matching alphabetic wide characters
6
-
7
- You want to match alphabetic characters which include unicode
5
+ = TITLE Matching alphabetic wide characters
8
6
9
7
= AUTHOR stmuk
10
8
9
+ You want to match alphabetic characters which include unicode
10
+
11
11
= end pod
12
12
13
13
my $ var = " \c[OGHAM LETTER RUIS]" ;
14
- if $ var ~~ /^ <:letter >+ $ / { # or just /^<:L>+$/ or even /^\w+$/
14
+ if $ var ~~ /^ <:letter >+ $ / { # or just /^<:L>+$/ or even /^\w+$/
15
15
say " { $ var } is purely alphabetic" ;
16
16
}
17
17
Original file line number Diff line number Diff line change 4
4
5
5
= TITLE send a signal
6
6
7
- You want to send a signal to a process on a UNIX-like OS
8
-
9
7
= AUTHOR stmuk
10
8
9
+ You want to send a signal to a process on a UNIX-like OS
10
+
11
11
= end pod
12
12
13
13
use NativeCall ;
19
19
kill ($ * PID , Signal::SIGHUP);
20
20
21
21
sleep 2 ;
22
+
23
+ # vim: expandtab shiftwidth=4 ft=perl6
You can’t perform that action at this time.
0 commit comments