1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
#/usr/bin/perl
use strict;
use warnings;
use Cwd;
my @tab;
my $i;
my $reponsebis = 0;
my $dossier_courant= getcwd(); #donne le chemin de là ou le prog est lancé
open (FILE, "$dossier_courant\\exemple.txt") || die "canot open file";#a la place de exemple mettre le nom du fichier en entrée
open (FILERESULT, ">>$dossier_courant\\result5.txt") || die "cannot create fileresult";
print "Donner le nombre de bases\n";
my $reponse = <STDIN>;
chomp $reponse;
while (<FILE>)
{
my $ligne = $_;
chomp $ligne;
if ($ligne =~ /^seq\d+\s+:\s+(\D+)/)#expression reguliere a revoir selon ton fichier entrée je l'ai mise selon l'exemple que tu m'as donné
{
my $impression = $1."\n";
print "passe if\n";
for ($i=0; $i<$reponsebis; $i++)
{
print "passe\n";
push (@tab, " ");
}
push (@tab, $impression);
$reponsebis = $reponsebis+$reponse;
print "$reponse\n";
}
}
foreach (@tab)
{
print FILERESULT "$_";
}
close (FILE);
close (FILERESULT); |
Partager