Preferred solution: Heed Corion's note above.

FTR, while your code is "close," it won't do quite what you want unless your file.ext is a single, monolithic line. If, as is likely, your file.ext contains newlines, your copy will contain only the last line of the original.

One (TIMTOWTDI) cure for that if your log is plain text):

my $data;    # ugly global; don't do this

open(LOG, "file.ext") or die ("oops, could not open source", $!);
local $/;             # slurp mode (see perlvar Record Separator)
$data2 = <LOG>;
close(LOG);

open(LOG2, ">","path/to/copy_of_file.ext") or die ("oops - could not o
+pen target", $!);
print LOG2 $data2;
close(LOG2);

[download]

For non-text files, see binmode; note also the modest changes in the die messages, which IMO (YMMV) are good practice, just to make sure that even if I glance only carelessly at the message, I'm still apt to note which file failed to open. Also note that you could do this by calling the shell's cp or copy method.

In reply to Re: How to copy a file by ww
in thread How to copy a file by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.