A partir de tradutores profissionais, empresas, páginas da web e repositórios de traduções disponíveis gratuitamente
#! /usr/ bin/ perl die "archivo $argv[0] no existe" unless -f $argv[0]; use mp3: :mplib; my $mp3 = mp3: :mplib- > new($argv[0]); my $v2tag = $mp3- > get_v2tag; print "error al escribir las etiquetas de $argv[0]\" unless $mp3- > set_v2tag($v2tag, amp; utf8);
#! /usr/ bin/ perl die "file $argv[0] does n't exist" unless -f $argv[0]; use mp3: :mplib; my $mp3 = mp3: :mplib- > new($argv[0]); my $v2tag = $mp3- > get_v2tag; print "error writing tags of $argv[0]\" unless $mp3- > set_v2tag($v2tag, amp; utf8);
