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

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

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

#!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

#!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

@:=' -- $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
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);