Plural output with if statement : If « Statement « Perl






Plural output with if statement

   


#!/usr/bin/perl
use warnings;
use strict;

my @words = split ('\s+', <>);   
my $count = scalar (@words);

print "There ";
if ($count == 1) {
    print "is";
} else {
    print "are";
}
print " $count word";

unless ($count == 1) {
    print "s";
}
print " in the text \n";

   
    
    
  








Related examples in the same category

1.A program containing a simple example of an if statement.
2.A program that uses the if-else statement.
3.A program that uses the if-elsif-else statement.
4.Conditional Control Statements
5.Conditional Modifiers and print
6.Conditional Modifiers: The if Modifier
7.Extend the if statement to include an else block
8.If and else
9.If start with - no repeat
10.If statement and integer comparsion
11.If statement in a while statement
12.If statement ladder
13.If statement with else
14.If statement with scalar variable
15.Nest if statement into for loop
16.Perl has a number of string comparison operators you can use in if statements.
17.Plural format and ternary operator
18.Plural message
19.The if Construct
20.The if/else Construct
21.The if/elsif/else Construct
22.Use an elsif statement to check if a different condition is true
23.Use if statement to check the integer value
24.Using if statement to check if a variable has been defined
25.Using if statement to check if a variable is zero
26.Using if statement to check the number entered from keyboard
27.Using if statements with relational and equality operators
28.Using the equality-comparison operator to compare two numbers entered at the keyboard.
29.Using the if elsif statement to check the number entered from keyboard
30.if in a while loop
31.if scope
32.if statement
33.if/else statement
34.if/elsif statement