Skip to content

Instantly share code, notes, and snippets.

@zengargoyle
zengargoyle / anime.txt
Created Aug 27, 2021
some anime on CR.
View anime.txt
####### old-home/bin/anime_16_3
Mon Bananya
sweetness & lightning
Taboo Tattoo
Mob Psycho 100
NEW GAME!
Wed Twin Star Exorcists
Thu This Art Club Has a Problem!
Fri SPACE PATROL LULUCO
View frequency.txt
# count numberofn
55181 0
37266 1
8839 2
1052 3
59 4
4 5
@zengargoyle
zengargoyle / guess-02
Last active Mar 20, 2019
simple webvtt subtitle stripping
View guess-02
cat 1aZHmb8P | perl -ne 's/\r?\n$//;/-->/&&next;s/<\/?c.*?>//g;s/<\d.*?>//g;/^\s*$/&&next;printf"$_\n"'
# get rid of webvtt header
cat 1aZHmb8P | perl -ne 's/\r?\n$//;/-->/&&next;s/<\/?c.*?>//g;s/<\d.*?>//g;next if /^\s*$/;printf"$_\n";BEGIN{while(<>){/##/&&last}}'
@zengargoyle
zengargoyle / foome
Last active Feb 16, 2019
make some sort of list thingy
View foome
#!/usr/bin/perl
use strict;
use warnings;
use autodie;
use utf8::all;
use Clipboard;
# Usage:
#
# foo-that <list1> <string to match> <list2> [output file]
View min.p6
#!/usr/bin/env perl6
class P {
has $.x;
has $.y;
has $.vx;
has $.vy;
}
View foo.pl6
my rule numbers { [ <[0..9]>* ]* % ',' }
my rule numlist { '[' ~ ']' <numbers> }
say "[1,12]" ~~ /<numlist>+/;
@zengargoyle
zengargoyle / nopaste
Created Aug 4, 2017
Bailador install
View nopaste
zen@zim:~/p6$ zef install Bailador
===> Searching for: Bailador
===> Searching for missing dependencies: Digest, Digest::HMAC, HTTP::Easy, HTTP::MultiPartParser, HTTP::Server::Ogre, HTTP::Status, Log::Any, Path::Iterator, Template::Mojo, Template::Mustache, TAP::Harness
===> Searching for missing dependencies: PSGI, HTTP::Request::Supply
===> Testing: Digest:ver('0.3.4'):auth('Lucien Grondin')
===> Testing [OK] for Digest:ver('0.3.4'):auth('Lucien Grondin')
===> Testing: Digest::HMAC:ver('1.0.0'):auth('github:retupmoca')
===> Testing [OK] for Digest::HMAC:ver('1.0.0'):auth('github:retupmoca')
===> Testing: HTTP::Status
===> Testing [OK] for HTTP::Status
View nopaste
zen@zim:~/p6/perl6-app-snippet$ perl6 -I. ./bin/snippet
Usage:
./bin/snippet cpp [-h|--help] [-v|--version] [-S] [-E] [-l=<array>] [-L=<array>] [-i=<array>] [-I=<array>] [-D=<array>] [--pp=<array>] [--astyle=<string>] [--clang-format=<string>] [--uncrustify=<string>] [-f=<array>] [--flag=<array>] [--main=<string>] [--end=<string>] [-w] [--std=<string>] [-c|--compiler=<string>] [-e=<array>] [-r] [-o=<string>] [-p] [--debug] [--temp] [--quite] [--args=<array>] [-u|--using=<array>] [--ns=<array>] *@args
./bin/snippet c [-h|--help] [-v|--version] [-S] [-E] [-l=<array>] [-L=<array>] [-i=<array>] [-I=<array>] [-D=<array>] [--pp=<array>] [--astyle=<string>] [--clang-format=<string>] [--uncrustify=<string>] [-f=<array>] [--flag=<array>] [--main=<string>] [--end=<string>] [-w] [--std=<string>] [-c|--compiler=<string>] [-e=<array>] [-r] [-o=<string>] [-p] [--debug] [--temp] [--quite] [--args=<array>] *@args
Need command: < c >.
Need command: < c >.
in block at /opt/rakudobrew/moar-nom/install/share/perl6/site
@zengargoyle
zengargoyle / tagbar-perl6.vim
Created Jul 28, 2017
perl6 vim tagbar plugin config
View tagbar-perl6.vim
" bare minimum for TagBar
" See :help tagbar-extend for more details.
let g:tagbar_type_perl6 = {
\ 'ctagstype' : 'perl6',
\ 'kinds' : [
\ 'c:classes',
\ 'g:grammar',
\ 'm:methods',
\ 'o:modules',
\ 'p:packages',
View new.p6
use YAML;
class datas {
has Str $.filename is rw;
has Array @.datas;
has Str $.directory = %*ENV<HOME> ~ "/.vim/installer";
has Str $.repo_dir = %*ENV<HOME> ~ "/.vim/bundle";
has Str $.full_filename;
# method new (Str $filename) {