Суть проблемы в том, что не работает код, написаный для Линукса. Выдает ошибку на cp. Пробовал переписать вместо cp - copy - ничего не делает, но ошибки не выдает. До этого код весь работает, проверял. Стрянет на моменте с copy.
Код: Выделить всё
($image,$suffix) = split (/\./, $picture);
print "Working with $picture\n";
foreach $key (sort keys %sizes) {
$target = join "", $image, "_", $key, ".", $suffix;
print "target is $target\n";
# only copy original for resizing if it doesn't already exist
if ( ! -e "$resizeddir/$target" ) {
# copy original into resized directory for justified_gallery_builder
# make a copy of original. if scale > original dimensions, original image will be used rather than upscaling
mkdir $resizeddir,0777;
system ("cp $picture $resizeddir/$picture") or die ".loh";
system ("cp $picture $resizeddir/$target") or die ".loh";