Forum général.général Aide sous-titres vidéo

• # je ferai en perl

  Posté par fearan le 23 septembre 2025 à 15:43. Évalué à 3 (+0/-0). Dernière modification le 23 septembre 2025 à 15:43.

  

  #!/usr/bin/perl
  
  use strict;
  
  while(my $line = <>){
     if( $line =~ /-->/) {
        print $line;
        while( ($line = <>) =~ /^\s*$/ ){}
      }
    print $line;
  }
  
  }

  a noter que j'ai fais du explicite, on pourrait virer les $line et se contenter de $_, et si y'a plusieurs lignes vide je les manges toute

  while(my $line = <>){
     if( $line =~ /-->/) {
        print $line;
        $line = <>;
        if ( $line =~ /\w/) {
          print $line;
        }
        $line = <>;
      }
    print $line;
  }

  n'en mange qu'une seule :)

  Il ne faut pas décorner les boeufs avant d'avoir semé le vent

  • [^] # Re: je ferai en perl

    Posté par Voltairine le 23 septembre 2025 à 17:21. Évalué à 2 (+0/-0). Dernière modification le 23 septembre 2025 à 17:24.

    

    J'ai l'impression que ton truc supprime toutes les lignes vides ce qui n'est pas le résultat escompté.

    Un simple sed ou awk devrait suffire, exemple (il ya sûrement beaucoup plus concis) :

    sed -i '/^$/d;/\,[0-9]\{3\}/i\\n' fichier.srt

    la première commande /^$/d supprime toutes les lignes vides
    la seconde /\,[0-9]\{3\}/i\\n insère un saut de ligne après le motif une virgule suivie de trois chiffres

Envoyer un commentaire

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.