Langage perl

ba_na Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
na_ba85 Messages postés 8 Date d'inscription Statut Membre Dernière intervention - 24 juin 2013 à 22:57

bonjour,

Je suis debutante en Perl et jaurai besoin d'aide pour resoudre un script.

Merci d'avance

cordialement,
naba

Afficher la suite

A voir également:

Langage perl
Langage ascii - Guide
Langage binaire - Guide
Pascal langage - Télécharger - Édition & Programmation
Langage visual basic - Télécharger - Langages
Langage basic gratuit - Télécharger - Édition & Programmation

2 réponses

Réponse 1 / 2

Salut naba,

De quel type d'aide as-tu besoin ? Tes indications sont un peu courtes :-)

Dal

Réponse 2 / 2

na_ba85 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

Bonjour Dal,

Tout d'abord merci pour ta reponse et conseil.

Voici mon script avec les infos où je bloque :

# But : De chercher les mots suivants (mot1, mot2, mot3, mot4) dans le fichier.txt.
# A chaque mot trouvé, ça me renvoi Ok et passe au suivant et ainsi de siute
# Si un mot n'est pas present, il me renvoi KO
# Déclarations de mes variables

my $fic_log_uc = "......./fichier.txt";
my ($valeur1,$mot1);
my ($valeur2,$mot2);
my $status = 'KO';

# Main

open (LIRE_LOG, '<', $fic_log) or die "Impossible d'acceder au fichier";

while (<LIRE_LOG>)
{
# Appel de ma fonction
main->check;

}

print LOG "$mot1;$mot2;$status\n";
close (LOG);
close (LIRE_LOG);

# Functions

sub check
{
if ($_ =~ /mot1/)
{
#print "$_\n";
($valeur1,$mot1) = split(/=/,$_);
$mot1=~ s/\r//;
chomp($mot1);
$status = "OK";
}

if ($_ =~ /mot2/)
{
#print "$_\n";
($valeur2,$mot2) = split(/=/,$_);
$mot2=~ s/\r//;
chomp($mot2);
$status = "OK";
}

if ($_ =~ /mot3/)
{
#print "$_\n";
$status = "OK";
}

if ($_ =~ /mot4/)
{
#print "$_\n";
$status = "OK";
}

elsif ($status eq "KO")
{
$mot1 = "inexistant";
$mot2 = "inexistant";
$status = "KO";
#print "$status\n";
}

return $mot1;
return $mot2;
return $status;
}

# Mon script ne marche pas car le mot4 n'est pas present dans mon fichier, il me renvoi comme même OK :(

Merci pour votre aide

Discussions similaires

que signifie les petits rectangles blancs à la fin de mes sms ?

Votre réponse

Discussions similaires