Plural message : If « Statement « Perl






  1. Perl
  2. Statement
  3. If

Plural message

   


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

my @words = split ('\s+', <>);
my $words = scalar (@words);
#ERROR!
my $message = "There ". ($words==1) ? "is" : "are". " $words word" . ($words == 1)?"" : "s". " in the text\n";

print $message;








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 output with if statement
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