21 Jun
2002
21 Jun
'02
12:26
ratti wrote:
Ein "*" beispielsweise ist ja legal.
Aber nervig.
Ich bräuchte also sowas:
#!/usr/bin/perl $font ="ARIALBI.TTF"; $neu_name =&fontname($font); $befehl ="mv ".&sicherer_dateiname($font). " ".&sicherer_dateiname("$neu_name.ttf");
`$befehl`;
Ich wuerde den Dateinamen durch 2 regexes jagen: "[^a-zA-Z0-9+.!~%_-]" -> "-" und "-+" -> "-" und den String in '' einpacken. Es muss ja nicht 100% mit dem Fontnamen uebereinstimmen, oder? Peter