Schrift
[thread]8650[/thread]

if(-e $file) und Umlaute..

Leser: 3


<< |< 1 2 3 >| >> 23 Einträge, 3 Seiten
GoodFella
 2007-01-16 17:12
#73259 #73259
User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]
if(-e $file).. funktioniert nicht mit Umlauten. Gibts dafür ein Workaround?
Ich habe leider keinen Einfluss auf die Dateinamen, sonst würde ich einfach keine Umlaute verwenden.
PerlProfi
 2007-01-16 17:44
#73260 #73260
User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]
Bei mir funktionier das wunderbar.
Ich habe eine Datei äöü.txt und diesen Einzeiler der 'existiert' ausgibt, wenn die Datei vorhanden ist und gar nichts ausgibt, wenn nicht.
Code: (dl )
perl -e "if (-e 'äöü.txt') { print qq(existiert\n) }"


Was läuft denn schief??
Eventuell suchst du nach -f anstatt -e. -e prüft nämlich auch auf Verzeichnisse, während -f nur auf lesbare Dateien prüft.

MfG PerlProfi\n\n

<!--EDIT|PerlProfi|1168963331-->
GoodFella
 2007-01-16 17:51
#73261 #73261
User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]
[quote=PerlProfi,16.01.2007, 16:44]Bei mir funktionier das wunderbar.
Ich habe eine Datei äöü.txt und diesen Einzeiler der 'existiert' ausgibt, wenn die Datei vorhanden ist und gar nichts ausgibt, wenn nicht.
Code: (dl )
perl -e "if (-e 'äöü.txt') { print qq(existiert\n) }"


Was läuft denn schief??
Eventuell suchst du nach -f anstatt -e. -e prüft nämlich auch auf Verzeichnisse, während -f nur auf lesbare Textdateien prüft.

MfG PerlProfi[/quote]
Ich prüfe auf vorhandensein von Excel- und Textdateien. Ich selektiere diese mit getOpenFile und getSaveFile und prüfe dann auf Existenz.
Als ich das erste Mal auf das Phänomen gestossen bin, hab ich angefangen, mir die Dateinamen aufzuschreiben, die "nicht gehen".. hier meine Liste:
Quote
5) MO06-024 A227 - Monopol-Kündiger 2477.xls
4.2) - MO06-024 A226 - Büchergilde 5000.xls
2) - MO06-024 A224 - Frölich und Kaufmann 5000.xls
Monopol_Männer.xls

Habe dann nach Gemeinsamkeiten gesucht und es gibt einfach nur die Gemeinsamkeit Umlaute hier. Google hat dann andere mit demselben Problem zutage gefördert, allerdings keine Lösung ausser: Benutz eben keine Umlaute.

Die Dateien, die ich selektiere, liegen auf einem Win2000 Server.
Ronnie
 2007-01-16 18:00
#73262 #73262
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
@GoodFella: Evtl. sind whitespaces dein Problem (bzw. quoting der selbigen)?\n\n

<!--EDIT|Ronnie|1168963415-->
PerlProfi
 2007-01-16 18:01
#73263 #73263
User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]
Entschuldige, -f prüft auf alle Dateien. Habe mich da vertan.

Naja, aber der Einzeiler funktioniert bei mir auch bei Monopol-Kündiger 2477.xls. Mit -e und -f.

Kriegst du eine Fehlermeldung?

Ich hab hier einen WinXP Home.

MfG PerlProfi
PerlProfi
 2007-01-16 18:04
#73264 #73264
User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]
@Ronnie dann sollte Monopol_Männer.xls aber wenigstens hin hauen.
esskar
 2007-01-16 18:16
#73265 #73265
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
es könnte sein, dass getOpenFile an der stelle ein anderes encoding liefert.
hast du das mal geprüft?
MisterL
 2007-01-16 18:18
#73266 #73266
User since
2006-07-05
334 Artikel
BenutzerIn
[default_avatar]
Hallo.

Was ist getOpenFile ? (Vom Namen her ist es schon klar...)

Aber in perl kann man das Verhalten des 'open' Befehls dahingehend manipulieren, dass dieser auch ungewöhnliche Zeichen erlaubt:
Code: (dl )
open(HANDLE, "<", $filename)  or die "Kann $filename nicht öffnen $!\n";

oder
Code: (dl )
sysopen(HANDLE, $filename, O_RDONLY) or die "Kann $filename nicht öffnen $!\n"; 


Am Rand: dieses TEIA Lehrbuch könnte man evtl. in der Linksammlung unterbringen

Gruss MisterL
“Perl is the only language that looks the same before and after RSA encryption.”
esskar
 2007-01-16 18:38
#73267 #73267
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=MisterL,16.01.2007, 17:18]Was ist getOpenFile ? (Vom Namen her ist es schon klar...)[/quote]
CPAN:getOpenFile
renee
 2007-01-16 18:41
#73268 #73268
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
getOpenFile ist was von Perl/Tk...

Welche Tk-Version hast Du denn?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< |< 1 2 3 >| >> 23 Einträge, 3 Seiten



View all threads created 2007-01-16 17:12.