in reply to Re^7: Join multiple lines in a string based on regex.
in thread Join multiple lines in a string based on regex.

-> Actual Code : 

use strict;
use warnings;
my %unitMap;
my $skipNext;
my $cmd  = "hpacucli ctrl slot=0 pd all show";
open my $fd, "$cmd|";
while (my $row = <$fd>) {
        $row =~ /^$/ and next;
        $row =~  s/[,|)|(]//g;
        chomp $row;
        next if  $row =~ /^Smart/g;
        $row =~ s/^\s+//;
        if( $row =~ /^unassigned/ ){
        $skipNext = 2;
        next;
        print "$row\n";
}
       close($fd);

[download]
Actual Data : This includes leading white spaces . I have exxactly pasted the Command O/P here. 
 data
Smart Array P410i in Slot 0 (Embedded)

   array A

      physicaldrive 2C:1:1 (port 2C:box 1:bay 1, SAS, 1 TB, OK)
      physicaldrive 2C:1:2 (port 2C:box 1:bay 2, SAS, 1 TB, OK)

   array B

      physicaldrive 2C:1:3 (port 2C:box 1:bay 3, SAS, 1 TB, OK)
      physicaldrive 2C:1:4 (port 2C:box 1:bay 4, SAS, 1 TB, OK)

   array C

      physicaldrive 3C:1:5 (port 3C:box 1:bay 5, SAS, 1 TB, OK)
      physicaldrive 3C:1:6 (port 3C:box 1:bay 6, SAS, 1 TB, OK)

   array D

      physicaldrive 3C:1:7 (port 3C:box 1:bay 7, SAS, 1 TB, OK)
      physicaldrive 3C:1:8 (port 3C:box 1:bay 8, SAS, 1 TB, OK)

   array E

      physicaldrive 4C:2:1 (port 4C:box 2:bay 1, SAS, 1 TB, OK)
      physicaldrive 4C:2:2 (port 4C:box 2:bay 2, SAS, 1 TB, OK)

   array F

      physicaldrive 4C:2:3 (port 4C:box 2:bay 3, SAS, 1 TB, OK)
      physicaldrive 4C:2:4 (port 4C:box 2:bay 4, SAS, 1 TB, OK)

   array G

      physicaldrive 5C:2:5 (port 5C:box 2:bay 5, SAS, 1 TB, OK)
      physicaldrive 5C:2:6 (port 5C:box 2:bay 6, SAS, 1 TB, OK)

   array H

      physicaldrive 5C:2:7 (port 5C:box 2:bay 7, SAS, 1 TB, OK)
      physicaldrive 5C:2:8 (port 5C:box 2:bay 8, SAS, 1 TB, OK)

   array I

      physicaldrive 6C:3:1 (port 6C:box 3:bay 1, SAS, 1 TB, OK)
      physicaldrive 6C:3:2 (port 6C:box 3:bay 2, SAS, 1 TB, OK)

   array J

      physicaldrive 6C:3:3 (port 6C:box 3:bay 3, SAS, 1 TB, OK)
      physicaldrive 6C:3:4 (port 6C:box 3:bay 4, SAS, 1 TB, OK)

   array K

      physicaldrive 7C:3:5 (port 7C:box 3:bay 5, SAS, 1 TB, OK)
      physicaldrive 7C:3:6 (port 7C:box 3:bay 6, SAS, 1 TB, OK)

   unassigned

      physicaldrive 7C:3:7 (port 7C:box 3:bay 7, SAS, 1 TB, OK)
      physicaldrive 7C:3:8 (port 7C:box 3:bay 8, SAS, 1 TB, OK)

[download]
--> Actual O/P 
 data
array A
physicaldrive 2C:1:1 port 2C:box 1:bay 1 SAS 1 TB OK
physicaldrive 2C:1:2 port 2C:box 1:bay 2 SAS 1 TB OK
array B
physicaldrive 2C:1:3 port 2C:box 1:bay 3 SAS 1 TB OK
physicaldrive 2C:1:4 port 2C:box 1:bay 4 SAS 1 TB OK
array C
physicaldrive 3C:1:5 port 3C:box 1:bay 5 SAS 1 TB OK
physicaldrive 3C:1:6 port 3C:box 1:bay 6 SAS 1 TB OK
array D
physicaldrive 3C:1:7 port 3C:box 1:bay 7 SAS 1 TB OK
physicaldrive 3C:1:8 port 3C:box 1:bay 8 SAS 1 TB OK
array E
physicaldrive 4C:2:1 port 4C:box 2:bay 1 SAS 1 TB OK
physicaldrive 4C:2:2 port 4C:box 2:bay 2 SAS 1 TB OK
array F
physicaldrive 4C:2:3 port 4C:box 2:bay 3 SAS 1 TB OK
physicaldrive 4C:2:4 port 4C:box 2:bay 4 SAS 1 TB OK
array G
physicaldrive 5C:2:5 port 5C:box 2:bay 5 SAS 1 TB OK
physicaldrive 5C:2:6 port 5C:box 2:bay 6 SAS 1 TB OK
array H
physicaldrive 5C:2:7 port 5C:box 2:bay 7 SAS 1 TB OK
physicaldrive 5C:2:8 port 5C:box 2:bay 8 SAS 1 TB OK
array I
physicaldrive 6C:3:1 port 6C:box 3:bay 1 SAS 1 TB OK
physicaldrive 6C:3:2 port 6C:box 3:bay 2 SAS 1 TB OK
array J
physicaldrive 6C:3:3 port 6C:box 3:bay 3 SAS 1 TB OK
physicaldrive 6C:3:4 port 6C:box 3:bay 4 SAS 1 TB OK
array K
physicaldrive 7C:3:5 port 7C:box 3:bay 5 SAS 1 TB OK
physicaldrive 7C:3:6 port 7C:box 3:bay 6 SAS 1 TB OK

[download]
--> The same command hpacucli ctrl slot=0 pd all show was ran on the command line and I have assigned the command to $cmd variable in the script . No error messages . --> O/P expected to produce . 
 data
array A physicaldrive 2C:1:1 port 2C:box 1:bay 1 SAS 1 TB OK physicald
+rive 2C:1:2 port 2C:box 1:bay 2 SAS 1 TB OK
array B physicaldrive 2C:1:3 port 2C:box 1:bay 3 SAS 1 TB OK physicald
+rive 2C:1:4 port 2C:box 1:bay 4 SAS 1 TB OK
array C physicaldrive 3C:1:5 port 3C:box 1:bay 5 SAS 1 TB OK physicald
+rive 3C:1:6 port 3C:box 1:bay 6 SAS 1 TB OK
array D physicaldrive 3C:1:7 port 3C:box 1:bay 7 SAS 1 TB OK physicald
+rive 3C:1:8 port 3C:box 1:bay 8 SAS 1 TB OK
array E physicaldrive 4C:2:1 port 4C:box 2:bay 1 SAS 1 TB OK physicald
+rive 4C:2:2 port 4C:box 2:bay 2 SAS 1 TB OK
array F physicaldrive 4C:2:3 port 4C:box 2:bay 3 SAS 1 TB OK physicald
+rive 4C:2:4 port 4C:box 2:bay 4 SAS 1 TB OK
array G physicaldrive 5C:2:5 port 5C:box 2:bay 5 SAS 1 TB OK physicald
+rive 5C:2:6 port 5C:box 2:bay 6 SAS 1 TB OK
array H physicaldrive 5C:2:7 port 5C:box 2:bay 7 SAS 1 TB OK physicald
+rive 5C:2:8 port 5C:box 2:bay 8 SAS 1 TB OK
array I physicaldrive 6C:3:1 port 6C:box 3:bay 1 SAS 1 TB OK physicald
+rive 6C:3:2 port 6C:box 3:bay 2 SAS 1 TB OK
array J physicaldrive 6C:3:3 port 6C:box 3:bay 3 SAS 1 TB OK physicald
+rive 6C:3:4 port 6C:box 3:bay 4 SAS 1 TB OK
array K physicaldrive 7C:3:5 port 7C:box 3:bay 5 SAS 1 TB OK physicald
+rive 7C:3:6 port 7C:box 3:bay 6 SAS 1 TB OK

[download]

Replies are listed 'Best First'.
Re^9: Join multiple lines in a string based on regex.
by NetWallah (Canon) on Dec 18, 2014 at 07:37 UTC
    Fixed by deleting leading white space, in my code: 
    use strict;
use warnings;

my $row ="";
my $inarray=0;
while (<DATA>) {
    chomp;
    s/^\s+//;  # <-- New line added <----
    if (/^array|^unassigned/){
        print "$row\n" if $inarray;
        $row=$_;
        $inarray=m/^array/;
        next;
    }
    next unless $inarray;
    $row .= " $_";
}
print "$row\n" if $inarray;
__DATA__

    [download]

            "You're only given one little spark of madness. You mustn't lose it."         - Robin Williams

[reply]
[d/l]
      Thanks that works , But I can't use the value of $row variable for future purpose even within the while loop . I tried few things , But it didn't work .
[reply]
        "didn't work" is a very poor problem description.

        If you would like help with this, please explain what you tried, what you were expecting, and what you got.

                "You're only given one little spark of madness. You mustn't lose it."         - Robin Williams

[reply]

In Section Seekers of Perl Wisdom