bduggan

[bduggan@lubber (master) tuba]$ find . -name '*.ttl.tut' |xargs perl -nle 'print "$1:$2" if /\b(\S+):([A-Z]\S+\b)/' |sort -u
bibo:Article
bibo:Book
bibo:Journal
bibo:Webpage
biro:BibliographicRecord
datacite:AlternateResourceIdentifier
dbpedia:Domain_Name
dbpedia:MIME
dbpedia:Natural_number

bduggan

$ perl check-issns.pl http://data.globalchange.gov
no issn for http://data.globalchange.gov/journal/environmental-energy-law-policy-journal
no issn for http://data.globalchange.gov/journal/new-york-university-review-law-social-change
no issn for http://data.globalchange.gov/journal/mediation-quarterly-
no issn for http://data.globalchange.gov/journal/fsu-college-of-law-public-law-research-paper-no-288
no issn for http://data.globalchange.gov/journal/alaska-fishery-research-bulletin
no issn for http://data.globalchange.gov/journal/alaska-climate-dispatch
no issn for http://data.globalchange.gov/journal/plains-anthropologist
no issn for http://data.globalchange.gov/journal/indian-journal-medical-research
no issn for http://data.globalchange.gov/journal/nyu-environmental-law-journal

bduggan

my $r = Buf[uint8].new(71, 69, 84, 32, 47, 32, 72, 84, 84, 80, 47, 49, 46, 49, 13, 10);
my $b = Buf[uint8].new(13, 10);

say $r.perl;
say $b.perl;

$r.append($b);

# "This representation (VMArray) cannot unbox to a native int
#  in block <unit> at append.pl line 7"

bduggan

/*
* CREATE EXTENSION pg_trgm;
*
* recursive portion taken directly from:
* http://www.postgresql.org/docs/9.5/static/queries-with.html
*/
WITH RECURSIVE search_graph(id, link, name, depth, path, cycle) AS (
        SELECT g.id, g.link, g.name, 1,
          ARRAY[g.id],
          false

bduggan

bduggan: wrk http://localhost:3333
Running 10s test @ http://localhost:3333
  2 threads and 10 connections
  Thread Stats   Avg      Stdev     Max   +/- Stdev
    Latency     7.25ms    5.29ms  28.58ms   84.73%
    Req/Sec   789.13     83.95     1.02k    68.00%
  15853 requests in 10.09s, 1.25MB read
Requests/sec:   1570.58
Transfer/sec:    127.30KB

bduggan

bduggan: wrk -t 5 http://localhost:3333
Running 10s test @ http://localhost:3333
  5 threads and 10 connections
  Thread Stats   Avg      Stdev     Max   +/- Stdev
    Latency   136.11ms  248.76ms   1.30s    85.47%
    Req/Sec    92.86     40.93   217.00     69.28%
  3128 requests in 10.09s, 253.54KB read
Requests/sec:    309.93
Transfer/sec:     25.12KB

bduggan

#!/usr/bin/env perl6

use v6;

# a webserver that is threaded with a 1 second timeout for clients
# but which does not impose a timeout on the (server) portion that
# is generating the response.

my $host = 'localhost';
my $port = 3333;

bduggan

# casecmp should return 0 when strings are the same but different cases
bduggan: ruby -e "puts 'Reichwaldstraße'.casecmp('REICHWALDSTRASSE')"
1
bduggan: ruby -e "puts 'Ὀδυσσεύς'.casecmp('ὈΔΥΣΣΕΎΣ')"
1
bduggan: perl6 -e 'say fc("Reichwaldstraße") eq fc("REICHWALDSTRASSE")'
True
bduggan: perl6 -e "say fc('Ὀδυσσεύς') eq fc('ὈΔΥΣΣΕΎΣ')"
True

bduggan

.say for "ask me","tell me","give me", "quiz me on"
       X "some",""
       X '{Level} {Category}'
       X "math",""
       X "questions","problems";

bduggan

class X {
    has Date(Str) $.day;
}

my $x = X.new(:day<2012-01-01>);