Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
|< 1 2 3 4 5 >| |  |
45 Einträge, 5 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
my $string = "";
my @array = ();
for ( $string = <STDIN>)
{
chomp($string);
printf("Ihre Formel lautet, %s !\n",$string); ## Ausgabe mittels Zeichenkette
@array = split(/\s+/,$string);
for (my $i = 0; $i < @array; $i++)
{
print "@array[$i] \n"; ## Ausgabe der jeweiligen Positionen im Array
}
}
![[Homepage]](/battie/theme/default/homepage.gif)
Math::Expression
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
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
#!/usr/bin/perl
use strict;
#my $input = 1;
###############
# Eingabe einer Formel über die Tastatur
###############
print "Bitte geben sie eine Formel ein und trennen sie mittel Leerzeichen : ";
my $string = "";
my @array = ();
for ( $string = <STDIN>)
{
chomp($string);
printf("Ihre Formel lautet, %s !\n",$string); ## Ausgabe mittels Zeichenkette
@array = split(/\s+/,$string);
for (my $i = 0; $i < @array; $i++)
{
print "@array[$i] \n"; ## Ausgabe der jeweiligen Positionen im Array
}
}
my $ergebnis = eval($string);
print sprintf("%.2f \n", $ergebnis );
Tutorien in der Wiki, mein zeug:
print "Bitte geben sie eine Formel ein und das OHNE Leerzeichen: ";
|
|< 1 2 3 4 5 >| | |
45 Einträge, 5 Seiten |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
