zengargoyle

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

zengargoyle

# count numberofn
55181 0
37266 1
 8839 2
 1052 3
   59 4
    4 5

zengargoyle

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

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
use utf8::all;
use Clipboard;

# Usage:
#
# foo-that <list1> <string to match> <list2> [output file]

zengargoyle

#!/usr/bin/env perl6                                                                                                 
                                                                                                                     
class P {                                                                                                            
  has $.x;                                                                                                           
  has $.y;                                                                                                           
  has $.vx;                                                                                                          
  has $.vy;                                                                                                          
}                                                                                                                    
                                                                                

zengargoyle

my rule numbers  { [ <[0..9]>* ]* % ',' }
my rule numlist { '[' ~ ']' <numbers> }

say "[1,12]" ~~ /<numlist>+/;

zengargoyle

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

zengargoyle

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

" 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',

zengargoyle

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) {