Discussion :

[bambambigellow]

Bonjour,

Je débute en perl et j'ai écris un petit programme pour m'amuser. Un programme qui génère les stats d'un personnage pour la première édition de DnD


QUESTIONS 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#!/usr/bin/perl
 
#Creates stats for 1st and 2nd edition AD&D charaters or NPC's using "method 3"
  $range = 6;
  $minimum = 1;
  @StatsName = ("Strength", "Constitution", "Dexterity", "Intelligence", "Wisdom", "Charisma");
  @Dices = ("Dice_1", "Dice_2", "Dice_3");
 
  sub Random_Roll
  {
      int(rand($range)) + $minimum;
  }
 
for ($Number_Stats = 1; $Number_Stats < 7; $Number_Stats++)
 {
 
  for ($count = 1; $count < 7; $count++)
  {
  $Dices[0] = Random_Roll {};
  $Dices[1] = Random_Roll {};
  $Dices[2] = Random_Roll {};
  $Total_Dice = $Dices[0]  + $Dices[1] + $Dices[2];
 
  $arr[$count] = $Total_Dice;
  }
 
  $StatsHigh = $arr[1];
 	if ($StatsHigh < $arr[1])
        {
        $StatsHigh = $arr[1];
        }
        elsif ($StatsHigh < $arr[2])
        {
        $StatsHigh = $arr[2];
        }
        elsif ($StatsHigh < $arr[3])
        {
        $StatsHigh = $arr[3];
        }
        elsif ($StatsHigh < $arr[4])
        {
        $StatsHigh = $arr[4];
        }
 
	if ($StatsHigh > 17)
              {
      	      $range = 100;
              $StatsHigh = Random_Roll {};
              }
        else
        {
        $StatsHigh = $StatsHigh;
  	}
 
    if ($Number_Stats == 1)
        {
         print $StatsName[0], " = ", $StatsHigh, "\n";
        }
        elsif ($Number_Stats == 2)
        {
         print $StatsName[1], " = ", $StatsHigh, "\n";
        }
        elsif ($Number_Stats == 3)
        {
         print $StatsName[2], " = ", $StatsHigh, "\n";
        }
        elsif ($Number_Stats == 4)
        {
         print $StatsName[3], " = ", $StatsHigh, "\n";
        }
        elsif ($Number_Stats == 5)
        {
         print $StatsName[4], " = ", $StatsHigh, "\n";
        }
        elsif ($Number_Stats == 6)
        {
         print $StatsName[5], " = ", $StatsHigh, "\n";
        }
   }

Je cherche un moyen de simplifier mon code, ou des astuces sur quoi faire et ne pas quoi faire. Je suis sur a 100% que je peut modifier les lignes (28 à 43 et 55 à 77) pour réduire la taille de mon programme pour que cela me donne un code plus propre.

Malheureusement je ne sais pas quoi faire, je vous demande de m'aider.



QUESTIONS 2:
Pour faire une pierre deux coups, je cherche comment afficher un paragraphe d'un fichier texte.

MON FICHIER TEXTE:

Blood
* You now have a blood affliction *
Description: Blood et al. afflictions will cause a loss of 1 point each of strength and consitution per week until totally cured. Thus, chronic problems here will slowly wear the character away.
Duration: Terminal cases will take 1-12 weeks.

Bone
* You now have a bone affliction *
Description: Bone afflictions will cause a loss of 1 point each of strength and consitution per week until totally cured. Thus, chronic problems here will slowly wear the character away.
Duration: Terminal cases will take 1-12 weeks.

MON SCRIPT:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub Search
{
open (DISEASES, "Diseases.txt") or die "I couldn't get the file open: $!";
 
for $line (<DISEASES>)
	{
	if ($line =~ /?????/)
       	 	{
       	 	print $line;
       	 	}
	}
close DISEASES;
}

Je cherche quoi marquer dans " if ($line =~ /?????/) " pour qu'il m'affiche:

* You now have a blood affliction *
Description: Blood et al. afflictions will cause a loss of 1 point each of strength and consitution per week until totally cured. Thus, chronic problems here will slowly wear the character away.
Duration: Terminal cases will take 1-12 weeks.

Vous comprenez?

Merci!
Bonne fin de journée!

[Jasmine80]

Je cherche un moyen de simplifier mon code, ou des astuces sur quoi faire et ne pas quoi faire. Je suis sur a 100% que je peut modifier les lignes (28 à 43 et 55 à 77) pour réduire la taille de mon programme pour que cela me donne un code plus propre.

Malheureusement je ne sais pas quoi faire, je vous demande de m'aider.

Voici déjà un coup de main pour cette première question.
Je te conseils de télécharger le module Statistics::Lite et d'utiliser le pragma strict.

Nb : tu peux aussi passer $range et $minimum en arguments au sous-programme Random_Roll.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Statistics::Lite qw{max};
 
 
#Creates stats for 1st and 2nd edition AD&D charaters or NPC's using "method 3"
my $range = 6;
my $minimum = 1;
 
