Help please, or Urgent help needed!

[anakin30]

Description

This perl script will provide grep-like functionality to return multi-line (record) matches for

blank-line deliminated files such as LDIF files used by LDAP. A match on any line will return

all lines from the previous blank line until the following one.

here this is the script

----------------------------------------------

#!/usr/bin/perl -w

use strict;

my $search = shift;
my $file = shift;
my $out = shift;
if (! $file)  {
        open(INF, '-') or die("Unable to open STDIN\n");
} else {
        open(INF, $file) or die("Unable to open $file\n");
}

my @buffer;
while (<INF>)  {
  my $line = $_;
  if ($line eq "\n")  {
        my $count = 0;
        #@buffer = "";
        undef @buffer;
  } else {
        $buffer[$#buffer+1] = $line;
  }
  if (/$search/io)  {
        my $buf;
        foreach $buf (@buffer)  {
                print $buf;
        }
        while (($out = <INF>) ne "\n")  {
                print $out;
        }
        undef @buffer;
        print "\n";
  }
}

----------------------------------------------

when execute the script, it gives me this error message below, please help me to correct the script to avoid the error below as well as display as per format i want below

Use of uninitialized value in print at ./ldifgrep line 30, <INF> line 24.

Use of uninitialized value in string ne at ./ldifgrep line 30, <INF> line 24.

Use of uninitialized value in print at ./ldifgrep line 30, <INF> line 24.

Use of uninitialized value in string ne at ./ldifgrep line 30, <INF> line 24.

Use of uninitialized value in print at ./ldifgrep line 30, <INF> line 24.

Use of uninitialized value in string ne at ./ldifgrep line 30, <INF> line 24.

the line 59 is at this line ---> while (($out = <INF>) ne "\n")

----------------------------------------------

check out the sample LDIF File below I need to grep the full dn: and the next line attribute mail only

dn: uid=testing,ou=comp,o=test.com
dpwnc: BH
mail: [e-mail]
sn: example

dn: uid=testing1,ou=comp,o=test.com
dpwnc: CH
mail: [e-mail]
sn: example1

dn: uid=testing2,ou=comp,o=test.com
dpwnc: DH
mail: [e-mail]
sn: example2

i want the output generated into new file with the format below

dn: uid=testing,ou=comp,o=test.com
mail: [e-mail]

dn: uid=testing1,ou=comp,o=test.com
mail: [e-mail]

dn: uid=testing2,ou=comp,o=test.com
mail: [e-mail]

[SuicideJunkie]

...ldifgrep line 59...

I don't see a print on line 59 out of 36 of your code listing. Perhaps you aren't running the script you think you are running?

To debug uninitialized warnings, try putting an if statement near the line in question; if (not defined $var) then print out all of your variables to see why the value became undefined in the first place.

[anakin30]

i have re-updated perl script code, pointing line to for the error..

[remiah]

How about reading with block. If you set input separator with empty string, you will get block.

#!/usr/bin/perl
use strict;
use warnings;

open( my $fh, '<', "ldif.file") or die $!;
$/="";
while( my $item=<$fh> ){

    print "===========\n";
    print "$item\n";
    print "===========\n";

    if ($item =~ /something/is ){
        print "as you like\n";
    }
}
close $fh;

__DATA__
===========
dn: uid=testing,ou=comp,o=test.com
dpwnc: BH
mail: [e-mail]
sn: example


===========
===========
dn: uid=testing1,ou=comp,o=test.com
dpwnc: CH
mail: [e-mail]
sn: example1


===========
===========
dn: uid=testing2,ou=comp,o=test.com
dpwnc: DH
mail: [e-mail]
sn: example2

===========

[MidLifeXis]

Consider this block of code in your original example:

        while (($out = <INF>) ne "\n")  {
                print $out;
        }

If you happen to at the end of file, <INF> will return undef, which is ne "\n". Infinite loop.