Bon je savais que j'étais pas fait pour la prog mais la j'en peux plus!!!!
#! /usr/bin/perl
use strict;
my $val;
my $vall;
my @FCS_file;
my @FCS_mesure=(0,0,109,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
my $file = 'FCS_buffer.txt';
open(FIC,$file) or die;
@FCS_file = <FIC>;
close(FIC);
print "FCS_file = @FCS_file\nFCS_mesure= @FCS_mesure\n";
my $val = @FCS_file[2];
print "FCS_file[2] = $val\n";
my $vall = @FCS_mesure[2];
print "FCS_mesure[2] = $vall\n";
RESULTAT!!!!
FCS_file = 0 0 109 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
FCS_mesure= 0 0 109 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
FCS_file[2] =
FCS_mesure[2] = 109
POURQUOI LES FCS_FILE NE S AFFICHE PAS !!!!!!! GRRRRRRRRRRRRRR
Message édité par mc40 le 16-05-2005 à 10:00:03