Changeset 23464

Show
Ignore:
Timestamp:
13.12.2010 16:12:56 (9 years ago)
Author:
davidb
Message:

Further debugging output for working with Windows files

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • test-collections/trunk/filename-encodings/bin/script/dirlist.pl

    r23346 r23464  
    11#!/usr/bin/perl -w 
    22 
    3 use strict; 
    43 
     4use Encode; 
    55 
    66sub debug_unicode_string 
     
    3131close(DIN); 
    3232 
    33 #open(FOUT,">file-list.txt") 
    34 #    || die "Unable to open file-list.txt"; 
    35  
    3633foreach my $f (@files)  
    3734{ 
     
    4138    my $dirsep = ($^O =~ /mswin/i) ? "\\" : "/"; 
    4239 
    43     # Remove trailing directory separator 
    44     # (will be explicitly added in later on) 
    4540    $f =~ s@$dirsep$@@; 
    4641 
    47     if ( -e "$dir$dirsep$f" ) { 
    48     print "   Perl can see file $dir$dirsep$f\n"; 
     42    my $full_f = "$dir$dirsep$f"; 
     43    if ($^O =~ /mswin/i) { 
     44    require Win32; 
     45    $full_f = Win32::GetLongPathName($full_f); 
     46    #$full_f = encode("UTF8",$full_f); 
     47    print "Windows full filename:       ", $full_f,"\n"; 
     48    print "Windows full filename debug: ", debug_unicode_string($full_f),"\n"; 
     49 
     50    $full_f = Win32::GetShortPathName($full_f); 
     51    } 
     52 
     53    if ( -e $full_f ) { 
     54    print "   Perl can see file $full_f\n"; 
    4955    } 
    5056    else { 
    51     print "   Perl CANNOT see $dir$dirsep$f\n"; 
     57    print "   Perl CANNOT see $full_f\n"; 
    5258    } 
    53 #    print FOUT "$f\n"; 
    5459} 
    5560 
    56 #close(FOUT); 
     61