fork(1) download
copy 
  1. use strict;
  2.  
  3. while (<DATA>) { 
  4.     chomp $_;
  5.     my @fields = /([^\s"]+|(?:[^\s"]*"[^"]*"[^\s"]*)+)(?:\s|$)/g;
  6.     print "$_\n" for @fields;
  7.     print "\n";
  8. }
  9.  
  10. __DATA__
  11.  
  12. 1 2 3 4 5
  13. 1 "2 3" 4 5
  14. 1 2" 3 " 4 5 
  15. 1 2" 3 "4 5 
  16. 1 2" 3 "4" 5" 6
  17. 1 2" 3 "4"" 5"" 6
  18.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
3
4
5

1
"2 3"
4
5

1
2" 3 "
4
5

1
2" 3 "4
5

1
2" 3 "4" 5"
6

1
2" 3 "4""
5""
6
https://ideone.com/LRV3p
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
secret

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!