Splitting up a filename

Author: stmuk

You want to split a filename into basename, directory etc.

Source code: 09-10-filename-splitting.p6

#!/usr/bin/env perl6

use v6;

sub MAIN(:$file = "/usr/lib64/libc.so") {
    my $io = $file.IO;

    say "basename: ",  $io.basename;
    say "dirname: ",   $io.dirname;
    say "extension: ", $io.extension;
}