Georgi’s Blog

малко Perl

Снощи се занимавах с разни караоке неща и останах с 3 Perl скрипта които ми помагаха постоянно:

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