Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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 ( #894480=note: print w/ replies, xml ) Need Help??


in reply to Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word

--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; }


Comment on Re: Display the extracted ID in ID: tag before AU: tag and problem in capitalizing first letter in each word
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://894480]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2014-07-12 17:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (240 votes), past polls