Re^3: printing array using map

Firstly, using the readline operator with no filehandle defaults to opening and reading the files supplied as command-line arguments so you don't need to open the filehandle yourself. Secondly, you can use just one capture in the regex by using a negated character class, in other words capture zero or more non closing square brackets.

use strict;
use warnings;

print
   map {
           chomp;
           s{^\[([^\]]*)\]}{$1};
           qq{$_\n};
       }
   <>;
[download]

Running it gives

J:\johngg\Scripts\Monks>type spw683152.dat
w1
w2
w3
[t4 w4]
w5
w6

J:\johngg\Scripts\Monks>perl spw683152 spw683152.dat
w1
w2
w3
t4 w4
w5
w6
[download]

I hope this is useful.

Cheers,

JohnGG

Comment on Re^3: printing array using map Select or Download Code

Replies are listed 'Best First'.
Re^4: printing array using map by GrandFather (Saint) on Apr 27, 2008 at 21:54 UTC
Why chomp when you put the newline back anyway? If the OP doesn't need to explicitly check for balanced brackets then the regex simplifies too: `print map {s/\[\|\]//g; $_} <>;` [download] Or if your taste runs to for loops and you don't mind the occasional comma operator: `s/\[\|\]//g, print for <>;` [download] Perl is environmentally friendly - it saves trees	[reply] [d/l] [select]
Re^5: printing array using map by johngg (Canon) on Apr 27, 2008 at 22:01 UTC
Yep, no need to chomp, force of habit I guess :-( Cheers, JohnGG	[reply]
Re^4: printing array using map by FunkyMonk (Bishop) on Apr 27, 2008 at 22:22 UTC
My understanding is that the OP wants the "[t4 w4]" input reversed on output: "w4 t4" Update: Gah. Corrected brackets. Thanks kyle Unless I state otherwise, my code all runs with strict and warnings	[reply]
Re^5: printing array using map by johngg (Canon) on Apr 28, 2008 at 10:04 UTC
Oh dear! I must have been sleepwalking when I posted as I completely missed that requirement. Too late, I dimly remember the advice teachers tried to drum into us before exams, "Read the questions carefully" ;-/ Cheers, JohnGG	[reply]