Search Results

Here you have a perl script:

use warnings;
use strict;

die qq[Usage: perl $0 <input-file>\n] unless @ARGV == 1;

my ($shift_port, $port3, @lines, @ports);

while ( <> ) {
chomp;

...

$ cat shiftport2.awk

BEGIN { C=1 }

# Save all lines for printing/substitution later
{ LINE[NR]=$0 }

/[{}]/ { # Count brackets to find code blocks
...

which port? port1, port2, or port3?

Hi naveen@,

I don't understand your perl script. It outputs nothing with that input file, and I think you didin't match the exact withespace.

Try next one:

$ cat infile
V {
port1 ...

$ cat shiftport.awk

/shift_port/ {
# Do some matching to get the value of shift_port
split($0, A, ";"); # Split on ; to get statement
N=split(A[1], A, "="); #...