Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. If not equal
#!/usr/bin/perl -w
use strict;
print "please enter a number: ";
chomp(my $number = );
my $result = 0;
if ($number != 0) {
    $result = 100 / $number;
}
print "the result is: $result\n";