#!/usr/bin/perl -l use strict; use warnings; my $dirname = shift @ARGV; opendir( DIR, $dirname ); my(@files) = readdir(DIR); print "File path: "; foreach my $file (@files) { my $file_path = "$dirname/$file"; $file_path =~ s/\\|\//\\\\/g; print $file_path; } closedir DIR;
In reply to Re: How to get full path name in windows?
by Khen1950fx
in thread How to get full path name in windows?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |