• # je ferai en perl

    Posté par . En réponse au message Aide sous-titres vidéo. Évalué à 6. 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