Hello ,thanks for the reply for a precedent question.

Following this, I tried to apply the advice.
but my programm keeps sending me the message : 
%M4 needs explicit name

[download]

but I never use %M4, I use $M4

Could you give me some more advice please ? Thanks a lot

My code needs as entry a file which is composed of three columns 
#!/usr/bin/perl
use strict;


######################################
# variables
###########


# this is the TV
my $tv;

# profile is the CTFM or FTFM
my $profile;

# $reg is the name of the regulation
my $reg;

# $reason is the reason of the regulation
my $reason;

# $fmp is the name of the FMP
my $fmp;

# $date is the date
my $date;

# ${autre_date} is the same as {date} but it is rearranged.
my $autre_date;

# ${duration_reg} is the length of the regulation, which is equal to t
+he length of the CUT file + the count_parameter : 60 or 20
my $duration_reg;


my $count_parameter;


my $filename;


my $entry_count;


my $flow_rate;


my $Duration;


my $q;


# we introduce ${mod_target} because we have to compare the target to 
+a relative flow $q
# the target ranges from 0 to 50, so the ${mod_target} ranges from 0 t
+o 0.5
# which is the same order of magnitude as the $q
my $mod_target;





#there are two arguments

$count_parameter=$ARGV[1];




$Duration = 0;
$duration_reg=0;


    if ($ARGV[0] =~ /^(\d\d\d\d)(\d\d)(\d\d)_([^_]*)_([^_]*)_([^_]*)_(
+[^_]*)_([^_]*)_(.*)$/) {
    $tv="$4";
    $profile="$5";
    $reg="$6";
    $reason="$7";
    $fmp="$8";
    $date="$3/$2/$1";
    $autre_date="$3"."$2"."$1";
    }

# what follows aims at calculating the time by looking for the number 
+of lines
open (INFILE,"$ARGV[0]");
    while (<INFILE>) {
        $duration_reg++;
    }

# after summing up the number of lines in the CUT file, you have to ad
+d the count_parameter
 
$duration_reg=$duration_reg+$count_parameter-1;


close INFILE;


open (INFILE,"$ARGV[0]");
$filename = "M4_all_target"."_$profile"."_$reg"."_$autre_date"."_$reas
+on"."_$duration_reg"."_$fmp";
open (OUTFILE, ">$filename.txt");

    while(<INFILE>) {
        if (/^(\d+);(\d+);(\d+)\n$/) {
        $entry_count=$2;
        $flow_rate=$3;
        }


    $q=$entry_count/$flow_rate-1;

    $Duration = $Duration + 1;

    
    my @TARGET = (0..50);
    my $target;

    my $M4;
    my $M4_compteur;        

        foreach $target(@TARGET){

        ${mod_target}=${target}/100;

        
        
            if ($q > ${mod_target}) {
            $M4_compteur{$target} = 1;
            } 
            else {
            $M4_compteur{$target} = 0;
            }
        $M4{$target} = $M4{$target} + $M4_compteur{$target};
        }
    }



    foreach $target(@TARGET){
    $M4{$target} = $M4{$target}/$Duration;
    }

print OUTFILE "$reg;;$M4{0};$M4{1};$M4{2};$M4{3};$M4{4};$M4{5};$M4{6};
+$M4{7};$M4{8};$M4{9};$M4{10};$M4{11};$M4{12};$M4{13};$M4{14};$M4{15};
+$M4{16};$M4{17};$M4{18};$M4{19};$M4{20};$M4{21};$M4{22};$M4{23};$M4{2
+4};$M4{25};$M4{26};$M4{27};$M4{28};$M4{29};$M4{30};$M4{31};$M4{32};$M
+4{33};$M4{34};$M4{35};$M4{36};$M4{37};$M4{38};$M4{39};$M4{40};$M4{41}
+;$M4{42};$M4{43};$M4{44};$M4{45};$M4{46};$M4{47};$M4{48};$M4{49};$M4{
+50};$tv;$reg;$date;$reason;$duration_reg;$fmp\n";
close INFILE;
close OUTFILE;

[download]

20070730 Janitored by Corion: Added <readmore> tag, as per Writeup Formatting Tips

In reply to right use of a hash table by steph_bow

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.