colomon

for slurp.comb(/ "http://trillian.mit.edu/~jc/music/book/oneills/waifs/X/" \w*? ".abc" /) -> $url {
    qqx/curl -O $url/;
}

colomon

(partial emmentaler output...)
==> Successfully installed XML
==> Fetching Lingua::Number
==> Building Lingua::Number
Compiling lib/Lingua/Number.pm to mbc
===SORRY!===
Could not find XML in any of:
  file#/home/colomon/emmentaler/.panda-work/1434560180_7/blib/lib
  file#/home/colomon/emmentaler/.panda-work/1434560180_7/lib
  file#/home/colomon/emmentaler/installlib/lib:

colomon

t/00_basic.t ..
1..5
ok 1 - tolerant is False in cwd
not ok 2 - insensitive ok

# Failed test 'insensitive ok'
# at t/00_basic.t line 11
# expected: 'False'
#      got: 'True'
not ok 3 - sensitive ok

colomon

{
    "Counts":     {
        "Needs expansion": false,
        "Points": 0,
        "Coordinate Systems": 0,
        "Annotations": 0,
        "Curves": 5152,
        "Surfaces": 0,
        "Trimmed Surfaces": 0,
        "Breps": 282,

colomon

#!/usr/bin/env perl6
sub MAIN(:$name, :$auth, :$ver, *@pos, *%named) {
    my @binaries = CompUnitRepo.files('bin/rename-tags', :$name, :$auth, :$ver);
    unless +@binaries {
        @binaries = CompUnitRepo.files('bin/rename-tags');
        if +@binaries {
            note q:to/SORRY/;
                ===SORRY!===
                No candidate found for 'rename-tags' that match your criteria.
                Did you perhaps mean one of these?

colomon

colomon@melissa:~/tools/TagTools$ perl6 bin/rename-tags ~/Albums/Jerry_McCarthy/00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3
:arg("/home/colomon/Albums/Jerry_McCarthy/00001-A Blast of Reels from Jerry McCarthy of Scartaglin.mp3")
/home/colomon/Albums/Jerry_McCarthy/00001-A Blast of Reels from Jerry McCarthy of Scartaglin.mp3:
    Artist: trucklyhow
    Album:
    Track Number: 0
    Title: A Blast of Reels from Jerry McCarthy of Scartaglin
colomon@melissa:~/tools/TagTools$ rename-tags ~/Albums/Jerry_McCarthy/00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3
:arg("/home/colomon/Albums/Jerry_McCarthy/00001-A")
:arg("Blast")

colomon

colomon@melissa:~/tools/TagTools$ more `which rename-tags`
#!/bin/sh
    /home/colomon/.rakudobrew/bin/../moar-HEAD/install/share/perl6/site/bin/rename-tags "$@"

colomon

colomon@melissa:~/tools/TagTools/.panda-work/1429633284_1$ perl6 bin/rename-tags ~/Albums/Jerry_McCarthy/00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3
/home/colomon/Albums/Jerry_McCarthy/00001-A Blast of Reels from Jerry McCarthy of Scartaglin.mp3:
    Artist: trucklyhow
    Album:
    Track Number: 0
    Title: A Blast of Reels from Jerry McCarthy of Scartaglin
colomon@melissa:~/tools/TagTools/.panda-work/1429633284_1$ rename-tags ~/Albums/Jerry_McCarthy/00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3
Error working with /home/colomon/Albums/Jerry_McCarthy/00001-A
Failed to parse file /home/colomon/Albums/Jerry_McCarthy/00001-A: File not recognized or parseable by TagLib

colomon

colomon@melissa:~/Albums/Jerry_McCarthy$ perl6 ~/tools/TagTools/bin/rename-tags --artist="Jerry McCarthy" "00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3"
TagLib: Could not open file 00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3
Error working with 00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3
Failed to parse file 00001-A\ Blast\ of\ Reels\ from\ Jerry\ McCarthy\ of\ Scartaglin.mp3: TagLib reports file is invalid
  in submethod BUILD at lib/Audio/Taglib/Simple.pm:60
  in method BUILDALL at src/gen/m-CORE.setting:1016
  in method bless at src/gen/m-CORE.setting:999
  in method new at src/gen/m-CORE.setting:985
  in method new at lib/Audio/Taglib/Simple.pm:34
  in sub MAIN at /home/colomon/tools/TagTools/bin/rename-tags:10

colomon

use v6;

sub is-integer-power($n) {
    for 2..($n.sqrt.floor) -> $m {
        my $c = $n;
        my $count = 0;
        while $c > 1 {
            last unless $c %% $m;
            $c div= $m;
            $count++;