Create a file: Difference between revisions
→{{header|Perl 6}}: Added Perl 6 solution
No edit summary |
(→{{header|Perl 6}}: Added Perl 6 solution) |
||
Line 552:
<lang perl>perl -e 'qx(touch /output.txt)'
perl -e 'mkdir "/docs"'</lang>
=={{header|Perl 6}}==
<lang perl6>for < ./ / > -> $prefix {
mkdir "{$prefix}docs";
my $fh = open "{$prefix}output.txt", :w;
}
# Clean up after testing
.&unlink for < ./ / > X~ < docs output.txt >;
</lang>
=={{header|PHP}}==
| |||