Mega Code Archive

 

Categories / Perl / Language Basics

 

If not equal

#!/usr/bin/perl -w use strict; print "please enter a number: "; chomp(my $number = <STDIN>); my $result = 0; if ($number != 0) {     $result = 100 / $number; } print "the result is: $result\n";