fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. print join(':', split(//, 'abc',  1)), "\n";    # => abc
  4. print join(':', split(//, 'abc',  2)), "\n";    # => a:bc
  5. print join(':', split(//, 'abc',  3)), "\n";    # => a:b:c
  6. print join(':', split(//, 'abc',  4)), "\n";    # => a:b:c:
  7. print join(':', split(//, 'abc', 99)), "\n";    # => a:b:c:
Success #stdin #stdout 0s 6056KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
abc
a:bc
a:b:c
a:b:c:
a:b:c:
https://ideone.com/AREXdz
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!