-e bringt unterschiedliche Ergebnisse: Ursachen? - #75282 (Allgemeines zu Perl)

GoodFella

2007-03-24 02:57

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Waren 2. Einen davon hab ich gefunden: http://board.perl-community.de/cgi-bin....;t=3837

Der andere ist leider unauffindbar :/

Hab mal meine subs aus dem Script, dass ich gerade bearbeite rauskopiert, die funktionieren mit Umlauten, getestet:

Code (perl): (dl )

use locale;
sub file_dialog
 {
  my $parent = shift;
  my @types =( ['All files',         '*'],
               ['CSV files',      '.csv'],
               ['Excel files',    '.xls'] );
  my $value = $parent->getOpenFile( -filetypes => \@types, -initialdir => '.' );
  $value =~ s/\//\\/sgi;
  utf8::downgrade($value);
  unless($value eq '')
   {
    chdir(&get_path($value));
   }
  return($value);
 }

sub save_file_dialog
 {
  my ($parent, $filename) = @_;
  my @types =( ['Excel files',    '.xls'],
               ['All files',      '*.*' ] );
  my $value = $parent->getSaveFile( -filetypes => \@types, -initialdir => '.', -initialfile => $filename);
  $value =~ s/\//\\/sgi;
  utf8::downgrade($value); 
  return($value); 
 }

.. und zusätzlich später:

Code (perl): (dl )

1
2

  utf8::downgrade($file);
  unless (-e $file) { ........

Ich finde ja, Perl sollte all das allein machen.\n\n