Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Search for a BLOCK of text and selectively replace

by krazken (Scribe)
on Mar 22, 2002 at 04:59 UTC ( [id://153487]=note: print w/replies, xml ) Need Help??


in reply to Search for a BLOCK of text and selectively replace

Just off the top of my head...I would read in the file, and search for the asterisk. When I found it, I would grab the keyword. This would be my hash key, then I would just push the lines onto the hash until I hit my next keyword...
######untested code #should be close in theory though #!/usr/bin/perl -w use strict; my $keyword=''; my %file_hash=(); while(<>) { chomp; next if (/^\;/); if ( /\*/) { $keyword=(split /\*/)[1]; } if ($keyword ne "END") { push @{$file_hash{$keyword}},$_; } } foreach my $line (@{$file_hash{'DESCRIPTION'}) { #do what ever you want with each line that falls in # the description block print "$line\n"; }
This is probably not the most elegant way of doing it, but it should get you going down some path or at least give you some suggestions. cheers! krazken

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (2)
As of 2024-05-26 18:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found