Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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
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 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 meditating upon the Monastery: (10)
As of 2015-07-30 11:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (271 votes), past polls