Monestry CSS
pre.output {
color: #006;
background:#ddf url(http://buzzword.org.uk/2012/output) no-repeat sc
+roll top right;
padding:0.33em;
border:1px solid;
font-size:90%;
line-height:1.05;
}
pre.output em {
font-style: italic;
color: black;
}
pre.output strong {
font-weight: bolder;
color: black;
}
Regexp for WideMind
use 5.010;
my $string = <<'CODE';
if (foo > 1)
{
bar("Hello World");
for(var i=0; i<baz(j); i++)
{
quux(2);
}
}
CODE
# Finds "bar", "baz" and "quux", but not "if" or "for".
while ($string =~ m{ (\w+) (?<!if) (?<!for) (?<!switch) \s* \( }xg)
{
say "found: ", $1
}
|