Question

Perl newbie here…looking for help to reformat a datafile.

Data looks like this:

num:3460381591 
num:1038198413 
num:3380733973

I would like to make it one string and then append each start of the rec with ^a and ^b after the colon like this:

^anum:^b3460381591^anum:^b1038198413^anum:^b3380733973

Can someone show me how to do this? Thank you.

Answer 1

my $str = '';

open FILE, "file";
while (<FILE>) {
    chomp;
    my ($k, $v) = split /:/;
    $str .= "^a$k:^b$v";
}
close FILE;

print "$str\n";