Script Para Ajustar o Intevalo de Legendas
Publicado por Carlos 26/03/2005
[ Hits: 5.824 ]
Homepage: http://nullterminated.livejournal.com/
E Ai Comunidade!
Este Script tem o objetivo de ajustar os tempos das legendas (subtitles) de vídeos. As vezes as legendas parecem estar "atrasadas" em relação ao vídeo, isso acontece quando elas foram compostas em um PC mais lento que o seu (tudo é uma questão de pespectiva... :). Tive este problema em particular com as legendas do filme "Revolution OS".
http://www.vivaolinux.com.br/dicas/verDica.php?codigo=1978
Tentei deixar o script auto-explicativo, espero que seja util!
[]'s
#!/bin/sh ############################################################################ # Time Increment SubTitles # Ver 0.0.2 # (C) Copyleft 2005 Carlos "Null_Terminated" Andre # Usage: ./inctimest.sh <time[h m s]> <subtitlefile> ############################################################################ ############################################################################ # Know Bugs # - Se uma legenda possuir mais de uma linha, a sequencia de tempos sera # perdida. Para resolver o problema, junte as duas ou mais linhas, pro # cesse o arquivo e depois separe-as... :) ############################################################################ TMP=${TMP:-/tmp} INTERVALSU=$TMP/int.unprocess$$ INTERVALSP=$TMP/int.process$$ SUBTIT=$TMP/subtit$$ SCRAWK=$TMP/scrawk$$ CONT=1 # Verifica o numero de parametros passados ao programa if [ $# -lt 2 ]; then echo "Usage: $0 time[h m s] subtitlefile" echo "Example: $0 10s subtitle.txt" exit 1 fi # Nome do arquivo base sem extencao BASE=$(echo $2 | sed -e "s/\....$//") # Arquivo processado, resultado RESULT=$BASE.processed # Gera Script AWK que formatara os intervalos apropriadamente. # Certamente seria mais "elegante" usar um arquivo em separado # ao invez de gera-lo dinamicamente, mas seria menos prático. cat << _FIM_ > $SCRAWK { OFS="" inc=substr(param,1,length(param)-1) frt=substr(param,length(param),1) if (frt == "h") { val1=\$1+inc+100 val1=substr(val1,2,2) val2=\$5+inc+100 val2=substr(val2,2,2) print val1,":",\$2,":",\$3,",",\$4,"-->",val2,":",\$6,":",\$7,",",\$8 } if (frt == "m") { val1=\$2+inc+100 val1=substr(val1,2,2) val2=\$6+inc+100 val2=substr(val2,2,2) print \$1,":",val1,":",\$3,",",\$4,"-->",\$5,":",val2,":",\$7,",",\$8 } if (frt == "s") { val1=\$3+inc+100 val1=substr(val1,2,2) val2=\$7+inc+100 val2=substr(val2,2,2) print \$1,":",\$2,":",val1,",",\$4,"-->",\$5,":",\$6,":",val2,",",\$8 } } _FIM_ # Gera um arquivo com os intervalos das legendas cat $2 | sed -n -e 's/ --> /:/;s/,/:/g;/^0[01].*$/p' >> $INTERVALSU # Processa o arquivo de intervalos incrementando os tempos necessários awk -F ":" -v param=$1 -f $SCRAWK $INTERVALSU >> $INTERVALSP # Gera um arquivo somente com as "legendas" em si cat $2 | sed -n -e '/^0[01].*$/d;/^$/d;/[^1-9][^0-9][^0-9][^0-9]$/p' >> $SUBTIT # Gera o seultado em si. # $COUNT = Indice # $y = Intervalos # $SUBTIT = Legendas em si for y in `cat $INTERVALSP`; do echo $CONT >> $RESULT echo $y >> $RESULT cat $SUBTIT | sed -n -e ${CONT}'p' >> $RESULT echo -e "\n\c" >> $RESULT CONT=$((CONT+1)) done # Limpa a casa rm -f $INTERVALSU rm -f $INTERVALSP rm -f $SUBTIT rm -f $SCRAWK
POSTFIX AUTOMÁTICO COM MYSQL E IPTABLES - APAGANDO MSG ANTIGAS
Cadastro Regras de Controle de Banda - CBQ
NFS server/client com iptables
Gerenciamento de espaço em disco
Script de Backup para FITA DAT usando "afio"
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (15)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)
Pendrive não formata de jeito nenhum (4)