Perl Script- File Chopdown With Regex

Question

0.00/5 (No votes)

See more:

Hello all!

I have a text file that's too large to be processed without doing it line by line, and yet I need to do multi-line matching. I'm trying to write a script to chop the parts out that I need (both Section 1's) Here's what I Have so far:

PERL

$insidesection = 0;
while (defined($line = <>))
{
    if($line =~ /Section.*?1/)
    {
        $insidesection = 1;
    }
    elsif($line =~ /Section.*?2)
    {
        $insidesection = 0;
    }
    if ($insidesection = 1)
    {
        print $line;
    }
}

Thanks in advance!

Still doesn't seem to work. Anyone see where i'm going wrong?

-Grumbles22

Posted 14-Mar-11 11:43am

Grumbles22

Updated 14-Mar-11 11:52am

Manfred Rudolf Bihy

v2

Add a Solution

Comments

Manfred Rudolf Bihy 14-Mar-11 17:53pm

Edit: Added pre tags.

1 solution

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

*ZeeroC00l* · Answer 1 · 2011-04-03T04:20:00

I would suggest you write a small function which opens the file and puts the content into a variable. You can pass a file name to open to the function and the content will be returned in @CONTENTS

XML

sub open_file
{
    my $FILE = $_[0] ;
    open(FILE,"$FILE") or print ("unable to open $FILE file!", __LINE__);
        chomp ( @CONTENTS=<FILE>); close FILE;
}

Then you can read the contents from @CONTENTS line by line using foreach loop construct and do the processing with regex.

foreach $LINE ( @CONTENTS )
{
   //regex check and other modification necessary.
}

This should help you solve the problem.

Perl Script- File Chopdown With Regex

1 solution

Solution 1

Add your solution here

Preview 0

Perl Script- File Chopdown With Regex

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us