| User since: |
Jun 05, 2000 at 14:25 UTC
(26 years ago) |
| Last here: |
Sep 02, 2009 at 22:26 UTC
(16 years ago) |
| Experience: |
161
|
| Level: | Beadle (5) |
| Writeups: |
26
|
| Location: | n/a |
| User's localtime: |
Dec 17, 2025 at 02:31 -11
|
| Scratchpad: |
None.
|
| For this user: | Search nodes |
|
# output - Couldn't make directory c:xtrafiles
use strict;
my @extrafiles = ("blah.txt","wah.txt");
my $dname = "c:\extrafiles";
&moveextrafiles($dname,@extrafiles);
exit;
sub moveextrafiles
{
my ($dirname,@filestomove) = @_;
# change \ to \\ e.g. c:\extrafiles to c:\\extrafiles
mkdir $dirname,0777 or die "Couldn't make directory $dirname\n";
}