Shell Programming and Scripting

 
# ypcat -k netgroup.byuser| grep steven
steven.* users_main,users_sysadmin,users_global,users_backup_team

 
users_main
users_sysadmin
users_global
users_backup_team

 
# ypcat -k netgroup.byuser| grep steven
steven.* users_main,users_sysadmin,users_global,users_backup_team

 echo 'steven.* users_main,users_sysadmin,users_global,users_backup_team' | \
perl -ne 'print join "\n", grep { /^users/ } split /[ ,]/;'

my @array = grep { /^users/ } split /[ ,]/, $line;

#!/bin/perl
use strict;
my $var = `ypcat -k netgroup.byuser| grep steven`
my @array = grep { /^users/ } split /[ ,]/, $var;

foreach (@array) {
  print "$_\n";
}