Solved

Perl - sort and count

Posted on 2012-03-20
2
243 Views
Last Modified: 2012-03-20
I have a file that has some info for user records, each record is separated by a new line such as:

dn: John Doe
alias: JDoe
contacts: 20101118
contacts: Visable

dn: Mary Doe
alias: MDoe
contacts: 20101118
contacts: Visable
contacts: 20101119
contacts: Hidden

dn: Bill Doe
alias: BDoe
contacts: 20101119
contacts: Hidden


I can pull the records out I want using - Perl -n00e ......

What I need to do is pull out the records that has more than two contacts: lines in them.

How can I pull each record out and do a count of how many lines they have in them that contain "contacts:"....

In the example above I need to be able to pull out the record for:

dn: Mary Doe
alias: MDoe
contacts: 20101118
contacts: Visable
contacts: 20101119
contacts: Hidden

but would like to get a count on all records on the number of contacts: lines in each one.

Thanks,
0
Comment
Question by:bt707
2 Comments
 
LVL 31

Accepted Solution

by:
farzanj earned 500 total points
ID: 37744323
Try this:

 perl -ne 'BEGIN{$/="\n\n";} (@c) = /(contacts[:])/g; print if (@c>2)' xx' filename

Open in new window


If you also want to print the count of contacts, do this:
perl -ne 'BEGIN{$/="\n\n";} (@c) = /(contacts[:])/g; if (@c>2){print;print @c."\n"}' filename

Open in new window

0
 

Author Closing Comment

by:bt707
ID: 37744366
Yes that worked well.

Thanks
0

Featured Post

Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Many time we need to work with multiple files all together. If its windows system then we can use some GUI based editor to accomplish our task. But what if you are on putty or have only CLI(Command Line Interface) as an option to  edit your files. I…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question