View count.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
$p = -1; | |
$intr = 2; | |
@minute = (); | |
while(1) { | |
$c = `find ./scraped -size +3k -ls|wc -l`; | |
chomp($c); | |
if ($p>=0) { | |
$t = $c - $p; |
View assert.js
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
const processOutput = (_output, _outputExample) => { | |
Object.keys(_outputExample).forEach((k)=>{ | |
const val = _outputExample[k] | |
if (val != null && Array.isArray(val)) { | |
assert.deepStrictEqual(_output[k], val) | |
} else if (typeof val == 'object' && val != null) { | |
processOutput(_output[k], val) | |
} else { | |
assert.strictEqual(_output[k], val) |
View gist:b33548e1a3b8ed120312369fa67fb522
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
On the same server as OpenWhisk with the playground running, add the Nginx config; | |
server { | |
listen 443; | |
listen [::]:443; | |
server_name whisk.server.com; | |
location ~ /api/v1/* { | |
proxy_pass http://172.17.0.1:3233; |
View ofxint.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
=begin comment | |
Go here: https://www.ofx.com/en-us/forex-news/historical-exchange-rates/ | |
open developer tools in Chrome | |
paste in console; |
View mt940.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
%fieldmapping = ( '20'=>'transaction_ref', '25'=>'account_ref', '28C' => 'statement_no', '86'=>'account_owner', | |
'61'=>'amount', '60F' => 'opening_balance', '62F'=>'closing_balance' ); | |
@fieldorder = ($fieldmapping{'20'}, $fieldmapping{'25'}, 'date', $fieldmapping{'28C'}, $fieldmapping{'86'}, | |
'currency', $fieldmapping{'61'}, $fieldmapping{'60F'}, $fieldmapping{'62F'}); | |
$last = ""; | |
$skipline = 0; |
View verhoef.cs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
using System; | |
public class Program | |
{ | |
int[][] F = new int[8][]; | |
int[][] Op = new int[10][]; | |
int[] Inv = new int[] { 0, 4, 3, 2, 1, 5, 6, 7, 8, 9 }; | |
public Program() | |
{ |
View efgetcontext.cs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
private T GetContext<T>() where T : DbContext | |
{ | |
var options = new DbContextOptionsBuilder<T>().UseNpgsql(connection).Options; | |
return (T) typeof(T).GetConstructor(new Type[] { typeof(DbContextOptions<T>) }).Invoke(new object[] { options }); | |
} |
View slurpy.cs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/// <summary> | |
/// Copy every matching property from source -> target | |
/// </summary> | |
/// <param name="target"></param> | |
/// <param name="source"></param> | |
public static void Slurp(this object target, object source) | |
{ | |
target.GetType() | |
.GetProperties() | |
.Where(p => p.SetMethod != null) |
View retry.cs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
const int RETRIES = 3; | |
void Retry(Action f) | |
{ | |
for (int i = 0; i < RETRIES; i++) | |
{ | |
try | |
{ | |
f(); | |
} |
View explainquery.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# enable query log for mysql | |
open(F, "tail -f ~/query.log|"); | |
while(<F>){ | |
chomp; | |
if (/\d+\s+Execute\s+(select.*)$/igsm) { | |
print "\n\nQuery: $1 : \n"; | |
$qry = $1; | |
$qry =~ s/\`/\\\`/isgm; |