若文件名中包含空格字符 如何打開文件?

sunzhiguolu

RT,
如文件名 a b.txt, b c.txt

方法試了好多，無(wú)一奏效。請(qǐng)大家?guī)兔χ更c(diǎn)。謝謝大家。。。

sunzhiguolu

比如這樣的文件。

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. chdir($ENV{'TEMP'});
   
7. opendir(my $DHr, '.');
   
8. foreach my $path (grep /\.html?\z/i, readdir($DHr)){
   
9.     open(my $FHr, '<', $path) or die("$!");
   
10.     while(<$FHr>){
    
11.         print("$_\n");
    
12.     }
    
13.     close($FHr);
    
14. }
    
15. closedir($DHr);
    

復(fù)制代碼

執(zhí)行腳本時(shí), 提示:"Invalid argument at ..."錯(cuò)誤。。。

大米白面

如果是*nix環(huán)境，用單引號(hào)引用即可。
如果是Windows環(huán)境，在雙引號(hào)引用的字符串中可以用 \ 轉(zhuǎn)義。

sunzhiguolu

回復(fù) 4# 大米白面
謝謝您的幫助，還有一個(gè)問(wèn)題向您請(qǐng)教。(我的測(cè)試環(huán)境就是 Windows)
如：文件名中包含一些特殊字符，如下圖所示：

進(jìn)行文件名的讀取時(shí)，得到的是一個(gè)短名稱 (Windows 8.3 短名稱)。對(duì)于此類文件名不知該如何處理。還請(qǐng)您提供一些處理經(jīng)驗(yàn)，謝謝。。。

問(wèn)題代碼:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. opendir(my $DHr, 'z:\\') or die("Dir don't open!\n");
   
6. foreach my $path (readdir($DHr)){
   
7.     if(-f $path and $path =~ /\.txt\z/i){
   
8.             print("{$path}\n");
   
9.             open(my $FHr, '<', $path) or die("File '$path' don't open!\n");
   
10.             print while(<$FHr>);
    
11.             print("\n");
    
12.             close($FHr);
    
13.     }
    
14. }
    
15. closedir($DHr);
    

復(fù)制代碼

perl abc.pl

sunzhiguolu

有哪位大神知道該如何處理這種情況嗎？ 以前沒有遇到過(guò)這種情況，還請(qǐng)大家多多幫忙，謝謝。

zhouzhen1

關(guān)于Windows 8.3短文件名這個(gè)，我手上只有一個(gè)WinXP的虛擬機(jī)，剛才用Strawberry Perl 5.24試了沒有問(wèn)題。

另外網(wǎng)上有人說(shuō)可以用Win32::LongPath
http://stackoverflow.com/questio ... d-as-8-3-on-windows

sunzhiguolu

回復(fù) 7# zhouzhen1
非常感謝您的幫助，按照您提供的思路能夠?qū)⒙窂较碌?htm 文件讀出來(lái)了。由于文件名中包含一些特殊字符導(dǎo)致 在實(shí)際讀取文件時(shí)遇到了一些問(wèn)題。


測(cè)試代碼如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Spec::Functions;
   
5. use Win32::LongPath;
   
6. 
   
7. my $wkPath = $ENV{'TEMP'};
   
8. my $dir = Win32::LongPath->new();
   
9. if($dir->opendirL($wkPath)){
   
10.     foreach(grep /\.html?\z/i, $dir->readdirL()){
    
11.         $_ = catfile($wkPath, $_);   #Output: drive:\path\filename.ext
    
12.         print("{$_}");
    
13.         print "\t", -e ? "(exists)" : "(not exists)", ".\n";
    
14.     }
    
15. }
    

復(fù)制代碼

實(shí)際輸出結(jié)果:

sunzhiguolu

這個(gè)是原始文件名:

sunzhiguolu

明明是看到文件名了，由于其中包含特殊字符的原因 導(dǎo)致文件還是無(wú)法找到。
文件的內(nèi)容存在編碼的問(wèn)題，這個(gè)文件名出現(xiàn)此類情形該如何處理。
請(qǐng)各位大神出手相助，謝謝。。。