qgp9

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my @PNS = ( 3, 4, 5, 6 );
my $lambda = 0.1;

for my $PN ( @PNS ){

qgp9

#!/bin/bash

TargetNumber=${1:-5712925402340856}

{
  echo "##### Target Number = $TargetNumber"
  echo
  echo -n "##### primeFactor.pl : perl ";perl -E'say $^V'
  time ./primeFactor.pl $TargetNumber
  echo

qgp9

find . -type f -print0 | xargs -0 md5sum > md5list.txt
perl -ne '/^(\S+)\s+(.+)/ and push @{$h{$1}},$2}{@$v>1&&print join"\n\t",$k,@$v,"\n"while($k,$v)=each%h' md5list.txt

qgp9

template < class T, int n > struct mvector_tool{
  typedef vector< typename mvector_tool<T,n-1>::type > type;
  static type gen_vector( std::array<unsigned int, n> index, T initvalue ){
    std::array<unsigned int,n-1> index_next;
    std::copy_n( index.begin()+1, n-1, index_next.begin() );
    return type( index.front(), mvector_tool<T,n-1>::gen_vector( index_next, initvalue ));
  }
};

template < class T > struct mvector_tool<T,0>{

qgp9

function Happiness(t){
  return t + "free";
}

qgp9

'use strict'
/*================ Requires =====================================*/
//let utils = require( './utils'   );

/*================ Class Variables/Constants ====================*/
let methods ; // Mandatory
const  CODE_STRING = '<<code>>';
let someClassVariable = 'someClassVariable';

qgp9

PHP

• http://php.net/manual/en/function.json-decode.php
• http://nitschinger.at/Handling-JSON-like-a-boss-in-PHP/

JAVA

• http://www.oracle.com/technetwork/articles/java/json-1973242.html
• http://www.tutorialspoint.com/json/json_java_example.htm

PYTHON

• https://docs.python.org/3/library/json.html

qgp9

#!/usr/bin/env perl
use strict;
use warnings;

use Getopt::Long 2.24, qw( :config bundling no_ignore_case no_auto_abbrev );

my ( $N, $EXT, @EXT, @USE, $DECODE, $ENCODE );
sub compile { eval shift } # defined early to control the lexical environment

my $msglevel = 0;

qgp9

How to make a tumbnail of snapshots from a movie clip with libAV

qgp9

#!/bin/bash
com=${1:-"htop"}
tname=mon
twin=mon
tnw=$tname:$twin

tmux has-session -t $tname
if [ $? != 0 ]
then
  tmux new-session   -s $tname -n $twin -d ssh -t a1 "$com"