Last night I was doing some karaoke stuff and I now have 3 Perl scripts that were helping me all the time:

  1. #!/usr/bin/perl
  2. # execute: ls *.mp3|perl create_zip_file.pl to create .zip from a pair of .mp3 .cdg
  3.  
  4. foreach (<STDIN>) {
  5. $was = $_;
  6. $was =~ s|MP3||gi;
  7. chomp($was);
  8. $string = "zip \"$was"."zip\" \"$was"."mp3\" \"$was"."cdg\"";
  9. print $string;
  10. system ($string);
  11. }
  12.  
  13. Свалете този код/download this code: create_zip_file.pl
  1. #!/usr/bin/perl
  2. # nicecase - proper case on icky filenames with spaces
  3. foreach (<STDIN>) {
  4. $was = $_;
  5. $_ = join ' ', map {ucfirst(lc($_))} split /\s+/, $_;
  6. print $_."\n";
  7. }
  8. Свалете този код/download this code: names.pl
  1. #!/usr/bin/perl -w
  2. #Swap Song - Artist to Artist - Song
  3. foreach (<STDIN>){
  4. #print $_."\n";
  5. chomp();
  6. $was = $_;
  7. @asd = split /\-/,$was;
  8. $asd[0] =~ s/[0-9]{1,2}\s//g;
  9. print $asd[1]." - ".$asd[0]."\n";
  10.  
  11. }
  12. Свалете този код/download this code: swap_artist_song.pl