Bonjour,  
 
Le script suivant :  

 
Me renvoi cette ligne :
 
<embed type="application/x-shockwave-flash" src="http://capitulosdenovela.net/swf/2.swf" style="" id="mpl" name="mpl" quality="high" allowfullscreen="true" allowscriptaccess="always" flashvars="skin=&plugins=&file=mp4:univisionflash/media/13/01/18/130118_601/130118_2777821_Chantaje_1358863384_500.mp4&streamer=rtmp://cp31851.edgefcs.net/ondemand&autostart=false&adttext.config=http://www.capitulosdenovela.net/fondo/fondo4.png&abouttext=capitulosdenovela.net - Telenovelas y Series!&aboutlink=http://www.capitulosdenovela.net/" width="100%" height="400"></embed>
 
 
Comment faire pour que  la sortie soit reduite à ce minimun :
univisionflash/media/13/01/18/130118_601/130118_2777821_Chantaje_1358863384_500.mp4
sachant que les nombres peuvent changer ....  
 
Merci de votre aide.....
 
 
 

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my $infile = '34.html';
my $target = 'file=mp4:';
open(my $fh, $infile);
foreach (<$fh> ) {
  print "$1\n" if m/(?:$target)([^&> ]+)/;
}
close($fh);

[^&> ] fait arrêter la capture du texte si on rencontre un &, un > ou un espace. S'il peut y avoir des espaces dans le path, alors utiliser [^&>] à la place.
A+,

Merci Gilou,
très efficace et très instructif ....  
Donc une question : qu'est ce que le m/(?:$target)/
et une remarque : Le if est généralement avant l’exécution de la commande ....  

m/regex/ c'est un match de l'expression régulière (par $_ si rien n'est précisé)
(?:regex) c'est un groupe qui n'est pas sauvegardé, donc qui n'est pas pris en compte pour les $1, $2, etc. Ça sert souvent a faire du un contexte à gauche de matching d'expression régulière, comme dans mon exemple.
 

Sauf que il faudrait que je crée un bloc:
if (test) {commande;}  
ce qui chez moi prends trois lignes systématiquement
if (test) {
  commande;
}
alors que je n'en ai pas besoin dans l'autre sens:
commande if (test);
Donc pour une commande simple,  je préfère ce style qui s'écrit sur une ligne.
Ça marche aussi avec unless
commande unless (test);
voire même avec un foreach:
print "$_" foreach (<$fh> );
 
A+,