michel47

#!perl
use PDL;

my $file = shift || 'example.jpg'; # if no argument is passed use example.jpg
my $thres = 0.40;

# chopping the file path ...
my $s = rindex($f,'/');
my $fpath = ($s > 0) ? substr($f,0,$s) : '.';
my $filename = substr($file,$s+1);

michel47

@:=' -- $RCSfile: FFTnd.bat,v $
@start c:\strawberry\perl\bin\perl.exe -x -S %0 %* & goto endofperl '; # vim: filetype=perl nowrap
#!perl

# note by doing an FFT I go from spacial domain to frequency domain...
#  i.e. bridging the physical world to the spiritual one <3
#
my ($source) = q$Source: /my/perl/script/fftnd.pl $ =~ /: (\S+)/;

eval { our $pwd = Win32::GetCwd() }; # current directory

michel47

#!perl

my $IPFSalphabet = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';

if ($0 eq __FILE__) {
my $e = '987654321ABC';
my $a = &decode_base($e,$IPFSalphabet);
printf "%s -> %s\n",$e,unpack('H*',$a);
my $e = &encode_base($a,$IPFSalphabet);
printf "%s -> %s\n",unpack('H*',$a),$e;

michel47

#!perl

# how to assign a hash table in parallel
# using the whole slice !!!
# read more : http://perldoc.perl.org/perldata.html
#
# courtersy Michel Combes (@ Advancement of Civilization Effort Org.)
my %hash;
my @array = (1 .. 5);
my @keys = ('a' .. 'e');

michel47

Keybase proof

I hereby claim:

• I am michel47 on github.
• I am michel47 (https://keybase.io/michel47) on keybase.
• I have a public key whose fingerprint is 5C19 0E40 DE17 68D1 4F55 43F9 02BF B5E1 314C 4080

To claim this, I am signing this object:

michel47

Keybase proof

I hereby claim:

• I am michel47 on github.
• I am michelc (https://keybase.io/michelc) on keybase.
• I have a public key whose fingerprint is FAD0 F155 9C15 C16D 1C82 D8F0 1092 2EF0 40B0 11EF

To claim this, I am signing this object:

michel47

#


# for sh
solution="$(cat <<-EOT
use cat instead of read
and don't forget
to use "" to protect your "\\\\n"
to be replaced w/ spaces.
EOT

michel47

# LS_COLORS ($Source: /my/shell/setup/.dircolors$)
# for ANSI color code see also [*](https://en.wikipedia.org/wiki/ANSI_escape_code)
# 
# Maintainers: Magnus Woldrich <m@japh.se>,
#              Ryan Delaney <ryan.delaney@gmail.com> OpenGPG: 0D98863B4E1D07B6
#              Michel G. Combes <michelc@gc-bank.org> OpenGPG: 
#         URL: https://github.com/trapd00r/LS_COLORS
#     Version: 0.254
#     Updated: Tue Mar 29 21:25:30 AEST 2016
#

michel47

head	gist	hash	qm
6b79faa	5d06c7e30abe8b4e1c1eb31edb34affd	QmSNKruojmACYPRwT3Fx8N5yovZmxBGuWWgrK3uiaD1Z3v	Qmb4Ga8fW5a7X8TUVuGegQFYeFnEkUDMSvLX4U35bv4Goz

Javascript IPFS redirect

michel47