regex - Perl - File Iteration and looking for specific matching data -


i'm looking iterate file in perl , if finds specific word store other lines following matches speific pattern. ldap.txt file pretty large in several gigs.

user.txt

test1   game

ldap.txt

dn: uid=test1,ou=people,dc=admin,dc=local   blah   blah   maillocaladdress: test1@example.com   maillocaladdress: test.team@example.com   maillocaladdress: test11@example.com   date   more data   data   dn: uid=game,ou=people,dc=admin,dc=local    blah   blah   maillocaladdress: game@example.com    maillocaladdress: game.test@example.com   maillocaladdress: game-test@example.com   date   more data   data

and on..

open user.txt , iterate through each user , check each line on ldap.txt in dn: line. if matches, store value of lines matching maillocaladdress varialbe , assume in hash key/value pari here values more one.

e.g. 

test1 matches dn: uid=test1,ou=people,dc=admin,dc=local

store following values each user. 

test1@example.com   test.team@example.com   test11@example.com

code

#! /usr/bin/perl  use strict; use warnings;  $ldiffile = shift; %emails;  open $us, '<', 'users2.txt'                   or die "could not open file users2.txt: $!";  open $fh, '<', $ldiffile                  or die "could not open file $ldiffile: $!";  chomp(my @users = <$us>); #print "@users \n";  foreach $uid (@users) { print "$uid \n"; #       while ( chomp(my $line = <$fh>) ) {         while (my $line = <$fh>) {         chomp ($line);                 if ( $line =~ /dn: uid=$uid,ou=people,dc=admin,dc=local/i ) {                 print "$line \n";                         if ( $line =~ /maillocaladdress: ([\w\.\-\_\@]+)/ ) {                                 print "<<<< $line >>>> \n";                                 push ( @{$emails{$uid}}, $1 );                         }                 }         } }

hash user list. then, iterate on second file. remember user parsing ($user). if see email address, store it.

#!/usr/bin/perl use warnings; use strict;  %users; open $user, '<', 'user.txt' or die $!; while (<$user>) {     s/\s*$//;               #/ sample input contains trailing whitespace.     undef $users{$_}; }  $user = q(); open $ldap, '<', 'ldap.txt' or die $!; while (<$ldap>) {     s/\s*$//;     $user = $1 if /dn: uid=(.*?),ou=people,dc=admin,dc=local/;     push @{ $users{$user} }, $1 if exists $users{$user}                                  , /maillocaladdress: (.*)/; }  $user (keys %users) {     print "$user\n\t";     print join "\n\t", @{ $users{$user} };     print "\n"; }

Comments

Post a Comment

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

i using signpost oauth access data magento server. have read various tutorials on same , reach point open browser user can enter credentials. however, per requirement have automate part. hence, user should not browser page. have set-up done on server side ( magento ), hit url , returned call page. same through program in android. i have tried below, consumer = new commonshttpoauthconsumer(key, secret); provider = new commonshttpoauthprovider(oauth_init_url,access_token_url, authorize_url); try { provider.retrieverequesttoken(consumer, oauth.out_of_band); log.d("tokens" , consumer.gettoken() + " -- " + consumer.gettokensecret()); } and request tokens. dont know how bypass next step. tried directly accessing accesstoken (stupid of me) provider.retrieveaccesstoken(consumer, "mycallback://callback"); no luck, ends in oauth.signpost.exception.oauthnotauthorizedexception: authorization failed (server replied 401). ...
Read more

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

getting error org.mockito.exceptions.misusing.invaliduseofmatchersexception: invalid use of argument matchers! 1 matchers expected, 2 recorded. exception may occur if matchers combined raw values: //incorrect: somemethod(anyobject(), "raw string"); when using matchers, arguments have provided matchers. example: //correct: somemethod(anyobject(), eq("string matcher")); at when( getprogramservice .callservice(any(getprogramtype.class))) .thenreturn(jaxbresponse); please explain error , possible resolution the code posted looks fine; don't see problem it. code before or above causing exception. key here: invalid use of argument matchers! 1 matchers expected, 2 recorded. any , used above, doesn't return "special kind of null" or "special kind of getprogramtype"; don't exist. instead, returns null , side effect puts matcher on stack. whe...
Read more

google shop client API returns 400 bad request error while adding an item -

i'm working on solution add items in google shopping market java application. following tutorial real mess because of missing classes of laste release, after setting 1.5-beta maven managed make base example typecheck correctly classes. still can make simple task of adding 1 item. instead of posting whole code i'm posting part creates product feed. private product createproduct(string id) { product product = new product(); product.title = "red wool sweater"; product.content = new content( "text", "comfortable , soft, sweater keep warm on " + "cold winter nights. red , blue stripes."); product.appcontrol = new appcontrol(); product.appcontrol.addrequireddestination("productads"); product.externalid = id; product.lang = "it"; product.country = "it"; product.condition = "nuovo"; product.price = new price("eu...
Read more