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

Re: Insert lines into specific stanza line

by jonadab (Parson)
on Aug 13, 2010 at 19:17 UTC ( #854984=note: print w/ replies, xml ) Need Help??


in reply to Insert lines into specific stanza line

It took me three or four minutes to figure out what your for loop does, and I still have no idea what it has to do with the stated problem. I think I would try a different approach altogether...

open INPUT, '<', 'inputfile'; open OUTPUT, '>', 'resultsfile'; local $/ = "</stanza>"; while (<INPUT>) { my $stanza = $_; if ($stanza =~ /<stanza/) { my ($dottedquad) = $stanza =~ /<stanza\s*(\d+[.]\d+[.]\d+[.]\d+)\s*>/; $stanza .= " sl3 yet another line\n"; # Make other changes to $stanza here as desired. print OUTPUT $stanza . $/; }}


Comment on Re: Insert lines into specific stanza line
Download Code
Re^2: Insert lines into specific stanza line
by oko1 (Deacon) on Aug 13, 2010 at 19:34 UTC

    Unfortunately, your code is incorrect, and will produce the following output:

    <stanza 12.34.56.78> sl1 this is my line sl2 justanotherline </stanza> sl3 yet another line </stanza>

    Also, there's no newline at the last line of the above, so any subsequent additions will not be correctly formatted.


    --
    "Language shapes the way we think, and determines what we can think about."
    -- B. L. Whorf

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (13)
As of 2014-07-28 18:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (206 votes), past polls