Skip to content

Instantly share code, notes, and snippets.

View e7dal's full-sized avatar
❄️
.

Erdal Yildiz e7dal

❄️
.
View GitHub Profile
set -x
while true
do
for f in $(find -type f )
do
n=$(echo $f|sed 's#^./##')
mv $n /some/where/else/$(date +%s)_$n
done
echo sleeping 10
sleep 10
watch -d -c 'ps -ef|bytes-circle'
#https://circulosmeos.wordpress.com/2015/10/10/statistics-circle-for-analysing-byte-entropy-in-files/
#apt install bytes-circle
@e7dal
e7dal / iag.sh
Last active January 9, 2019 14:14
set -x
ag . --nofilename --nonumbers |sed 's/^\ +//'| sed 's/[ \t]*/ /'|sort|uniq -c |sort -rh|less
#without indentation...
#to get a "feel" of a directory content, repo, with the silver searcher https://geoff.greer.fm/ag/
@e7dal
e7dal / japh.pl
Created January 24, 2014 09:33
a couple of years ago when i was learning Perl, i had made this
$|=1;sub b{my $v=shift;r("\b",$v);};sub c{my $v=shift;r("-",$v);};sub r{my $s=shift;my $n=shift;print $s x $n;};sub p{my $i=shift;b 93;c 81-$i;print '--::JAPH::--';c $i;select(undef,undef,undef,0.08);};my $i=0;my $j=0;system('clear');r "\n",10;while(1){for $i(1..8){my $m=9-$i;p $m*$m;};for $i(1..9){p $i*$i;}}