hello Monks,

While trying to use File::Copy I encounter a problem. The script below should copy a set of files (html, png, css, javascriptje) to a folder with the name "to_move". This is the folder that's mirrored with a folder on a server. On one of my computers (Mac iBook) the script given below runs ok. Setting up the script with exactly the same setup on a different machine (old Mac Powerbook) it runs only if I type in my terminal

./move.pl.

If I try to run it within a series of scripts like

system("perl move.pl");
[download]

it doesn't run. All my files remain in the original folder and there's no message/warning or anything. Maybe someone out there can tell me what I'm doing wrong?

Thanks,
Gert

#!/usr/bin/perl -w
#script_name = move.pl
use strict;
use diagnostics;
use File::Copy;

my $file_html  = undef;
my $file_png   = undef;
my $file_css   = undef;
my $javascriptje=undef;

my @files_html = <*.html>;
foreach $file_html (@files_html) {
    move( "$file_html", "./to_move/$file_html" ) or die "Copy html fai
+led: $!";
}

my @files_css = <*.css>;
foreach $file_css (@files_css) {
    copy( "$file_css", "./to_move/$file_css" ) or die "Copy css failed
+: $!";
}

my @javascriptjes = <*.js>;
foreach $javascriptje (@javascriptjes) {
    copy( "$javascriptje", "./to_move/$javascriptje" ) or die "Copy ja
+vascr failed: $!";
}

my @files_png = <*.png>;
foreach $file_png (@files_png) {
    move( "$file_png", "./to_move/$file_png" ) or die "Copy png failed
+: $!";
}
[download]