String Perl

  1. Home
  2. Perl
  3. String
  4. Compare two words with cmp
#!/usr/bin/perl
use warnings;
use strict;
my @words = split ('\s+',<>);
die "Enter two words \n" unless scalar(@words) == 2;
my $result = $words[0] cmp $words[1];
print $result;