Perl Regex Replace and save to variable

Question

$LDAP = ldap://sspdir.managed.entrust.com/ou=Entrust Managed Services SSP CA,ou=Certification Authorities,o=Entrust,c=US?cACertificate;binary,crossCertificatePair;binary

I am trying to extract 2 strings from this code ldap directory. The first i want:

$LDAP_host = sspdir.managed.entrust.com

and second...

$LDAP_base = ou=Entrust Managed Services SSP CA,ou=Certification Authorities,o=Entrust,c=US

My code is below, it produces constant mismatches in my output and I cannot figure out why:

my $LDAP_host = $LDAP;
my $LDAP_base = $LDAP;
$LDAP_host =~ s|^ldap:\/\/(.*)\/|$1|i;
$LDAP_base =~ s|"\/"(.*)\?|$1|i;

If this is an LDAP string, there should be a suitable module to parse it. — TLP
– TLP, Commented Jul 10, 2012 at 18:27

rubber boots · Accepted Answer · 2012-07-10 18:14:14Z

3

I'd use:

 my ($LDAP_host, $LDAP_base) = $LDAP=~ m{ // ([^/]+) / (ou=[^?]+) }x;

or, if you'd like to check the start of the string too:

 my ($LDAP_host, $LDAP_base) = $LDAP=~ m{ ^ldap:// ([^/]+) / (ou=[^?]+) \? }x;

Regards

rbo

edited Jul 10, 2012 at 18:14

answered Jul 10, 2012 at 18:08

rubber boots

15.2k5 gold badges36 silver badges45 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

perreal · Accepted Answer · 2012-07-10 18:10:11Z

1

my $str = "ldap://sspdir.managed.entrust.com/ou=Entrust Managed Services SSP CA,ou=Certification    Authorities,o=Entrust,c=US?cACertificate;binary,crossCertificatePair;binary";
my ($LDAP_host, $LDAP_base) = ($str =~ m!ldap://([^/]+)/([^?]+)!);
print "$LDAP_host  $LDAP_base\n";

answered Jul 10, 2012 at 18:10

perreal

98.7k23 gold badges159 silver badges187 bronze badges

Comments

novacik · Accepted Answer · 2012-07-10 18:11:35Z

1

use strict;
use warnings;

my $LDAP='ldap://sspdir.managed.entrust.com/ou=Entrust Managed Services SSP CA,ou=Certification Authorities,o=Entrust,c=US?cACertificate;binary,crossCertificatePair;binary';

my($LDAP_host, $LDAP_base) = $LDAP =~ m{ldap://([^/]+?)/(.*?)\?.*};
print $LDAP_host, "\n";
print $LDAP_base, "\n";

produces

sspdir.managed.entrust.com
ou=Entrust Managed Services SSP CA,ou=Certification Authorities,o=Entrust,c=US

answered Jul 10, 2012 at 18:11

novacik

1,5071 gold badge9 silver badges20 bronze badges

Comments

user21926 · Accepted Answer · 2012-07-10 18:00:06Z

0

This should do what you want:

my $LDAP_host = $LDAP;
my $LDAP_base = $LDAP;
$LDAP_host =~ s|^ldap:\/\/(.*)\/.*|$1|i;
$LDAP_base =~ s|^ldap:\/\/.*\/(.*)\?.*|$1|i;

answered Jul 10, 2012 at 18:00

user21926

Comments

jmcneirney · Accepted Answer · 2012-07-10 18:11:03Z

0

If you don't want change the original string you could try this:

my ($host) = $LDAP =~ /^ldap:\/\/(.*)\//i;

Also, if you use delimiters other than // in search and replaces, you don't need to escape the forward slashes.

$LDAP_host =~ s{^ldap://(.*)/.*}{$1}i;

answered Jul 10, 2012 at 18:11

jmcneirney

1,3848 silver badges23 bronze badges

Comments

Kamleein · Accepted Answer · 2014-03-25 16:08:06Z

0

Please find below an amature way of implementing the same using perl.

my $LDAP = "ldap://sspdir.managed.entrust.com/ou=Entrust Managed Services SSP CA,ou=Certification Authorities,o=Entrust,c=US?cACertificate;binary,crossCertificatePair;binary";
$LDAP =~ '^\w+\W+(.*)/(.*)\?.*$';
$LDAP_host = $1;
$LDAP_base = $2;
print "\$LDAP_base => $LDAP_base\n\$LDAP_host => $LDAP_host\n";

The output would be like:

$LDAP_base => ou=Entrust Managed Services SSP CA,ou=Certification Authorities,o=Entrust,c=US $LDAP_host => sspdir.managed.entrust.com

edited Mar 25, 2014 at 16:08

answered Mar 25, 2014 at 15:27

Kamleein

112 bronze badges

Collectives™ on Stack Overflow

Perl Regex Replace and save to variable

6 Answers 6

Comments

Comments

Comments

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

6 Answers 6

Comments

Comments

Comments

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related