Delve into Perl, a popular text processing language. Gain insights into loops, strings, and arrays, progressing to complex data structures and packages. No prior knowledge required.

alpine2.tar.gz

Perl is one of the most popular text processing languages in the world. It allows you to create extremely efficient text parsers for all sorts of applications.

This interactive course will help you get up to speed on Perl, starting off with basic concepts like loops, strings, and arrays. You'll build your way up to more complex topics like data structures and packages.

No background knowledge is needed. Anyone willing to understand the principles and syntax of Perl to use it in the future will find this course useful.

Learn Perl from Scratch

## Problem statement

Write a code which will take: 
*  Two variables named `$num1` and `$num2`   
*  A `string` type variable called `$Operator` which will be passed as **input** to our given statement
* The `$Operator` variable can have any of the following values:                      

  * `+`,`-`,`*` and `/` 
* Use the `given` and `when` statements to perform:
  * addition 
  * subtraction
  * multiplication 
  * division


## Sample input
```
$num1 = 5.5
$num2 = 6.5
$Operator = '+'
```

## Sample output

```
Output = 12
```

### Coding exercise
**Write your code below**. It is recommended that you try solving the exercise yourself before viewing the solution.

**Good Luck!**

#you are given variables $num1, $num2 containing some values 
#and an $Operator variable that contains the operator that is to be applied to $num1 and $num2 


#temp will contain the final answer after the required operation is performed
$temp=-76575; 

#write your code for given and when statements here 

package Test;
use experimental qw( switch );

sub square {

$num1 = @_[0];
$num2 = @_[1];
$Operator = @_[2];


#temp will contain the final answer after the required operation is performed

$temp=-76575; 

given($Operator) {
    when ('+'){
        $temp = $num1+$num2;
    }

    when ('-') {
        $temp = $num1-$num2;
    }

    when ('*'){
        $temp = $num1*$num2;
    }

    when ('/'){
        $temp = $num1/$num2;
    }

    default{
        print "Wrong operator";
    }
}

Challenge

# Problem statement

Write a code which will take: 
*  Two variables named `$num1` and `$num2`   
*  A `string` type variable called `$Operator` which will be passed as **input** to our given statement
* The `$Operator` variable can have any of the following values:                      

  * `+`,`-`,`*` and `/` 
* Use the `given` and `when` statements to perform:
  * addition 
  * subtraction
  * multiplication 
  * division


# Sample input
```
$num1 = 5.5
$num2 = 6.5
$Operator = '+'
```

# Sample output

```
Output = 12
```

## Coding exercise
**Write your code below**. It is recommended that you try solving the exercise yourself before viewing the solution.

**Good Luck!**

# Problem statement

Write a code which will take: 
*  Two variables named `＄num1` and `＄num2`   
*  A `string` type variable called `＄Operator` which will be passed as **input** to our given statement
* The `＄Operator` variable can have any of the following values:                      

  * `+`,`-`,`*` and `/` 
* Use the `given` and `when` statements to perform:
  * addition 
  * subtraction
  * multiplication 
  * division


# Sample input
```
$num1 = 5.5
$num2 = 6.5
$Operator = '+'
```

# Sample output

```
Output = 12
```

Test your understanding of the conditional statement concepts covered so far by solving a simple challenge in this lesson.

Getting Started

Variables

Operators

Conditional Statements

Loops

Subroutines

Strings

Arrays

Packages

Conclusion

Challenge 2: Making a Calculator

Problem statement

Sample input

Sample output

Coding exercise