in reply to copy isn't working

Hello YellowJackets,

Welcome to the Monastery.

Can you provide us with a sample of your code between code tags?

Update: I just noticed on your command:

copy ($filename, archive\\$archiveFileName);

[download]

Why you are using the double backslash? what type of operating system are you running the script (WindowsOS or LinuxOS)? I am asking because the slash can be different.

Update2: Basic troubleshooting from the module documentation:

copy("sourcefile","destinationfile") or die "Copy failed: $!";

[download]

Add the or die "Copy failed: $!" and you will know why the copying is failing.

Update3: Most likely the error is coming from the wrong path and also that you need to add double quotes. Last question. Why you are copying a file name $filename to another location e.g. archive\\$archiveFileName? I would assume you want something like that?

copy($archiveFileName, "archive\\$archiveFileName")
    or die "Copy failed: $!"

[download]

Looking forward to your update. BR / Thanos

Seeking for Perl wisdom...on the process of learning...not there...yet!

Replies are listed 'Best First'.
Re^2: copy isn't working
by YellowJackets (Initiate) on Mar 07, 2019 at 17:35 UTC

    Update 1: I am using WindowsOS. \\ worked for rename so using the same for copy as well.

    Update 2: I did try with or die "Copy failed: $!" but returned "Copy failed: at c:\perl_scripts\copy_rename.pl line 33."

    Update 3: I want to archive the file in a different directory with timestamp after processing it. Hope that helps

    Code : 

    use strict;
use warnings;
use Time::Piece;
use File::Copy;

my $toDate = localtime->strftime('%F %T');

foreach my $file (glob "C:\\data\\app\\AppSpecific1\\In\\test*")
{

    my $archiveFileName = $file."_".$toDate.".txt";
    
    print "copy $file, $archiveFileName\n";

    copy ($file, "C:\\data\\app\\AppSpecific1\\Archive\\".$archiveFile
+Name) or die "Copy failed: $!";
    
}

    [download]

    Compilation error perl c:\perl_scripts\copy_rename.pl copy C:\data\app\AppSpecific1\In\test.txt, C:\data\app\AppSpecific1\In\test.txt_2019-03-07 12:22:44.txt Copy failed: at c:\perl_scripts\copy_rename.pl line 33.

[reply]
[d/l]
      C:\data\app\AppSpecific1\In\test.txt_2019-03-07 12:22:44.txt

      Windows file names cannot contain colons :. Try using

      my $toDate = localtime->strftime('%Y-%m-%d_%H%M%S'); poj
[reply]
[d/l]
[select]

        I tried both these options but didn't work.

        my $toDate = localtime->strftime('%Y-%m-%d_%H%M%S');

        my $toDate = localtime->strftime('%Y-%m-%d_%H_%M_%S');

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom