Datei- und Verzeichnisnamen umwandeln - #104284 (Allgemeines zu Perl)

tuxstef

2007-12-30 22:32

User since
2007-12-28
2 Artikel
BenutzerIn
[default_avatar]

Wenn Du ein Modul nimmst, wird auch das ganze Escaping von Shell-Sonderzeichen unnötig (sollte es zumindest).

Leider NICHT ....

Code (perl): (dl )

foreach(@foundfiles) {

  if ( -d $_ ) {

  print "directory\n";

  }

  $ofn = $_;

  $_ = lc ($_);
  $_ =~ s/\s/_/g;
  $_ =~ s/[^a-zA-Z0-9_\/\.\s-]//g;

  print "$ofn -> $_\n";
  
  
  #move("te\ st","te_st") or die $!;
  move($ofn,$_) or die $!;
  



}

Gibt es da eine Funktion zum automatischen escapen von diesen grauslichen Leerzeichen und "Sonder-Hakel"?

Suche dann soetwas:

Code (perl): (dl )

1
2
3

funktionsname_in_perl ($_,Sonderzeichen_dass_escaped_werden_muss);

$_ =~ s/Sonderzeichen_dass_escaped_werden_muss/\\Sonderzeichen_dass_escaped_werden_muss/g;

für das file rename.

Bitte um Hilfe.