PERL Script Help

[dfnkt]

Looking for some help with a perl script.

I need to parse a .txt file I have of our active directory user "Display Names". The list contains approximately 6,000 names, trying to get a perl script that can read the list one by one and print the display name only if it contains a space.

for example:
user1
user2
John Doe
user3
Jane Doe

In the above example the script should print John Doe and Jane Doe while skipping the users that have no space.

The reasoning behind this is that we have a ton (probably 2,500 or more) "novelty/service" accounts that are not real users.

I tried defining all the users in the script such as @adusers = qw(insert users here) and then doing a $_ = /\s/; regex but to no avail.

 

[esun]

#!/usr/bin/perl

open(FH, "test.txt");

while (<FH>)
{
print if (/\S\s+\S/);
}

 

[dfnkt]

#!/usr/bin/perl

open(FH, "test.txt");

while (<FH>)
{
print if (/\S\s+\S/);
}

Winner! Gracias sir.

 

[Ken g6]

#!/usr/bin/perl

open(FH, "test.txt");

while (<FH>)
{
print if (/\S\s+\S/);
}

Too long!

Here's a one-liner version:

perl -ne "print if (/\S\s+\S/)" test.txt

 

[esun]

Bah, you want short use grep:

grep ' ' test.txt (non-robust)
grep '\w \w' test.txt (more robust)