File Program

sadanand

Hi,

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

Expand|Select|Wrap|Line Numbers

 
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.

File Program

re: File Program

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about