perl's regular expressions

[gammaman1]

using perl, how would i get it to erase everything up to and including the first bracket [ ?

I have this, but it only erases up to the [. I need the bracket removed as well.

for($i=0;$i<@mylist;$i++)
{
@mylist[$i] =~ s/[^]]*//;
}

any ideas?
thanks,
gammaman

 

[TrojanWarBlade]

Add a literal bracket
\[
or in the case of your code
\]


Trojan.

 

[gammaman1]

i tried adding the \], but it's still displaying the ]. for example:
input: [testtest] test test test [testtest]
output: ] test test test [testtest]

for($i=0;$i<@mylist;$i++)
{
@mylist[$i] =~ s/[^\]]*//;
}

did i put it in the right spot?

thanks,
gammaman

 

[ishnid]

Nope - you need `any number of non-brackets followed by a bracket'

@mylist[$i] =~ s/[^]]*\]//;

I *think* that'll do it - it's late.

 

[duncdude]

[b]#!/usr/bin/perl[/b]

$_ = 'this string [ has many [ brackets in it with a ] few ] closing ] also.';

[b][red]s/[^[]+\[//;[/red][/b]

print;

outputs:-
has many [ brackets in it with a ] few ] closing ] also.

... notice this only removes up to, and including, the first opening square bracket


Kind Regards
Duncan