How do I redirect the output of a Perl script to another file in %TEMP%?

Question

I need a Perl script on Windows which deletes the newline characters from a file and merges all the lines into one line and then writes into another file into the %temp% directory on a Windows system. For example, this script is to delete newlines and create a single line and write into another file in %TEMP%.

I have script which deletes the newlines but the output goes to STDOUT. I am not able to create a file in %TEMP% and redirect the output to that file.

Following is my script which is not working:

my $inFile = $ARGV[0];
$ENV{'TEMP'} = 'C:\\TEMP';

if ($inFile eq "") {
    print "Input file is missing\n";
    print "perl file_into_one_line.pl <input fil>\n";
    exit 0;
}

open(INFILE, "< $inFile") || die "$0, FEJL: can't open $inFile: $!";
foreach (<INFILE>) {
    chomp;
    if (eof()) {    # check for end of last file
        print "$_\n";
    } else {
        open FILE, ">$ENV{'TEMP'}//temp//tst.txt" or die;
        print FILE "${_}$separator";
    }
}

close(INFILE);

You can run your script like this: perl myscript.pl >%TEMP%/file.txt — Francisco R
– Francisco R, Commented Apr 7, 2011 at 8:46
inFile can be undef, so check !defined $inFile || $inFile eq "". — TrueY
– TrueY, Commented Apr 21, 2013 at 16:04

Ingo · Accepted Answer · 2011-04-07 09:57:43Z

1

Note that %TEMP% is DOS syntax for accessing a environment variable. You can access the value of environment variables inside perl through the %ENV hash like so:

$ENV{k}

where k is a string expression that gives the name of the variable. Try this in your windows command line:

perl -e "print $ENV{'TEMP'};"

You should be able to do the rest from here on.

answered Apr 7, 2011 at 9:57

Ingo

36.4k6 gold badges57 silver badges102 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Yi Zhao · Accepted Answer · 2011-04-08 08:03:32Z

0

The script should be:

my $separator = " "; # I think you should have this some where~~~

my $inFile = $ARGV[0];
$ENV{'TEMP'} = 'C:\\TEMP';

if ($inFile eq "") {
    print "Input file is missing\n";
    print "perl file_into_one_line.pl <input fil>\n";
    exit 0;
}

open(INFILE, "< $inFile") || die "$0, FEJL: can't open $inFile: $!";
open FILE, ">$ENV{'TEMP'}\\tst.txt" or die $!;
foreach (<INFILE>) {
    chomp;
    print FILE "${_}$separator";
}

print FILE "\n";

close(INFILE);
close(FILE);

answered Apr 8, 2011 at 8:03

Yi Zhao

6,7841 gold badge20 silver badges18 bronze badges

1 Comment

TrueY Over a year ago

After the ast line there is no $separator. So instead of the foreach loop I could suggest sg like print FILE join $separator, map {chomp; $_} <INFILE>;

Collectives™ on Stack Overflow

How do I redirect the output of a Perl script to another file in %TEMP%?

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related