Not able to extract regex matches, return "1" instead of string

I am seeing strange problem..can someplease please help. I have a log template that looks like this

        开发者_StackOverflow中文版    CPU load:    0
            Memory load: 7
            User load:   0
            Interface Information:
              eth0: Up
              eth1: Up
            Processes Information:

Now, I login to my device and get the logs like my @output = $ssh->exec("show details"); The output looks similar, as show below but different values for parameters

            CPU load:    21
            Memory load: 27
            User load:   21
            Interface Information:
              eth0: Down
              eth1: Up
            Processes Information:

First I am opening the template file, split it into line by line and when I try to compate it with "show details" output, for the matches, I am getting value 1 as result and not the matched string. Can someone please help.

Code:

my @output = $ssh->exec("show details");
open (FH, "templates/SHOW.txt") || die "Could not open File: $!\n";
@file_array = <FH>;
@TemplateArray = split(/\n/,@file_array);
@matches = split(/\n/,@output);
foreach $keys (@matches) {
   foreach (@TemplateArray) {
     $keys =~ m/($_)/;
     unshift (@result_array, $1);
   }
}
print "\n @result_array\n";

}

I get "1" as result but no string.

---

When you use split on an array, the array will be in scalar context, and will only return the number of elements in it. In other words:

@TemplateArray = split(/\n/,@file_array);
@matches = split(/\n/,@output);

is equal to:

@TemplateArray = $#file_array;
@matches       = $#output;

Which is why you get "1" as a result.

Also, if you are not already doing it:

use strict;
use warnings;

---

Adding to TLP's answer, the solution is to change

@matches = split(/\n/,@output);

to

@matches = map { split(/\n/, $_) } @output;

so split() operates on strings from @output.

---

split's expects a string for its second argument, so

@TemplateArray = split(/\n/, @file_array);

ends up being the same as

@TemplateArray = split(/\n/, scalar(@file_array));

Keep in mind that scalar(@file_array) returns the number of elements in the array.

---

@file_array = <FH>;

will populate @file_array as follows:

@file_array = (
    "line1\n",
    "line2\n",
    "line3\n",
);

In other words, it's already split into lines. If you're trying to remove the trailing newlines, you want to replace

@TemplateArray = split(/\n/,@file_array);

with

chomp( my @TemplateArray = @file_array );

---

I can't help you fix

@matches = split(/\n/,@output);

because I don't know what $ssh contains, and thus I don't know what @output contains.

---

Please use

use strict;
use warnings;