Sponsored Content
Full Discussion: Perl Issue
Top Forums Shell Programming and Scripting Perl Issue Post 302280620 by raj001 on Tuesday 27th of January 2009 09:34:16 AM
Old 01-27-2009
Sorry,

The perl script got distorted while posting, here is snapshot of the exact line:

foreach $entry ($mesg->all_entries) # for each entry
{
@dn = map {s/[a-z]+=//gi; $_ = ucfirst} reverse split /,/, $entry->dn; # organization
shift @dn;
pop @dn;
print '"'.(join '","', "@dn", map {get $entry, $_->[1], $_->[2]} @fields)."\"\n"; # row

}

Please be cautious that "get" is actually a subroutine as mention is script:

sub get # get field value
{
return $_[0]->exists($_[1])
? $_[0]->get($_[1])->[$_[2] ? $_[2] : 0]
: '';
}

If still it is not clear, here is the link to access the script, from where I have downloaded the script:

ZDO.COM - Articles - Export Data From LDAP As CSV

Thanks,
Raj
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

issue with if loop in perl

Hi I have a log file, I am having problem with "if else" loop in my perl script which does, find a string in that file ,If that string is found append to success.txt else append it to failed.txt. problem is: else part of loop it is not working I am adding problem part of the script. ... (4 Replies)
Discussion started by: amitrajvarma
4 Replies

2. Shell Programming and Scripting

perl issue ..

hi one perl issue i have xml file with 2 values and one condition b.w them <rule> <val1>12</val1> <cond>and</cond> <val2>13</val2> </rule> i read these values in hash in perl code $one{val1} = 12 $one{cond} = and $one{val2} = 13 now i want to form... (3 Replies)
Discussion started by: zedex
3 Replies

3. Shell Programming and Scripting

Perl Script Issue - Please Help * Thanks!!!

Please help me with my script please. I am trying to do the following: 1. Read files for the current directory 2. Open and read from nbe files files only 3. Read only the lines with the results pattern 4. Split the line and print 3rd field Please indicate what line I need to modify. ... (8 Replies)
Discussion started by: jroberson
8 Replies

4. Shell Programming and Scripting

Perl issue - please help!

Hello. I've been writing some code in Perl to read in strings from html files and have been having issues. In the html file, each "paragraph" is a certain file on the website. I need to find every one of the files that is a certain type, in this case, having green color....therefore... (7 Replies)
Discussion started by: akreibich07
7 Replies

5. Shell Programming and Scripting

wc -l command issue with perl

Hi Team, the Following program execute with out error but the out is not save with create2.txt. kindly help me!!! print "Enter your Number \n"; my $name = <STDIN>; if ($name =="*91111*") { @dirlist1 = `wc -l $name > create2.txt`; } else {print "do not match";} (3 Replies)
Discussion started by: adaleru
3 Replies

6. Shell Programming and Scripting

perl command issue

Hi, Please could someone advise on a perl command : export ENVPROP="$HOME/cfg/environment.properties.template" export LM_LICENSE=`awk -F= '!/^#/ && /LM_LICENSE/{print $2}' environment.properties` echo $LM_LICENSE $DATA_FILE/licenses/sample.demo.lic perl -i -npe... (1 Reply)
Discussion started by: venhart
1 Replies

7. Shell Programming and Scripting

PERL - issue with OPEN

Hi, I have a menu script written in PERL which calls some shell scripts and displays the return. I'm having a problem with OPEN. A section of the code is below: `./scriptlist.ksh 1`; open OUTPUT, "</home/$SCRIPTUSER/output"; { local $/ = undef; $_ =... (2 Replies)
Discussion started by: chris01010
2 Replies

8. Shell Programming and Scripting

Perl format issue

Input : day :15 and count -100 printf ("%6.6ld %10.10s %s\n",day,count) any idea what would be the format it will be. (3 Replies)
Discussion started by: ramkumar15
3 Replies

9. Shell Programming and Scripting

Out of memory issue in perl

I am getting a out of memory issue while executing the perl program. Per version : /opt/acc_perl/lib/site_perl/5.14.2 Read in 54973 total records Read in 54973 table records from table. Out of memory! so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
Discussion started by: ramkumar15
3 Replies

10. Programming

Perl - EMail issue - NEED Help

I have a perl that is sending emails in a bad format: "begin 644 Included.doc M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies
Net::LDAP::Control::PostRead(3) 			User Contributed Perl Documentation			   Net::LDAP::Control::PostRead(3)

NAME
Net::LDAP::Control::PostRead - LDAPv3 Post-Read control object SYNOPSIS
use Net::LDAP; use Net::LDAP::Control::PostRead; use Net::LDAP::Constant qw( LDAP_CONTROL_POSTREAD LDAP_SUCCESS ); $ldap = Net::LDAP->new( "ldap.mydomain.eg" ); $postread = Net::LDAP::Control::PostRead->new( attrs => [ qw/givenName/ ] ); my $mesg = $ldap->modify( "cn=Barbara Jensen, o=University of Michigan, c=US", replace => { givenName => "Babs" }, control => $postread ); if ($mesg->code eq LDAP_SUCCESS) { my ($afterwards) = $mesg->control( LDAP_CONTROL_PREREAD ); my $entry = $afterwards ? $afterwards->entry() : undef; if ($entry) { print "givenName changed to '" . join("', '", $entry->get_value(givenName") . "' to 'Babs' "); } } DESCRIPTION
"Net::LDAP::Control::PostRead" provides an interface for the creation and manipulation of objects that represent the "Post-Read Controls" as described by RFC 4527. In modification operations, the "Post-Read request control" indicates to the server that a copy of the modified entry after the update is to be returned. After the successful completion of the operation, the accompanying "Post-Read response control" allows one to retrieve the updated value from the server's response. One use case of this control may be to obtain values of operational attributes, such as the "entryUUID" and "modifyTimestamp" attributes, updated by the server as part of the update operation. CONSTRUCTOR ARGUMENTS
In addition to the constructor arguments described in Net::LDAP::Control the following are provided. attrs => [ ATTR, ... ] A list of attributes to be returned in the entry returned in the response control. If absent, all attributes are returned. Operational attributes may be included in the list by explicitly asking for them or by using special "+" feature (provided the server supports this feature). METHODS
As with Net::LDAP::Control each constructor argument described above is also available as a method on the object which will return the current value for the attribute if called without an argument, and set a new value for the attribute if called with an argument. In addition to these methods, the control also supports the following method: entry () Returns the entry from the response control in the response message to the LDAP request that contained the request control. The result is either a Net::LDAP::Entry object or undefined. SEE ALSO
Net::LDAP, Net::LDAP::Control, http://www.ietf.org/rfc/rfc4527.txt AUTHOR
Peter Marschall <peter@adpm.de> Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org> COPYRIGHT
Copyright (c) 2008,2011 Peter Marschall. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.18.2 2013-07-21 Net::LDAP::Control::PostRead(3)
All times are GMT -4. The time now is 06:18 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy