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