Prev: Word boundary


Note! This site is about Perl 6.
If you are looking for a solution for Perl 5, please check out the Perl 5 tutorial.


use v6;

# Let's see something else
my $apache = qq{ - - [10/Apr/2007:10:39:11 +0300] "GET / HTTP/1.1" 500 606 "-" "Mozilla/5.0 (X11; U; Linux i686; en-US; rv: Gecko/20061201 Firefox/ (Ubuntu-feisty)"};

my regex ip   { \d+\.\d+\.\d+\.\d+ }
my regex date { \[ .*? \] }

if $apache ~~ m/ <&ip> \s+ \- \s+ \- \s+ <&date> \s+ \"GET / {
    say "Apache: $/";

# use the :sigspace modifier or in short :s

if $apache ~~ m/:s <&ip> \- \- <&date> \"GET / {
    say "Apache: $/";

my regex apache { :s <&ip> \- \- <&date> \"GET }
if $apache ~~ m/ <&apache> / {
    say "Apache regex: $/";

my rule apache_rulez { <&ip> \- \- <&date> \"GET }
if $apache ~~ m/ <&apache_rulez> / {
    say "Apache rule: $/";

The Perl 6 Tricks and Treats newsletter has been around for a while. If you are interested to get special notification when there is new content on this site, it is the best way to keep track:
Full name:
This is a newsletter temporarily running on my personal site ( using Mailman, till I implement an alternative system in Perl 6.
Gabor Szabo
Written by Gabor Szabo

Published on 2012-01-01

Prev: Word boundary


In the comments, please wrap your code snippets within <pre> </pre> tags and use spaces for indentation.
comments powered by Disqus
Suggest a change
Elapsed time: 2.4832431

Support my Perl 6 book!

I am writing a book on Web Application Development in Perl 6 and raising money via crowdfunding. Please support my effort!

Perl 6 Tricks and Treats newsletter

Register to the free newsletter now, and get updates and news.