Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

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
Replies are listed 'Best First'.
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> 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?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2015-11-26 12:50 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (698 votes), past polls