Copy and substitute simultaneously
Author: stmuk
You want to copy and substitute simultaneously
Source code: 06-01-copy-subst.p6
#!/usr/bin/env perl6 use v6; my $src = "BBC"; (my $dst = $src ) ~~ s/^B/A/; say :$dst.perl;
Perl 6 Examples
Author: stmuk
You want to copy and substitute simultaneously
Source code: 06-01-copy-subst.p6
#!/usr/bin/env perl6 use v6; my $src = "BBC"; (my $dst = $src ) ~~ s/^B/A/; say :$dst.perl;