bpm.pl#!/usr/bin/perl ######################################## # A. I. D. v1.0 # # add database entry script # # coded by bitsmart # # (c) 2007 Andrew Prentice # # bitsmart0@gmail.com # ######################################## print "\nA. I. D. v1.0 (2007) Andrew Prentice\n"; print "\nA lbum\nI nformation\nD atabase\n"; print "\nArtist/Album: "; chomp($info = <STDIN>); #get the name of the Artist and Album print "creating new file or appending to existing file..."; #make it l +ook like we're doing something $dbentry = "BPM-$info.txt"; #add DB prefix open(DBENTRY, ">>$dbentry") || die "cannot open file $dbentry: $!"; #o +pen w/ error handling print DBENTRY "$info\n "; #append Album info close(DBENTRY); #make sure we're all neat print "done.\n"; #done creating or appending the file print "How many tracks do you want to add? "; $numberoftracks = <STDIN>; #how many tracks? chomp($numberoftracks); #remove trailing newline $counter = 1; #need counter to count up to no. of tracks while ($counter <= $numberoftracks) { #cycle thru each of the tracks a +nd get info print "\nTrack name $counter: "; chomp($trackname = <STDIN>); #name of track print "Track length $counter: "; chomp($tracklength = <STDIN>); #length of track print "Track BPM $counter: "; chomp($trackbpm = <STDIN>); #beats per minute of track print "adding track..."; #make it look like we're doing something $track = "$counter - $trackname - $tracklength - BPM=$trackbpm"; # +string it together open(TRACK, ">>$dbentry") || die "cannot open file $dbentry"; #ope +n w/ error handling print TRACK "\n$track"; #add each song to the file close(TRACK); #make sure we're all neat $counter++; #increment our counter print "done."; #done adding track } open(LAST, ">>$dbentry") || die "cannot open file $dbentry"; #one more + time w/ error handling print LAST "\n"; #add one last newline for good measure. =) close(LAST); #make sure we're all neat print "\nAll done! Added $info to the database.\n"; #self explanatory
#!/usr/bin/perl ######################################## # A. I. D. v1.0 # # database search script # # coded by bitsmart # # (c) 2007 Andrew Prentice # # bitsmart0@gmail.com # ######################################## print "\nThis program searches for songs with the same BPM.\n"; print "\nWhat BPM do you want to search for? "; chomp($inpt = <STDIN>); #get the BPM to search for print "searching..."; #make it look like we're doing something $bpm = "BPM=$inpt"; #add our little tag opendir(DIREC,".") || die "cannot open directory"; #open current direc +tory w/ error handling foreach $name(sort(readdir(DIREC))) { #for each filename beginning w/ +"BPM-", add to array if ($name =~ /^BPM-/) { #if the name contains "BPM-"... push @files, $name; #add it! } print "."; #add another "doing something" mark } closedir(DIREC); #close the dir foreach my $filename ( @files ) { #for each filename in the array open(PHILE, '<', $filename) || die "cannot open $filename: $!"; #o +pen file w/ error handling my @lines = scalar <PHILE>; #get the Artist/Album info while ( <PHILE> ) { push @lines, $_ if /$bpm/; } if ( @lines > 1 ) { print @lines; } else { print "sorry, no matching BPMs found."; #deliver the bad news } close PHILE; #finish up }
In reply to Album Information Database by bitsmart
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |