Or a shorter version :-)
###
#!/usr/bin/perl -w
use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;
my @array = ();
my @strings;
push @strings,extract_multiple(
$_,[sub { extract_quo
One idea
##
#!/usr/bin/perl -w
use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;
my @array = ();
my @strings;
foreach my $line (@array) {
push @strings,
extract_multiple($
Hi Frnds,
I found some solution for my problem.
foreach $line2 (@objects)
{
chomp($line2);
if ($line2 =~ /^\s*\(\s*ObjectClass\s*"(.+?)"\s*\)/)
{
$var=$1;
Arjun
-Original Message-
