Perl append a substring with in a string

Question

I am using perl and I want to append a substring with in a string.

what I have is this.

<users used_id="222" user_base="0" user_name="Mike" city="Chicago"/>
<users used_id="333" user_base="0" user_name="Jim Beans" city="Ann Arbor"/>

What I want is append word Mr. after the user name like this.

<users used_id="222" user_base="0" user_name="Mike, Mr" city="Chicago"/>
<users used_id="333" user_base="0" user_name="Jim Beans, Mr" city="Ann Arbor"/>

problem is I don't know how to do that? This is what I have so far. Please no XML libraries.

#!/usr/bin/perl

use strict;
use warnings;

print "\nPerl Starting ... \n\n"; 

while (my $recordLine =<DATA>) 
{
    chomp($recordLine);
    #print "$recordLine ...\n";

    if (index($recordLine, "user_name") != -1) 
    {
        #Found user_name tag ... now appeand Mr. after the name at the end ... how?
        $recordLine =~ s/user_name=".*?"/user_name=" Mr"/g; 
        print "recordLine: $recordLine ...\n";

    }
}

print "\nPerl End ... \n\n"; 

__DATA__
<users used_id="222" user_base="0" user_name="Mike" city="Chicago"/>
<users used_id="333" user_base="0" user_name="Jim Beans" city="Ann Arbor"/>

Please no XML libraries That's like saying "I need to drive a nail into this piece of wood - please don't suggest I use a hammer". — Dave Cross
– Dave Cross, Commented Aug 16, 2019 at 8:24

mob · Accepted Answer · 2019-08-15 20:28:28Z

3

You're almost there.

The .*? sequence in your regular expression stands for some characters in the original input, and you have to find a way to include those characters in the output, too.

That is done with a capture group in the pattern (enclosing part of the regular expression in parentheses) and a reference to $1 (meaning the contents of the first capture group) in the replacement pattern.

$recordLine =~ s/user_name="(.*?)"/user_name="$1, Mr"/g;

answered Aug 15, 2019 at 20:28

mob

119k18 gold badges159 silver badges291 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Perl append a substring with in a string

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related