Schreiben und lesen von Dateien mit Unicode Zeichen auf Windows

[Nele Kosog]

Und hier noch ein Beispiel für das Löschen einer Datei:

  
###----------------------------------------------------------------------------  
sub delete_file {  
###----------------------------------------------------------------------------  
### USAGE: delete_file (  
###                        file_name => <file name>,  
###                    );  
###----------------------------------------------------------------------------  
	#shift;  
	my %parameter = @_;  
	if ( defined $parameter{file_name} && $parameter{file_name} ne '' ) {  
		DeleteFileW( encode( 'UTF-16LE', $parameter{file_name} ) )  
		  or die("CreateFileW: $^E\n");  
	  }  
	else {  
		die("Cannot delete file. No file name defined.");  
	  }  
}

Viele Grüße,
Nele