Select
file: qiv-command.p6 1: #!/usr/bin/env perl6 2: 3: sub MAIN ($action, $in) { 4: my $filename = $in; 5: $filename ~~ s:g/['/' | '..']+/_/; 6: $filename ~~ s:g/_+/_/; 7: $filename ~~ s:g/^_//; 8: 9: my $out = $*SPEC.catfile('/home/domm/media/fotos/select/', 10: $action, $filename); 11: copy $in, $out; 12: }
used to be s///g in Perl5