regex problem

amoura has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks,, I have this data in a file :

[\sbs]\v5\strans.cxx@@\main\den\7 
[\sbs]\v5\c\ns.cxx@@\main\den\7 
[\sbs]\v5\c\ans.h@@\main\den\3
[download]

I want to take off the prakits [] arount the sbs , I want my data to look like this

\sbs\v5\strans.cxx@@\main\den\7 
\sbs\v5\c\ns.cxx@@\main\den\7 
\sbs\v5\c\ans.h@@\main\den\3
[download]

thanks for help

Comment on regex problem Select or Download Code

Replies are listed 'Best First'.
Re: regex problem by Abigail-II (Bishop) on Jul 23, 2002 at 13:49 UTC
`perl -wi -ple 'tr[[]][]d' your_file` [download] Abigail	[reply] [d/l]
Re: regex problem by jmcnamara (Monsignor) on Jul 23, 2002 at 13:52 UTC
Have a look at `tr()` on the perlop manpage: `$str =~ tr/[]//d;` -- John.	[reply] [d/l]
Re: regex problem by dimmesdale (Friar) on Jul 23, 2002 at 13:52 UTC
If you know its the only brackets in the file, try: `$data =~ s/[\[\]]//g;` [download] Or, to be safe, if the brackets are always around sbs, try: `$data =~ s/\[(\\sbs)\](.*)/$1$2/;` [download]	[reply] [d/l] [select]
Re: regex problem by amphiplex (Monk) on Jul 23, 2002 at 13:52 UTC
This should do it: `while (<>) { s/^\[([^\]]+)\]/$1/; print; }` [download] ---- amphiplex	[reply] [d/l]
Re: Re: regex problem by amoura (Initiate) on Jul 23, 2002 at 14:04 UTC
thanks to you all	[reply]
Re: regex problem by adso (Initiate) on Jul 23, 2002 at 14:10 UTC
Assuming $x contains a line of your input file, `$x =~ s/[\[\]]//g;` should do the trick	[reply] [d/l]