Reading Files From Directories

[humaid]

hi guys,
iam doing a project on linguistic for which i have to extract the news from a local web site,i have done so and later i have saved all the files in a directory,now i want all the files in a single file so that iam trying to read the file from the directory,which iam not able to...
here is the code

#!/usr/bin/perl
$dir = "D:\\perl program\\perl\\bin\\malar";
opendir DH,$dir;
@files = readdir(DH);
foreach $files(@files){
    print "$files\n";
 

here iam getting the names of the files which is in the dir,but i want to read the files.

[mohanprasadgutta]

hi guys,
iam doing a project on linguistic for which i have to extract the news from a local web site,i have done so and later i have saved all the files in a directory,now i want all the files in a single file so that iam trying to read the file from the directory,which iam not able to...
here is the code

#!/usr/bin/perl
$dir = "D:\\perl program\\perl\\bin\\malar";
opendir DH,$dir;
@files = readdir(DH);
foreach $files(@files){
    print "$files\n";
 

here iam getting the names of the files which is in the dir,but i want to read the files.

Can you clearly tell abt your questions..
do you want to open and read all files in a directory one by one or something else?

Regards,
Mohan.

[mehj123]

hi guys,
iam doing a project on linguistic for which i have to extract the news from a local web site,i have done so and later i have saved all the files in a directory,now i want all the files in a single file so that iam trying to read the file from the directory,which iam not able to...
here is the code

#!/usr/bin/perl
$dir = "D:\\perl program\\perl\\bin\\malar";
opendir DH,$dir;
@files = readdir(DH);
foreach $files(@files){
    print "$files\n";
 

here iam getting the names of the files which is in the dir,but i want to read the files.

Hi...

After getting the names of the files of the directory, you would have to open all these files one by one and read the contents... you can copy these contents to another file...

Try doing something like this

#open the temporary file in append mode
open (OUT,">>temp.txt") || die ("Cant open");
foreach $files(@files)
{
#open the files one by one
 open(FH,$files)|| die("cannot open the file");
# read the contents
 @new_array = <FH>;
# store in the temporary file
 print OUT @new_array;
close(FH);
}
close(OUT);
 

[humaid]

Can you clearly tell abt your questions..
do you want to open and read all files in a directory one by one or something else?

Regards,
Mohan.

yes i want to open a dir and read all files at a time and not one by one.

[numberwhun]

yes i want to open a dir and read all files at a time and not one by one.

Then, as previously stated, you would have to take a directory listing, parse it to get JUST the file names (with a regex), put the list into an array and use that to cycle through all the files, opening each one in turn and doing what you need to do.

Regards,

Jeff

[KevinADC]

yes i want to open a dir and read all files at a time and not one by one.

You have to read the files one at a time. It sounds like what you want to do is concatenate/append all the files into one big file. But if you're use readdir() to get a list of the files they will be in whatever order the system stores them in. That means they might not print in the correct order when concatenated together, if that is a concern.

Since you are on windows you can probably use the DOS command "copy" to append all the files together or use perl or a perl module, like File::Spec, to concatenate the files.