Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^3: Substr Perl

by boftx (Deacon)
on Nov 26, 2013 at 12:05 UTC ( #1064398=note: print w/replies, xml ) Need Help??

in reply to Re^2: Substr Perl
in thread Substr Perl

Can you give us an example of what such a record would look like?

It helps to remember that the primary goal is to drain the swamp even when you are hip-deep in alligators.

Replies are listed 'Best First'.
Re^4: Substr Perl
by mba777 (Novice) on Nov 26, 2013 at 12:20 UTC
    sorry for my stupid questions but i'm actually no programmer ;), For example i have something like that:
    my @member = $entry->get_value ('memberOf'); my @memberof = grep(/\CN=ext\.Group\.([^,]+)/,@member); $member = join(',',@memberof); print "$uid -- $member\n";
    This code gives me the following output:
    Michael Douglas -- CN=ext.Group.eso,OU=External,OU=ExDistriGroups,OU=A +ccounts,DC=eso,DC=local,CN=ext.Group.test,OU=External,OU=ExDistriGrou +ps,OU=Accounts,DC=eso,DC=local,CN=ext.Group.test1,OU=External,OU=ExDi +striGroups,OU=Accounts,DC=eso,DC=local,CN=ext.Group.test2,OU=External +,OU=ExDistriGroups,OU=Accounts,DC=eso,DC=local
    What i want is:
    Michael Douglas -- eso, test, test1, test2
    Thanks Andy

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1064398]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2018-05-24 14:18 GMT
Find Nodes?
    Voting Booth?