fork download
copy 
  1. $string=<stdin>;
  2. chomp$string;
  3. $l=length(string);
  4. $p=0;
  5. while($p<$1)
  6. {
  7. $n=substr($string,$p,1);
  8. print"$n\n";
  9. $p++;
  10. }
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
omar
stdout
copy 
Standard output is empty
https://ideone.com/zYPIFu
language:
Perl (perl 5.28.1)
created:
7 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!