fork download
copy 
  1. #!/usr/bin/perl
  2. $a=0;
  3. while ($a<=100)
  4. {
  5. print "Value of a: $a\n";
  6. $a=$a+5;
  7. }
  8. exit;
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Value of a: 0
Value of a: 5
Value of a: 10
Value of a: 15
Value of a: 20
Value of a: 25
Value of a: 30
Value of a: 35
Value of a: 40
Value of a: 45
Value of a: 50
Value of a: 55
Value of a: 60
Value of a: 65
Value of a: 70
Value of a: 75
Value of a: 80
Value of a: 85
Value of a: 90
Value of a: 95
Value of a: 100
https://ideone.com/CNIVkq
language:
Perl (perl 5.28.1)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!