fork download
copy 
  1. use strict;
  2. use warnings;
  3. use Data::Dumper;
  4. my $file = 'BatmanFile.txt';
  5. my @resultarray;
  6. while( my $line = <DATA>)  {   
  7.     #print $line;    
  8.     chomp $line;
  9.     my @linearray = split(":", $line);
  10.     push(@resultarray, @linearray);
  11. }
  12. print "$_\n" foreach @resultarray;
  13. __DATA__
  14. Bruce:Batman:bat@bat.com
  15. Santosh:Bhaskar:santosh@santosh.com
Success #stdin #stdout 0s 7304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Bruce
Batman
bat@bat.com
Santosh
Bhaskar
santosh@santosh.com
https://ideone.com/WRF2VE
language:
Perl (perl 5.28.1)
created:
8 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!