Help for this page

Select Code to Download


  1. or download this
    $ perl -lwe'print join" > ",m#(?:^rs://|\.)([-\w]+)#g
                         for qw(rs://b.c rs://d.e.f rs://g.h.i.j.k)'
b > c
d > e > f
g > h > i > j > k
$
  2. or download this
    (m|^rs://([-\w]+)|g, m|\G\.([-\w]+)|g)
  3. or download this
    m|^rs://([-\w]+)|, m|\.([-\w]+)|g