Thread Perl Variablen Problem (6 answers)
Opened by Fabian at 2014-05-14 18:04

Gast Fabian
 2014-05-14 18:04
#175538 #175538
Hallo, habe mir heute Perl mit Eclpise und dem EPIC Modul eingerichtet.
Allerdings kann ich keine globalen Variablen definieren.
Beispielsweiße hier: my $toguess funktioniert, aber eben nur lokal und somit funktioniert das Spiel nicht. Wenn ich das "my" vor der Variablen weglasse, bekomme nich folgende Fehlermeldung:
Global symbol "$toguess" requires explicit package name at C:/xxxx/guessgame.pl line 5.

Kann mir jemand weiterhelfen? bin noch relativ neu bei Perl
Grüße

Code (perl): (dl )
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

use v5.16.3;
use strict;
#Zahlenraten

my $toguess = rand(99); #Zufallsvariable
$toguess =~ s/^(.*?)\..*$/$1/ ; #runden auf 0 Nachkommestellen


print "Bitte geben Sie eine ganze Zahl zwischen 0 und 99 ein \n";
my $zaehler = 1;
my $variable;

while ($toguess =! $variable) {

        my $variable = <STDIN>;
        if ($variable<0 || $variable != int($variable)) {
                print "Ungültige Eingabe"
                }
        
        if ($toguess == $variable){
                print "Sie haben richtig geraten,der toguess-Wert war: $toguess";
                print "Sie benötigten $zaehler Versuche.";     
        } #end if
        if ($toguess > $variable) {
                print "Die gesuche Zahl ist größer! \n
                Bitte geben Sie eine neue Zahl ein";
                $zaehler++;
        } # end if
        if ($toguess < $variable) {
                print "Die gesuche Zahl ist kleiner! \n
                Bitte geben Sie eine neue Zahl ein";
                $zaehler++;
        } # end if
        
} # end for

Last edited: 2014-05-14 18:12:28 +0200 (CEST)

View full thread Perl Variablen Problem