sub Random_Roll
{
	# argument : nombre de dés utilisés
	my $num_dices = $_[0];
	my $Total_Dice = 0;
 
	for (1..$num_dices){
		$Total_Dice += int(rand($range)) + $minimum;
	}
 
	# retour : somme des dés
	return $Total_Dice;
}
 
 
 
 
foreach my $StatsName ("Strength", "Constitution", "Dexterity", "Intelligence", "Wisdom", "Charisma")
{
 
	my @arr;
 
	for (0..5)
	{
		# tirage avec 3 dés
		my $Total_Dice = Random_Roll (3);
		push (@arr, $Total_Dice);
	}	
 
	my $StatsHigh = max @arr;
 
	if ($StatsHigh > 17)
	{
		$range = 100;
 
		# tirage avec 1 dé
		$StatsHigh = Random_Roll (1);
	}
 
	print $StatsName, " = ", $StatsHigh, "\n";
 
}

[50Nio]

Ouarf, pour un roliste Perliste, je veux bien faire un effort. :-)

Pour un fichier de maladies écris avec "{{{" comme séparateur de lamadie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Maladie1 {{{
maladie 1
blablabla
test caractères scrogneugneu *.%ù¨^$£¤ += }{([-|è`_\ç^
}}}
Maladie2 {{{
maladie 2
qsdkfjqsdf
}}}

Peut-être parsé par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
#!/usr/bin/perl -w
# TODO flags is not displayed the first time it is created
 
use warnings;
use integer;
use Data::Dumper;
 
my %diseases;
 
#==============================================================================
# Affichage des services
open(DISEASES, "< disease_file") or die ("Error in open file disease_file: $!");
# Pour que l'expression régulière fonctionne sur plusieurs lignes
undef $/;
# Boucle sur le fichier
while (<DISEASES>) {
  while(/(.*)\s+\{\{\{\s+(.*)\s+\}\}\}\s+/msg){
        # s   Traitement de la chaîne comme étant une seule ligne.
        # g   Recherche globale, c.-à-d. trouver toutes les occurrences.
        next if not defined $1;
 
        my $maladie = $1;
        my $description = $2;
 
        print "Maladie:$maladie\n";
        print "Description:$description\n";
 
        $diseases{$maladie} = $description;
  }
}
close (DISEASES);
$/ = "\n";
 
# Affiche le hash résultatnt
print Dumper(\%diseases);

Après, $diseases{"Maladie2"} t'affichera la description enter {{{ et }}} dans ton fichier de maladies.

C'est à paufiner selon comment tu veux les utiliser.
C'est ptêt à mettre dans un tableau si tu veux pouvoir récupérer des maladies de manière "aléatoire".
(remplacer $hash{$maladie}=$desc par
push(@array, $desc) et $array[0] contient la description de la maladie 1 etc...)

Voilà, bon Perl et bon jdr. :-)

[bambambigellow]

Voici déjà un coup de main pour cette première question.
Je te conseils de télécharger le module Statistics::Lite et d'utiliser le pragma strict.

Nb : tu peux aussi passer $range et $minimum en arguments au sous-programme Random_Roll.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Statistics::Lite qw{max};
 
 
#Creates stats for 1st and 2nd edition AD&D charaters or NPC's using "method 3"
my $range = 6;
my $minimum = 1;
 
sub Random_Roll
{
	# argument : nombre de dés utilisés
	my $num_dices = $_[0];
	my $Total_Dice = 0;
 
	for (1..$num_dices){
		$Total_Dice += int(rand($range)) + $minimum;
	}
 
	# retour : somme des dés
	return $Total_Dice;
}
 
 
 
 
foreach my $StatsName ("Strength", "Constitution", "Dexterity", "Intelligence", "Wisdom", "Charisma")
{
 
	my @arr;
 
	for (0..5)
	{
		# tirage avec 3 dés
		my $Total_Dice = Random_Roll (3);
		push (@arr, $Total_Dice);
	}	
 
	my $StatsHigh = max @arr;
 
	if ($StatsHigh > 17)
	{
		$range = 100;
 
		# tirage avec 1 dé
		$StatsHigh = Random_Roll (1);
	}
 
	print $StatsName, " = ", $StatsHigh, "\n";
 
}

Merci de ta réponse, très apprécier.

Cependant je suis sous windows, et j'essaie depuis plusieurs temps d'installer le module "Statistics::Lite". J'ai fais des recherche, mais je n'ai rien trouvé. As-tu une quelque chose a me conseiller?.



Et merci beaucoup, 50Nio, cela devrait m'aider grandement

Merci encore!

[Jasmine80]

Cependant je suis sous windows, et j'essaie depuis plusieurs temps d'installer le module "Statistics::Lite". J'ai fais des recherche, mais je n'ai rien trouvé. As-tu une quelque chose a me conseiller?.

Je suis également sous Windows. Je te conseille d'ajouter des librairies afin d'avoir accès à plus de modules ActivePerl 8xx Win32 PPM packages. Pour plus d'explications, pose tes questions dans le forum 'modules'.

[Jedai]

Cependant je suis sous windows, et j'essaie depuis plusieurs temps d'installer le module "Statistics::Lite".

Si c'est juste pour max(), tu n'en as vraiment pas besoin : List::Util contient un max() aussi et il est distribué en standard avec l'interpréteur perl.

--
Jedaï