Skip to content

Instantly share code, notes, and snippets.

View MattOates's full-sized avatar

Matt Oates MattOates

52 followers · 36 following
  • Bristol, UK
View GitHub Profile
@MattOates
MattOates / super_cool_script.pl
Last active August 26, 2015 16:52
Boring script to split on some fields from a reddit post https://www.reddit.com/r/perl/comments/3ih6ha/commissioned_work/
#!/usr/bin/env perl
#Write sane perl
use strict;
use warnings;
use feature 'say';
#Use some modules which are sufficiently round wheels
use Text::CSV;
use Getopt::Long;
@MattOates
MattOates / my_series_fail.p6
Created February 7, 2014 10:12
my @list = ('P','P','G','A','P','T','A','T','T','A');
for 1..4 -> $k { for 1,1+$k...@list.end -> $i { say "$i" } }
@MattOates
MattOates / fib_app.pl
Created February 14, 2014 18:30
Quick test of interlaced recursive function and template stuff in Mojolicious
#!/usr/bin/env perl
use Mojolicious::Lite;
get '/:n' => sub {
my $self = shift;
$self->render('index');
};
app->start;
__DATA__
@MattOates
MattOates / fasta.p6
Last active August 29, 2015 14:00
Playing with FASTA parsing
#!/usr/bin/env perl6
use v6;
class Bio::Sequence {
has Str $.id = "";
has Str $.comment = "";
has Str $.sequence = "";
}
class Bio::Sequence::Amino is Bio::Sequence {
@MattOates
MattOates / gist:972ae2cc8428155c0592
Created May 30, 2014 17:12
Whiteboard cleanup onleliner
convert input.jpg -morphology Convolve DoG:15,100,0 -negate -normalize -blur 0x1 -channel RBG -level 60%,91%,0.1 output.jpg
@MattOates
MattOates / SQL.pl
Created August 28, 2014 15:39
SQL Named Parameter Replacement
#!/usr/bin/env perl
use warnings;
use strict;
use Data::Dumper;
sub sql {
my ($sql,%data) = @_;
my @parameters;
foreach my $placeholder ($sql =~ /:([a-zA-Z_]+)/g) {
if (ref $data{$placeholder} eq 'ARRAY') {
@MattOates
MattOates / runencode.pl
Created September 5, 2014 14:43
Function to run length encode stuff in Perl
#Take an arrayref of numbers or a delimited string and returns a list of start-end pairs for runs of values above a threshold
sub runencode {
my ($probs,%opts) = @_;
#Some default optional parameters
$opts{delimiter} //= ',';
$opts{threshold} //= 0.5;
$opts{cmp} //= sub {$_[0] >= $_[1]};
#If a string was passed split it into values
@MattOates
MattOates / Grammar_trace.txt
Created December 14, 2014 17:39
Day 15 of the Perl6 2014 Advent Calendar
TOP
>
| record
>
| | id
>
| | * MATCH "hello"
>
| | comment
>
@MattOates
MattOates / BioInfo.pm6
Last active August 29, 2015 14:16
Trying to add a little Slang to https://github.com/MattOates/BioInfo so that ` ` construct a Seq object
use QAST:from<NQP>;
sub BioInfo::seq(Str $sequence) is export {
use BioInfo::Parser::FASTA::Grammar;
use BioInfo::Parser::FASTA::Actions;
BioInfo::Parser::FASTA::Grammar.parse($sequence, actions => BioInfo::Parser::FASTA::Actions).ast;
}
sub EXPORT(|) {
role BioInfo::Grammar {
@MattOates
MattOates / six-frame-translation
Created March 24, 2015 12:05
Mising bits from P5 necessary for a port of the six-frame-translation perl6-bench benchmark
use strict;
use feature 'say';
use Data::Dumper;
use List::MoreUtils 'zip';
#Implement something similar to the Perl6 X meta operator
#probably not the best implementation in the world
sub X {