in reply to regex remove blank/whitespace until first occurrence of specific character "["

I have a string that contains timestamps that I want to remove. As a second step I want to remove ...

I don't understand how the array enters into it, but taking "remove" to mean "substitute with an empty string", i.e., "delete", here's an approach: 

c:\@Work\Perl>perl -wMstrict -le
"my $s = qq{[20150302 22:01:05] [1, 2, 3, 4] String0\n [20150302 22:01
+:05] [1, 2, 3, 4] String1\n};
 print qq{<<<$s>>>};
 ;;
 my $t_stamp   = qr{ \d{8} [ ] \d\d (?: :\d\d){2} }xms;
 my $timestamp = qr{ \[ $t_stamp \] }xms;
 ;;
 $s =~ s{ $timestamp \s* }{}xmsg;
 print qq{<<<$s>>>};
"
<<<[20150302 22:01:05] [1, 2, 3, 4] String0
 [20150302 22:01:05] [1, 2, 3, 4] String1
>>>
<<<[1, 2, 3, 4] String0
 [1, 2, 3, 4] String1
>>>

[download]

Give a man a fish:  <%-(-(-(-<

Replies are listed 'Best First'.
Re^2: regex remove blank/whitespace until first occurrence of specific character "["
by thanos1983 (Parson) on Mar 03, 2015 at 09:16 UTC

    Hello AnomalousMonk,

    Thank you for your time and effort, I have not this syntax before, interesting. The reason that I needed as an array is that I want to have the output splitted so I can apply it at different locations. But again, thank you for your time and effort it is always nice to see new ideas and approaches you never know where I might apply them.

    Seeking for Perl wisdom...on the process of learning...not there...yet!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom