Anonymous user
Rename a file: Difference between revisions
m
→{{header|Perl}}: lang tag
(Ada solution added) |
m (→{{header|Perl}}: lang tag) |
||
Line 182:
=={{header|Perl}}==
use File::Spec::Functions qw(catfile rootdir);
# here
Line 189:
# root dir
move (catfile rootdir, 'input.txt'), (catfile rootdir, 'output.txt');
move (catfile rootdir, 'docs'), (catfile rootdir, 'mydocs');</lang>
=={{header|Pop11}}==
| |||