Skip to content

Instantly share code, notes, and snippets.

View perlpilot's full-sized avatar

Jonathan Scott Duff perlpilot

40 followers · 27 following
View GitHub Profile
@perlpilot
perlpilot / gist:492542
Created July 27, 2010 17:20
=begin programlisting
my $s = 'the quick brown fox jumped over the the lazy dog';
my $word = rx/ \w+ [ \' \w+]? /;
if $s ~~ m/ ($word) \W+ $0 / {
say "Found '$0' twice in a row";
}
=end programlisting
@perlpilot
perlpilot / gist:497304
Created July 29, 2010 05:15
$ make blizkost-install
cd modules/blizkost && /usr/bin/perl Configure.pl --parrot-config=/home/duff/tmp/rakudo-star-beta5/install/bin/parrot_config && make
Hello, I'm Configure. My job is to poke and prod your system to figure out
how to build Blizkost.
Reading configuration information from /home/duff/tmp/rakudo-star-beta5/install/bin/parrot_config
Creating Makefile ...
Okay, we're done!
@perlpilot
perlpilot / gist:530764
Created August 17, 2010 16:43
$ cpanm -v --look Dist::Zilla::Plugin::SvnObtain
You have make /usr/bin/make
You have LWP 5.834
You have /bin/tar: tar (GNU tar) 1.22
Copyright (C) 2009 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
@perlpilot
perlpilot / gist:530768
Created August 17, 2010 16:45
$ tar zxvf Dist-Zilla-Plugin-SvnObtain-0.02.tar.gz
Dist-Zilla-Plugin-SvnObtain-0.02/lib/Dist/Zilla/Plugin
Dist-Zilla-Plugin-SvnObtain-0.02/lib/Dist/Zilla/Plugin/SvnObtain.pm
Dist-Zilla-Plugin-SvnObtain-0.02/t
Dist-Zilla-Plugin-SvnObtain-0.02/t/00-load.t
Dist-Zilla-Plugin-SvnObtain-0.02
Dist-Zilla-Plugin-SvnObtain-0.02/META.yml
Dist-Zilla-Plugin-SvnObtain-0.02/LICENSE
Dist-Zilla-Plugin-SvnObtain-0.02/README
Dist-Zilla-Plugin-SvnObtain-0.02/MANIFEST
@perlpilot
perlpilot / gist:562672
Created September 2, 2010 18:26
/home/duff
$ perl6
> for 1..200 { $_ }
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 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200
> for 1..200 { $_ }
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
@perlpilot
perlpilot / gist:582416
Created September 16, 2010 13:26
Statement Modifiers
Any simple statement may optionally be followed by a SINGLE modifier, just before the
terminating semicolon (or block ending). The possible modifiers are:
if EXPR
unless EXPR
while EXPR
until EXPR
when EXPR
for LIST
@perlpilot
perlpilot / gist:702034
Created November 16, 2010 16:36
my enum Seasons «:Spring(10000) Summer Autumn Winter»;
my @seasons{Seasons};
maps to
@seasons{Spring} ------> @seasons[0]
@seasons{Summer} ------> @seasons[1]
@seasons{Autumn} ------> @seasons[2]
@seasons{Winter} ------> @seasons[3]
@perlpilot
perlpilot / gist:705084
Created November 18, 2010 15:01
/home/duff/git/rakudo [master $% u=]
$ make realclean; perl Configure.pl --parrot-config=~/tmp/parrot-2.10.1/parrot_config
/usr/bin/perl -MExtUtils::Command -e rm_f *.manifest *.pdb perl6.pbc perl6 perl6.c perl6.o perl6_group.* Test.pir rakudo_test_run.tar.gz dynext/*.so src/gen/core.pm src/gen/*.pir src/gen/*.pbc src/gen/*.pm src/pmc/pmc_*.h src/pmc/*.c src/pmc/*.dump src/pmc/*.o src/pmc/*.so src/pmc/*.exp src/pmc/*.ilk src/pmc/*.manifest src/pmc/*.pdb src/pmc/*.lib src/pmc/objectref.pmc src/ops/*.h src/ops/*.c src/ops/*.o src/ops/*.so src/binder/*.o
/usr/bin/perl -MExtUtils::Command -e rm_f Makefile
Reading configuration information from ~/tmp/parrot-2.10.1/parrot_config ...
Use of uninitialized value $bb in pattern match (m//) at build/lib/Rakudo/CompareRevisions.pm line 20.
Use of uninitialized value $g in pattern match (m//) at build/lib/Rakudo/CompareRevisions.pm line 11.
Use of uninitialized value $g in concatenation (.) or string at build/lib/Rakudo/CompareRevisions.pm line 11.
Invalid revision spe
@perlpilot
perlpilot / gist:766993
Created January 5, 2011 20:57
handles => ARRAY | HASH | REGEXP | ROLE | ROLETYPE | DUCKTYPE | CODE
The handles option provides Moose classes with automated delegation features.
This is a pretty complex and powerful option. It accepts many different option
formats, each with its own benefits and drawbacks.
NOTE: The class being delegated to does not need to be a Moose based class, which
is why this feature is especially useful when wrapping non-Moose classes.
All handles option formats share the following traits:
@perlpilot
perlpilot / gist:767032
Created January 5, 2011 21:18
#2011005+2115 nwsscan[8829] data: (051 2011005+0354) spicgs-2011005.nws[649]: ?Conductivity (G1) flagged as bad or missing
#2011005+2115 nwsscan[8829] data: (051 2011005+0400) spicgs-2011005.nws[663]: ?Water temperature (E2) flagged as bad or missing
#2011005+2115 nwsscan[8829] data: (051 2011005+0400) spicgs-2011005.nws[665]: ?Conductivity (G1) flagged as bad or missing
#2011005+2115 nwsscan[8829] data: (051 2011005+0406) spicgs-2011005.nws[679]: ?Water temperature (E2) flagged as bad or missing
#2011005+2115 nwsscan[8829] data: (051 2011005+0406) spicgs-2011005.nws[681]: ?Conductivity (G1) flagged as bad or missing
#2011005+2115 nwsscan[8829] data: (051 2011005+0412) spicgs-2011005.nws[695]: ?Water temperature (E2) flagged as bad or missing
#2011005+2115 nwsscan[8829] data: (051 2011005+0412) spicgs-2011005.nws[697]: ?Conductivity (G1) flagged as bad or missing