동글동글 라이프

음악을 들어보자 #4 본문

Perl/Perl GIMP Tool Kit

음악을 들어보자 #4

동글동글 라이프 2008.10.16 21:15

간만에 시간이 남아서 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에 저장 후 리턴한다.




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

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

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


조금 더 분발을...

'Perl > Perl GIMP Tool Kit' 카테고리의 다른 글

음악을 들어보자 #5  (5) 2008.11.13
Chapter 5. Moving On  (0) 2008.10.31
음악을 들어보자 #4  (0) 2008.10.16
음악을 들어보자 #3  (5) 2008.10.12
음악을 들어보자! #2  (2) 2008.10.09
음악을 들어보자!  (1) 2008.10.08
Tag
,
0 Comments
댓글쓰기 폼