음악을 들어보자 #4

간만에 시간이 남아서 Mp3player을 만드는 작업을 하였다

Keedi님의 조언대로 File::Find를 넣어서 작성

CPAN의 SYSNOPSYS의 코드를 이해 못해 고생을 했다.

    use File::Find;
    find(\&wanted, @directories_to_search);
    sub wanted { ... }

부족한 느낌이 들어 적절한 예제가 있는 코드로 탐색을 시작했다.

http://www.perlmonks.org/index.pl?node_id=217378

http://world.std.com/~swmcd/steven/perl/pm/find.html

영어의 압박이 있었지만 

위의 두 예제를 보면 File::Find에 대한 적절한 예제를 확인 할 수 있다.

수정된 모듈 버전이 0.2로 올랐다는... ㅡ_ㅡ;

- mp3list.pm

package mp3list; use Exporter; use strict; use vars qw( @ISA @EXPORT_OK $VERSION ); use Cwd; use File::Find; @ISA = qw( Exporter ); @EXPORT_OK = qw(folder_name); $VERSION = '0.2'; sub folder_name { my $folder = shift; my @list; my $cwd = fastcwd()."/$folder"; find(\&findmp3,$cwd); sub findmp3{ push @list,"$cwd/$_" if(m!.+\.mp3!); } #print join "\n",@list; return @list; } 1;

folder_name함수는 인자값으로 폴더안의 파일들 중 

확장자가 mp3인  파일만 골라서 @list에 저장 후 리턴한다.

이전에 만들었던 전체틀을 바탕으로 재생버튼을 클릭하면 음악이 나오는 프로그램을

대략 구현은 되었지만... 실시간으로 재생시간이 나온다거나.. 

곡 리스트가 바뀌는 부분 등이 구현이 까다로워 미루고 미루고 있다..

조금 더 분발을...