Plural format and ternary operator : If « Statement « Perl






Plural format and ternary operator

   

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

my @words = split ('\s+', <>); #read some text and split on whitespace
my $words = scalar (@words);

print "There ", ($words == 1)?"is":"are"," $words word", ($words == 1)?"":"s"," 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 message
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