printing the output of a program in another file

[sandeepnaayar]

hello all,
i am new to programming,i wrote a program for extracting name of the contents in a directory.i got the output in a dos window.now,i wanted to save this output in another file.while i tried this,my output file contained the contents in a straight line,rather than printing it in line sequence.my program is here

opendir DIR, "D:\dir.";   
open DIRO,'+>>out.txt';
while ( $filename = readdir(DIR) ) 
    {
 print $filename , "\n";
writeline DIRO , $filename , "\n";
    }
close DIRO;
closedir DIR;
 

[numberwhun]

hello all,
i am new to programming,i wrote a program for extracting name of the contents in a directory.i got the output in a dos window.now,i wanted to save this output in another file.while i tried this,my output file contained the contents in a straight line,rather than printing it in line sequence.my program is here

opendir DIR, "D:\dir.";   
open DIRO,'+>>out.txt';
while ( $filename = readdir(DIR) ) 
    {
 print $filename , "\n";
writeline DIRO , $filename , "\n";
    }
close DIRO;
closedir DIR;
 

Welcome to TSDN and to Perl coding!

Well, unless you wrote a function named "writeline" and are using it here, there is not a function by that name that I know of. You will want to use print in place of your writeline statement like so:

print DIRO ($filename , "\n");
 

Also, you don't need the "+" in the open statement. The >> will do an append out to the file mentioned.

Another way that you can go about getting a directory listing is to use the File::Util module from CPAN.

Regards,

Jeff