allison has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's threshold of quality. You may see it by logging in.
  • Comment on Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word
  • Select or Download Code

Replies are listed 'Best First'.
Re: Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word
by Corion (Pope) on Mar 21, 2011 at 11:12 UTC

    This is now the fourth or fifth post you make where you try to attack more than one problem at the same time. I suggest that you concentrate on getting one problem fixed at a time instead of trying to ask as many questions as you can type in one post.

    Also, you should start debugging your problems yourself, and reduce the input data and output data to the relevant parts. For example, you would only need to show the one "AU:" line with "Mr. Henderson" instead of showing the complete output to demonstrate your first problem.

Re: Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word
by ELISHEVA (Prior) on Mar 21, 2011 at 11:57 UTC

    --why the code still not working

    The short answer to your question is that you are trying to do way too much in a single regular expression.

    Try breaking down the problem into smaller steps. First get a program that does what you want with the lines beginning with AU. When you get that right, then and only then expand the program to also replace ids.

    Even doing the right thing with lines that begin with AU can be broken down into single steps. You don't need to select the lines beginning with 'AU' and do the substitutions and insert "Written by" all in one go. Instead break it down into steps:

    1. Use if ($line =~ /^AU:/) {...} to select the lines beginning with 'AU' for special processing.
    2. Find the place to insert "Written by". Do this as a single step on its lonesome.
    3. Capitalize each word using a simple regular expression, something like this: s/\s(\w+)/ \u$1/g

    Here is a part of your problem broken down into smaller steps. You might find substr especially helpful. It can be used on the left side to replace parts of a string.

    my $iLength = length('AU: Written by:'); # read lines one at a line instead of slurping into an array # this is more memory friendly while (my $line = <INPUT>) { # single out lines beginning with 'AU' for special processing if ($line =~ /^AU:/) { # insert "Written by" # Note: substr on the left means # replace the zero-length string at position 3 # in other words: insert something at position 3 substr($line, 3,0) = ' Written by:'; # capitalize the first letter of every word # Note: substr on the left means # make substitutions in the part of the string after # "AU: written by" substr($line, $iLength) =~ s/\s(\w+)/ \u$1/g; } print $line; }