in reply to Re^2: for loop
in thread for loop

Oops! 
while (<IN>) {
   s{(<tgroup cols="(.*?)">)}{
      "$1\n" .
      join('', map { "<colspec colnum='$_' colname='$_'/>\n" } 1..$2)
   }eg;
   print OUT;
}

[download]

Replies are listed 'Best First'.
Re^4: for loop
by texuser74 (Monk) on Aug 11, 2008 at 08:16 UTC
    ikegami, thanks for your help. now it works fine for me.
[reply]

In Section Seekers of Perl Wisdom