Question

I am learning the sample code from split function.

Sample code.

#!C:\Perl\bin\perl.exe
use strict;
use warnings;

my $info = "Caine:Michael:Actor:14, Leafy Drive";
my @personal = split(/:/, $info);
# @personal = ("Caine", "Michael", "Actor", "14, Leafy Drive");

If change the $info = "Caine Michael Actor /* info data */";
How to use the split(/ /, $info) to export the result below.

# @personal = ("Caine", "Michael", "Actor", "info data");

Thank you.

Answer 1

Cooked something up :). Does work only for you example. Cannot generalize

use strict;
use warnings;

my $info = "Caine Michael Actor /* info data */";
if($info=~m{/\*\s*(.*?)\s*\*/})
{
    my $temp = $1;
    $temp=~s{\s+}{##}g;
    $info=~s{/\*\s*(.*?)\s*\*/}{$temp};
}
my @personal = split(/ /, $info);
foreach(@personal)
{
    s{##}{ }g;
    print "$_\n";
}

Output:

C:>perl a.pl
Caine
Michael
Actor
info data