Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Print output file to a directory

by Dr Manhattan (Beadle)
on May 15, 2013 at 03:57 UTC ( #1033631=perlquestion: print w/replies, xml ) Need Help??

Dr Manhattan has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks

How can I print a output file to a directory that I just created?

I have this, but I am struugling with the rest

mkdir "New Files"; open (OUTPUT, ">:utf8", "NewTextFile.txt") or die "Can't open"; print OUTPUT "Hello monks!/n";

But I want the output file to go to the directory that I just created? Any help would be appreciated, thanx

Replies are listed 'Best First'.
Re: Print output file to a directory
by fisher (Priest) on May 15, 2013 at 04:26 UTC
    it's easy enough. Just do like this:
    #!/usr/bin/env perl mkdir "New Files"; open O, ">New Files/NewTextFile.txt" or die "Can't: $!"; print O "Hi there\n";
      Oh, oh, and you of course can 'cd' there if you like:
      mkdir "New Files"; chdir "New Files"; open O, ">NewTextFile.txt" or die "Can't: $!"; print O "Hi there\n";
Re: Print output file to a directory
by kcott (Bishop) on May 15, 2013 at 21:46 UTC

    G'day Dr Manhattan,

    Here's a working script followed by some notes.

    [Due to the presence of UTF-8 characters, I've used <pre> blocks instead of <code> blocks.]

    #!/usr/bin/env perl -l
    use strict;
    use warnings;
    use utf8;
    use autodie qw{:all};
    use Cwd;
    use File::Spec;
    my $base_dir = getcwd();
    my $new_dir = 'New Files';
    my $out_file = 'NewTextFile.txt';
    my $new_dir_path = File::Spec->catdir($base_dir, $new_dir);
    my $output_path = File::Spec->catfile($new_dir_path, $out_file);
    my $test_string = 'Greek letters: α ... ω';
    mkdir $new_dir_path;
    open my $output_fh, '>:utf8', $output_path;
    print $output_fh $test_string;
    close $output_fh;
    use utf8;

    You should use the utf8 pragma if your source contains UTF-8 characters. With my code as it is, I get this output:

    $ cat 'New Files/NewTextFile.txt'
    Greek letters: α ... ω

    Without "use utf8;", I get:

    $ cat 'New Files/NewTextFile.txt'
    Greek letters: α ... 
    use autodie qw{:all};

    There are multiple points of potential failure (mkdir, open, print, close). Rather than attempting to identify each one and then hand-crafting appropriate "... or die ..." code for them, let Perl do this for you with the autodie pragma.

    use Cwd;

    Unless given an absolute path, mkdir will create the directory relative to the current working directory; not relative to the script directory (e.g. calling "../" from "script_dir/sub_dir" will create the new directory in "script_dir/sub_dir"; not in "script_dir"). You can use Cwd if you want that behaviour; of course, you may want different behaviour.

    use File::Spec;

    I don't know what platform you're on. You may want to run this code on multiple platforms. File::Spec provides portable file name operations.

    open my $output_fh, '>:utf8', $output_path;

    I've retained the 3-argument form of open but I've used a lexical variable for the filehandle. This is to avoid collisions with global filehandles that might have been used elsewhere in your code (e.g. OUTPUT) or confusion with known, existing barewords (e.g. O).

    -- Ken

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1033631]
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2021-04-18 06:40 GMT
Find Nodes?
    Voting Booth?

    No recent polls found