'grk2'에 해당되는 글 1건

  1. 2008.10.16 음악을 들어보자 #4

Naver Perl Community & Study Cafe


2008.10.16 21:15

음악을 들어보자 #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에 저장 후 리턴한다.




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

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

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


조금 더 분발을...
신고
Trackback 0 Comment 0