File Program

[sadanand]

Hi,

I am a beginer to perl progmig.
When I run the following program..

use File::Find;
use File::Stat;
use Time::Local;
 
my $test_data1='X path'; # Some path
 
my @cbr = $test_data1;
foreach $cbr(@cbr) {
    opendir (DIR,$cbr);
    @files = readdir(DIR);
    closedir(DIR);
 
    foreach $file (sort @files) {
        print("$file \n ");
    }
}
 

I am able to print the files present in X path on STDOUT (Command prompt). I am not able to write this OUTPUT to the text file.How can I achive this? And also how can I copy each line of this text fle into excel file.
looking for your response.

Thanks in advance.

Sada

[KevinADC]

No where in your code are you attempting to write data to a file. Are you confused how to open files for writing or confused why your code does not write anything to a file? If the confusion is on opening a file for writing, this link should help:

http://perldoc.perl.org/perlopentut.html

As far as writing data to an excel file you would probably want to use a module written for that purpose.