Re: for loop

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

Comment on Re: for loop Download Code

Replies are listed 'Best First'.
Re^2: for loop by texuser74 (Monk) on Aug 11, 2008 at 07:39 UTC
hi, thanks for your time and help but the code `while (<IN>) { s{(<tgroup cols="(.*?)">)}{ "$1\n" . (map { "<colspec colnum='$_' colname='$_'/>\n" } 1..$2) }eg; print OUT; }` [download] just prints `<table><tgroup cols="3">3</table>`	[reply] [d/l] [select]
Re^3: for loop by ikegami (Patriarch) on Aug 11, 2008 at 08:09 UTC
Oops! `while (<IN>) { s{(<tgroup cols="(.*?)">)}{ "$1\n" . join('', map { "<colspec colnum='$_' colname='$_'/>\n" } 1..$2) }eg; print OUT; }` [download]	[reply] [d/l]
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]