in reply to Any issue with copy of file where filename contains + sign?

How is this a Perl problem?

Hint: You don't show any code. If you showed a small, self-contained (10-20 lines) program that exhibits the problem you mention, we can likely show you where the error stems from. Often, by reducing your program to such a small testcase, you will find that you find the error yourself.

  • Comment on Re: Any issue with copy of file where filename contains + sign?

Replies are listed 'Best First'.
Re^2: Any issue with copy of file where filename contains + sign?
by Anonymous Monk on Apr 09, 2010 at 14:41 UTC
    I tried this copy commands via command line and worked correct. Via perl script I am getting a problem. Similarly for zip of files, works from command line, via perl script see the problem. if ($filename_new =~ m/\+/ ) { $filename_new = $bugfixzip; my $bugfixzip = $SOURCE_DIR."/"."bugfixfiles.zip"; print "Zipping files with + sign in filename\n"; system("zip ${bugfixzip} ${filename_new}"); print "copy $bugfixzip","$WORK_DIR/$project/$version/$lang/us_source/$bugfixzip\n"; copy ("$bugfixzip","$WORK_DIR/$project/$version/$lang/us_source/bugfixfiles.zip"); system("unzip $WORK_DIR/$project/$version/$lang/us_source/bugfixfiles.zip $WORK_DIR/$project/$version/$lang/us_source/"); }
[reply]

      If you can't read your post, what makes you think we can?

      The preview is not there to make your life harder, but to give you a chance to fix broken formatting like the post above. As it says when you submitted that:
      If something looked unlike you expected it to you might need to check out Writeup Formatting Tips.

      If you want help, don't be lazy!

[reply]
         if ($filename_new =~ m/\+/ )
     {
           $filename_new = $bugfixzip;
           my $bugfixzip = $SOURCE_DIR."/"."bugfixfiles.zip";
           print "Zipping files with + sign in filename\n";
           system("zip ${bugfixzip} ${filename_new}");

           print "copy $bugfixzip","$WORK_DIR/$project/$version/$lang/
+us_source/$bugfixzip\n";
           copy ("$bugfixzip","$WORK_DIR/$project/$version/$lang/us_so
+urce/bugfixfiles.zip");
           system("unzip $WORK_DIR/$project/$version/$lang/us_source/b
+ugfixfiles.zip $WORK_DIR/$project/$version/$lang/us_source/");
       }

        [download]
[reply]
[d/l]
        Apologies, update added with correct formatting for code.
[reply]

In Section Seekers of Perl Wisdom