Shell Programming and Scripting

#!/ms/dist/perl5/bin/perl5.8
#!/usr/bin/perl

#@filename = 'abc.log';
@VS;


open FILE, "< abc.log";

while ( $line= <FILE>) {
   #chomp ($line);
#foreach  $line (@filename)

#      if ($line =~ /virtualServer id=\"(.*?)\"/) {
       if ($line =~ /virtualServer id=\"(.*?)\"/){
        # print "$1 id is registered \n";
         push (@VS ,$1);
        }
      if ( $line =~ "socket-([[:alnum:]]*).*\]" && $line !~ "wup"){
       print $1;


}}
close FILE;

if ( $line =~ /socket-([[:alnum:]]*).*\]/ && $line !~ /wup/)
    {
        print ("$1\n");
    }

awk -F"[=\"]" '/virtualServer/ {print "id="$2,$3}OFS=""' <file

while ( $line= <FILE>) {
    chomp ($line);

    if ($line =~ /virtualServer id=\"(.*?)\"/) {
       push (@VS ,$1);
    }
    if ( $line =~ "socket-([[:alnum:]]*).*\]" && $line !~ "wup"){
       push (@VS, $1);
    }

}
close FILE;
print "@VS";