Hallo,
ich versuche verzweifelt auf einem Linixsystem perl beizubringen Files
umzubenennen die auch Umlaute haben können.
also so:
system ("mv '$i' '$ir'");
$i der alte Name und
$ir der neue mit Umlauten
ach lang sieht so aus:
LANG=de_DE@euro
Hat jemand eine Idee
Marc
Marc Wiemers wrote:
> ich versuche verzweifelt auf einem Linixsystem perl beizubringen Files
> umzubenennen die auch Umlaute haben können.
> also so:
>
> system ("mv '$i' '$ir'");
>
> $i der alte Name und
> $ir der neue mit Umlauten
> ach lang sieht so aus:
>
> LANG=de_DE@euro
>
> Hat jemand eine Idee
Vielleicht solltest Du noch dazu sagen, worin das Problem genau besteht.
Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
Thus spoke Marc Wiemers (on 2006-09-27 14:38):
> ich versuche verzweifelt auf einem Linixsystem perl beizubringen Files
> umzubenennen die auch Umlaute haben können.
> also so:
>
> system ("mv '$i' '$ir'");
Beispiel? (Konket)
> Hat jemand eine Idee
Was spricht gegen
...
$status = rename($old, $new);
...
Viele Grüße
M.
Marc Wiemers
> Hallo,
>
> ich versuche verzweifelt auf einem Linixsystem perl beizubringen Files
> umzubenennen die auch Umlaute haben können.
> also so:
>
> system ("mv '$i' '$ir'");
>
> $i der alte Name und
> $ir der neue mit Umlauten
> ach lang sieht so aus:
>
> LANG=de_DE@euro
>
> Hat jemand eine Idee
Vielleicht ist es ein Encoding-Problem? Du musst auf jeden Fall die
Octets in $i im gleichen Encoding wie die Bytes deines Dateinamens auf
der Festplatte haben.
--
Slaven Rezic - slaven
Lost in your Tk widget tree? Try
http://user.cs.tu-berlin.de/~eserte/src/perl/Tk-WidgetDump/
Marc Wiemers:
> system ("mv '$i' '$ir'");
Warum verwendest du nicht den Befehl, den Perl
hierfür zur Verfügung stellt, also hier):
rename($i,$ir) or die "Rename fehlgeschlagen: $!\n";
"system" erzeugt eine Shell, in deren Context dann
der angegebene Befehl ausgeführt wird. Dass kann
zu Problemen führen, wenn in der Befehlszeile
Sonderzeichen (zu denen auch Umlaute zählen)
vorkommen.
LG, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
Hallo Ferry,
vielen Dank für den Tipp. Leider hat der rename Befehl das gleiche Ergebnis.
Das $ir wird über perTK eingelesen vielleicht ist das das Problem.
Ich weiß nicht weiter.
Marc
Ferry Bolhar wrote:
> Marc Wiemers:
>
>> system ("mv '$i' '$ir'");
>
> Warum verwendest du nicht den Befehl, den Perl
> hierfür zur Verfügung stellt, also hier):
>
> rename($i,$ir) or die "Rename fehlgeschlagen: $!\n";
>
> "system" erzeugt eine Shell, in deren Context dann
> der angegebene Befehl ausgeführt wird. Dass kann
> zu Problemen führen, wenn in der Befehlszeile
> Sonderzeichen (zu denen auch Umlaute zählen)
> vorkommen.
>
> LG, Ferry
>
"Marc Wiemers"
news:efg1k4$ur$1@saphir.steine.home...
> Hallo Ferry,
>
> vielen Dank für den Tipp. Leider hat der rename Befehl das gleiche
> Ergebnis.
> Das $ir wird über perTK eingelesen vielleicht ist das das Problem.
> Ich weiß nicht weiter.
>
> Marc
>
> Ferry Bolhar wrote:
>
>> Marc Wiemers:
>>
>>> system ("mv '$i' '$ir'");
>>
>> Warum verwendest du nicht den Befehl, den Perl
>> hierfür zur Verfügung stellt, also hier):
>>
>> rename($i,$ir) or die "Rename fehlgeschlagen: $!\n";
>>
>> "system" erzeugt eine Shell, in deren Context dann
>> der angegebene Befehl ausgeführt wird. Dass kann
>> zu Problemen führen, wenn in der Befehlszeile
>> Sonderzeichen (zu denen auch Umlaute zählen)
>> vorkommen.
>>
>> LG, Ferry
>>
>
Hallo Marc,
> Das $ir wird über perTK eingelesen vielleicht ist das das Problem.
Genau. Perl/Tk wandelt alle Strings nach utf8. Wie Slaven schon schrieb,
musst du umkodieren. Versuch's mal mit
use Encode;
$ir = encode('iso-8859-1', $ir);
BTW, stelle doch bitte deine Antworten nicht nach oben.
Gruß
Klaus
Marc Wiemers
> Hallo Ferry,
>
> vielen Dank für den Tipp. Leider hat der rename Befehl das gleiche Ergebnis.
> Das $ir wird über perTK eingelesen vielleicht ist das das Problem.
> Ich weiß nicht weiter.
>
Hast du meinen Tipp weiter verfolgt? Weiterer Hinweis: alle Strings,
die aus Perl/Tk kommen, habe das utf-8-Bit gesetzt. Du musst also per
Encode.pm nach iso-8859-1 oder ...-15 kodieren, um das gewünschte
Ergebnis zu erhalten.
> Marc
>
> Ferry Bolhar wrote:
>
> > Marc Wiemers:
> >
> >> system ("mv '$i' '$ir'");
> >
> > Warum verwendest du nicht den Befehl, den Perl
> > hierfür zur Verfügung stellt, also hier):
> >
> > rename($i,$ir) or die "Rename fehlgeschlagen: $!\n";
> >
> > "system" erzeugt eine Shell, in deren Context dann
> > der angegebene Befehl ausgeführt wird. Dass kann
> > zu Problemen führen, wenn in der Befehlszeile
> > Sonderzeichen (zu denen auch Umlaute zählen)
> > vorkommen.
> >
> > LG, Ferry
> >
>
--
Slaven Rezic - slaven
tkrevdiff - graphical display of diffs between revisions (RCS, CVS or SVN)
http://ptktools.sourceforge.net/#tkrevdiff
K. Wittrock wrote:
>
> "Marc Wiemers"
> news:efg1k4$ur$1@saphir.steine.home...
>> Hallo Ferry,
>>
>> vielen Dank für den Tipp. Leider hat der rename Befehl das gleiche
>> Ergebnis.
>> Das $ir wird über perTK eingelesen vielleicht ist das das Problem.
>> Ich weiß nicht weiter.
>>
>> Marc
>>
>> Ferry Bolhar wrote:
>>
>>> Marc Wiemers:
>>>
>>>> system ("mv '$i' '$ir'");
>>>
>>> Warum verwendest du nicht den Befehl, den Perl
>>> hierfür zur Verfügung stellt, also hier):
>>>
>>> rename($i,$ir) or die "Rename fehlgeschlagen: $!\n";
>>>
>>> "system" erzeugt eine Shell, in deren Context dann
>>> der angegebene Befehl ausgeführt wird. Dass kann
>>> zu Problemen führen, wenn in der Befehlszeile
>>> Sonderzeichen (zu denen auch Umlaute zählen)
>>> vorkommen.
>>>
>>> LG, Ferry
>>>
>>
> Hallo Marc,
>
>> Das $ir wird über perTK eingelesen vielleicht ist das das Problem.
>
> Genau. Perl/Tk wandelt alle Strings nach utf8. Wie Slaven schon schrieb,
> musst du umkodieren. Versuch's mal mit
> use Encode;
> $ir = encode('iso-8859-1', $ir);
>
> BTW, stelle doch bitte deine Antworten nicht nach oben.
>
> Gruß
>
> Klaus
Hallo Klaus,
danke damit geht es!
Marc