fork download
  1. #!/usr/bin/perl
  2. print("The Perl5 Subtract/Divide Program.\n");
  3. $a = 100;
  4. $b = 50;
  5. $c = ($a - $b);
  6. print("A ".$a." B ".$b." C ".$c."\n");
  7. $d = 2500;
  8. $e = 50;
  9. $f = ($d / $e);
  10. print("D ".$d." E ".$e." F ".f."\n");
Success #stdin #stdout 0.01s 5296KB
stdin
1
2
10
42
11
stdout
The Perl5 Subtract/Divide Program.
A 100 B 50 C 50
D 2500 E 50 F f