perl code to search and replace a pattern

Question

output        [15:0] pin;                
output         [1:0] en;                
input          [6:0] dddr;            
input          [6:0] dbg;

replace this with ( I am counting the bus)

16 : pin : output;                         
2 : en : output;                
7 : dddr : input;            
7 : dbg :input;

I tried this code after opening the file and stored it in var. but i am not able to filter it like above

if ($var =~ /(\w+)\[(\d+)\:/) {  
    print "word=$1 number=$2\n";
}

//i am trying to add : in middle of the columns also

Answer 1

You are missing the whitespace after the word characters in your pattern.

(w+ )       [(d+):
      VVVVVVVV
output        [15:0] pin;                

This is easily fixed. Add it into the pattern in between, like so:

use strict;
use warnings;
use feature 'say';

while (my $line = <DATA>) {
    if ($line =~ /(w+)s+[(d+):/) {
        say "word=$1 number=$2";
    }
}

__DATA__
output        [15:0] pin;
output         [1:0] en;
input          [6:0] dddr;
input          [6:0] dbg;

This produces:

word=output number=15
word=output number=1
word=input number=6
word=input number=6

To get to your desired output, you'll have to refine the pattern and probably do some incrementing too.

Answer 2

while (<>) { 
    say $2+1, ' : ', $3, ' : ', $1, ';'  if /(S+)s+[(d):d]s+(w+)/
}