Leerzeichen und Anderes aus Dateinamen entfernen - #172921 (Allgemeines zu Perl)

clms

2014-01-09 15:21

User since
2010-08-29
373 Artikel
BenutzerIn
[default_avatar]

2014-01-09T12:48:06 rasidrasid
Empfehlungen und Tutorials wären super.

Tutorial zu tr/// habe ich gerade keines parat, aber die Doku findest Du, wenn Du von der Doku zu s///, die GwenDragon verlinkt hatte, weiter runter gehst. Hier bis "tr/SEARCHLIST/REPLACEMENTLIST/cdsr" scrollen.

2014-01-09T12:48:06 rasidrasid
Ich hatte diese Array (also alle Dateien sind jetzt in dieser Array)
Code: (dl )
1
2
3
opendir( DIR, $input_dir ) || die "Can't open dir $input_dir: $!";
my @mp3 = grep { /\.mp3/ } readdir(DIR);
closedir DIR;
Wie müsste ich weiter programmieren, das was ihr vorgeschlagen habt, um jetzt die Dateien in der @mp3 nachträglich wie gewünscht zu verändern?

z.B. so (ungetestet)

Code (perl): (dl )

foreach (@mp3) {
  tr/a-zA-Z0-9./_/cs;  # ersetze alles außer a-z, A-Z, 0-9 und '.' durch ein einzelnes '_'
  s/_\././g;  # entferne '_' vor '.'
  s/^_//;     # entferne '_' am Anfang
}