Opened by rasidrasid at 2014-01-09 10:05
User since
2005-01-17
14761 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14761 Artikel
Admin1
Das geht mit einem Regex und einer Zeichenklasse und dem Ersetzungsoperator s.
//EDIT:
Das ergibt dann eingetippt auf der Eingabeaufforderung:
C:\>perl
my $datei_name = 'alles alles geht vorbei (ABCDE).mp3'; # Dateiname in Variable
$datei_name =~ s/[)]//g; # entferne alle )
$datei_name =~ s/[\s(]/_/g; # ersetze alle Leerzeichen und ( und ) durch _
$datei_name =~ s/_{2,}/_/g; # ersetze mehr als zwei _ durch ein _
print $datei_name;
^Z
alles_alles_geht_vorbei_ABCDE.mp3
Editiert von GwenDragon: Korrektur des Kommentars
Last edited: 2014-01-09 11:08:54 +0100 (CET)
Code (perl): (dl
)
1 2 3 4
my $datei_name = 'alles alles geht vorbei (ABCDE).mp3'; #Dateiname in Variable $datei_name =~ s/[)]//g; # entferne alle ) $datei_name =~ s/[\s(]/_/g; # ersetze alle Leerzeichen und ( druch _ $datei_name =~ s/_{2,}/_/g; # ersetze mehr als zwei _ durch einen _
//EDIT:
Das ergibt dann eingetippt auf der Eingabeaufforderung:
C:\>perl
my $datei_name = 'alles alles geht vorbei (ABCDE).mp3'; # Dateiname in Variable
$datei_name =~ s/[)]//g; # entferne alle )
$datei_name =~ s/[\s(]/_/g; # ersetze alle Leerzeichen und ( und ) durch _
$datei_name =~ s/_{2,}/_/g; # ersetze mehr als zwei _ durch ein _
print $datei_name;
^Z
alles_alles_geht_vorbei_ABCDE.mp3
Editiert von GwenDragon: Korrektur des Kommentars
Last edited: 2014-01-09 11:08:54 +0100 (CET)