NUtzereingabe auf Konsole? (Allgemeines zu Perl)

Math55

2004-05-12 13:27

User since
2003-08-19
44 Artikel
BenutzerIn
[default_avatar]

Moin, wie stelle ich es an, daß meine programm wartet, bis der user was eingibt? also es wird gestartet und dann fragt es zum beispiel nach einem namen und dann fragt es nach dem nachnamen und so weiter, bis der user eine 0 eingibt....

DANKE:-)

jan

2004-05-12 13:32

User since
2003-08-04
2536 Artikel
ModeratorIn

Code: (dl )

1
2
3

print "Name: ";
my $name = <STDIN>;
print "Hallo $name\n";

und mit der 0, das löst du wohl am besten über einen array, der die fragen beinhaltet und solange durchgeackert wird, wie die antwort ungleich 0 ist.

Math55

2004-05-12 13:50

User since
2003-08-19
44 Artikel
BenutzerIn
[default_avatar]

hi, danke funzt gut. allerdings müsste ich das mit der 0 anders lösen, da ich nicht weiss, wieviele fragen kommen. geht nicht sowas:

Code: (dl )

1
2
3

while(! $name eq "0"){
#INPUT
}

????

DANKE:-)

Math55

2004-05-12 13:54

User since
2003-08-19
44 Artikel
BenutzerIn
[default_avatar]

hi, habs :

Code: (dl )

1
2
3

do{
#eingeben
}while($name ne "quit");

danke :)

format_c

2004-05-12 14:51

User since
2003-08-04
1706 Artikel
HausmeisterIn

Also ich würd das so machen:

Code: (dl )

while (chomp(my $in = <STDIN>)) {
  last if $in eq '0';
  print "\t$in\n";
}

Gruß Alex\n\n

Effizente Linuxshell

Math55

2004-05-12 17:34

User since
2003-08-19
44 Artikel
BenutzerIn
[default_avatar]

hallo,

wie stell ichs aber an, wenn die eingabe in ein array soll? also jemand gibt ein:

1 2 testwort 6 7

das soll dann in ein array. wie bekomm ich dann die abbruchbedungung?

DANKE:)

renee

2004-05-12 17:41

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

while (chomp(my $in = <STDIN>)) {
   last if $in eq '0';
   my @array = split(/\s/,$in);
   print "Der Benutzer hat ",scalar(@array)," Sachen eingegeben...";
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Math55

2004-05-12 17:55

User since
2003-08-19
44 Artikel
BenutzerIn
[default_avatar]

mhhh, wenn ich jetzt also zum beispiel

1 2 3 test 10 20 30 0 eingeben, sollte er ja die while verlassen, tut er aber nicht. ne idee?

DANKE:)

renee

2004-05-12 18:00

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

last if((split(/\s/,$in))[-1] eq '0'));

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Math55

2004-05-12 18:06

User since
2003-08-19
44 Artikel
BenutzerIn
[default_avatar]

ne, leider immer noch nicht......

Use of uninitialized value in string eq at bmma.pl line 56, <STDIN> line 2.

komisch. aber auf jeden fall danke :-)