Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Insert lines into specific stanza line

by jonadab (Parson)
on Aug 13, 2010 at 19:17 UTC ( [id://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 . $/;
  }}

[download]

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>

    [download]

    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
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://854984]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others sharing their wisdom with the Monastery: (5)
As of 2024-04-24 08:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found