open(MP3, 'name.file') or die '';
foreach my $str(<MP3>){
print "$1\n" if($str =~/(^.*?\.mp3)/); #$1 - название файла.mp3
}
close(MP3);
Perl, парсим sfv.
Начал изучать perl, пишу скрипт который будет парсить sfv файл, и выдирать из него названия файлов.
Формат файла:
;
; 17788844 06/07/2007 21:08:04 01-Cyber_Cartel_Vs_Apocalipse_-_Color_Cave-ai.mp3
01-Cyber_Cartel_Vs_Apocalipse_-_Color_Cave-ai.mp3 B443F1D2
01-Cyber_Cartel_Vs_Apocalipse_-_Color_Cave-ai.mp3 B443F1D2
;Q2-1c6e1cfdd53cf58
Как убрать комментарии я разобрался, а вот как корректно выдрать название файла?
Формат файла:
;
; 17788844 06/07/2007 21:08:04 01-Cyber_Cartel_Vs_Apocalipse_-_Color_Cave-ai.mp3
01-Cyber_Cartel_Vs_Apocalipse_-_Color_Cave-ai.mp3 B443F1D2
01-Cyber_Cartel_Vs_Apocalipse_-_Color_Cave-ai.mp3 B443F1D2
;Q2-1c6e1cfdd53cf58
Как убрать комментарии я разобрался, а вот как корректно выдрать название файла?
Это понятно, просто вместо mp3 может быть:
avi,ogg,zip... etc
Не проверять же по каждому расширению.
Или сделать регулярку \.[A-Za-z]+$ ?
avi,ogg,zip... etc
Не проверять же по каждому расширению.
Или сделать регулярку \.[A-Za-z]+$ ?
ну насколько видно по примеру, НЕ в комментариях идёт сначала имя файла, а потом через пробел гадость какая-то. ну вот по пробелу и разделяй.
или есть еще какие-то варианты записи?
или есть еще какие-то варианты записи?
Тень Пса, да есть. Табы, несколько пробелов, несколько табов. Ну я уже сделал как мне нужно.