Note! This site is about Perl 6.
If you are looking for a solution for the current production version of Perl 5, please check out
the Perl 5 tutorial.
tutorial/scalars/calculator.p6
#!/usr/bin/env perl6
use v6;
my $a = prompt "Number:";
my $operator = prompt "Operator: [+-*/]:";
my $b = prompt "Number:";
if $operator eq "+" {
say $a + $b;
} elsif $operator eq "-" {
say $a - $b;
} elsif $operator eq "*" {
say $a * $b;
} elsif $operator eq "/" {
say $a / $b;
} else {
say "Invalid operator $operator";
}
The Perl 6 Tricks and Treats newsletter has been around for a while.
If you are interested to get special notification when there is new content
on this site, it is the best way to keep track:
This is a newsletter temporarily running on my personal site (szabgab.com) using Mailman,
till I implement an alternative system in Perl 6.
Written by Gabor Szabo
