Script Para Ajustar o Intevalo de Legendas 2
Publicado por Carlos 28/03/2005
[ Hits: 3.765 ]
Homepage: http://nullterminated.livejournal.com/
Pessoal,
Recentemente postei um Script (http://www.vivaolinux.com.br/scripts/verScript.php?codigo=974) que segundo eu, serviria para diminuir o intervalo entre as legendas de um filme, bem, eu errei! :-)
O Referido Script na verdade aumenta o Intervalo, esta versão faz o que o outro prometia, mas ambos são úteis... um serve para aumentar e um para diminuir os intervalos...
[]'s a todos, e mil desculpas!!
#!/bin/sh ############################################################################ # Time Decrement 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") { if (\$1 >= inc) { val1=(\$1-inc)+100 } else { val1=\$1+100 } val1=substr(val1,2,2) if (\$5 >= inc) { val2=(\$5-inc)+100 } else { val2=\$5+100 } val2=substr(val2,2,2) print val1,":",\$2,":",\$3,",",\$4,"-->",val2,":",\$6,":",\$7,",",\$8 } if (frt == "m") { if (\$2 >= inc) { val1=(\$2-inc)+100 } else { val1=\$2+100 } val1=substr(val1,2,2) if (\$6 >= inc) { val2=(\$6-inc)+100 } else { val2=\$6+100 } val2=substr(val2,2,2) print \$1,":",val1,":",\$3,",",\$4,"-->",\$5,":",val2,":",\$7,",",\$8 } if (frt == "s") { if (\$3 >= inc) { val1=(\$3-inc)+100 } else { val1=\$3+100 } val1=substr(val1,2,2) if (\$7 >= inc) { val2=(\$7-inc)+100 } else { val2=\$7+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 decrementando 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
Backup-Script2.0 -- Modo Gráfico sem precisar de X
Script de controle do Alfresco para RHEL / CentOS / Fedora
Backup individual de contas no ZIMBRA MAIL
Resolvendo alguns erros ao executar o apt-get, Ubuntu 16.04
Nenhum comentário foi encontrado.
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
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Wifi não funciona no Aspire ES 15 com o Debian (11)
Teclado não funciona no Debian (1)
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta