fork download
copy 
  1. while (<DATA>) {
  2.   print '..', $_ if 1..($. >= 1); 
  3.   print '...', $_ if 1...($. >= 1);
  4. }
  5. __DATA__
  6. 1
  7. 2
  8. 3
  9.  
Success #stdin #stdout 0s 3608KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
..1
...1
...2
https://ideone.com/KMj5CS
language:
Perl (perl 5.28.1)
created:
10 years 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!