note
2teez
<p>
Am adding just a "kobo" suggestion, using your OP and the modification provided by [ww] to your script.<br><br>
[Anonymous Monk] says:<br>
<b><i>"..D:\Prog\Perls is the location where I execute my code.."</i></b><br><br>
In that case, you can get your desired result using [doc://chdir]. <tt><c>{</c>Updated<c>}</c></tt><br> Like so:
<c>
#!/usr/bin/perl
use warnings;
use strict;
use File::Spec;
my $dirname = "C:\\Users\\Me\\Desktop\\Cluster1";
my @file_to_use_later; ## for use later
chdir $dirname; ## add this to OP script
opendir DIR, $dirname or die "can't open directory: $!";
my @FILES = readdir(DIR);
foreach my $FILE (@FILES) {
my $fil_path = File::Spec->rel2abs($FILE);
print "File path:", $fil_path, $/;
push @file_to_use_later, $fil_path if -f $fil_path; ## check files contents later
}
closedir DIR or die "can't close directory: $!";
## test the files stored in the array variable later
for my $filename (@file_to_use_later) {
print $filename, $/;
open my $fh, '<', $filename or die "can't open: $!";
while (<$fh>) {
chomp;
print $_, $/;
}
close $fh or die "can't close file:$!";
}
</c>
<br>
Also, take note of this important info from [doc://File::Spec] documentation about the "rel2abs".<br>
<tt>
<b>rel2abs()</b>
Converts a relative path to an absolute path.
<c>
$abs_path = File::Spec->rel2abs( $path ) ;
$abs_path = File::Spec->rel2abs( $path, $base ) ;
</c>
If $base is not present or '', then [doc://Cwd] is used. If $base is relative, then it is converted to absolute form using rel2abs(). This means that it is taken to be relative to [doc://Cwd].<br><br>
On systems with the concept of volume, if $path and $base appear to be on two different volumes, we will not attempt to resolve the two paths, and we will instead simply return $path .
</tt><br>
The above explain, why you are getting this:
<c>
D:\Prog\Perls\doc.txt
D:\Prog\Perls\volt.txt
D:\Prog\Perls\holiday.txt
</c> instead of this
<c>
C:\Users\Me\Desktop\Cluster1\doc.txt
C:\Users\Me\Desktop\Cluster1\volt.txt
C:\Users\Me\Desktop\Cluster1\holiday.txt
</c>
<b>Update:</b><br>
You may also want to look into the module [cpan://Path::Class] and it's "cousins".<br> [cpan://Path::Class] 'just' is a "wrapper" for [doc://File::Spec].
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-918402">
If you tell me, I'll forget.<br>
If you show me, I'll remember.<br>
if you involve me, I'll understand.<br>
--- Author [unknown to me]
</div></div>
1007994
1007994