Re^2: splice an array

thanks guys! I was/am trying this too:

LINE: while ( defined( $_ = <$Rlog> )) {

    s/^Alert Level\s0*(?:[3-9]|\d{2,})/(?!.*Log Entry)/DEREK!!!!\n$&/s
+;
}
continue {

    print $Plog $_;
}
[download]

but keep getting this error:

Bareword found where operator expected at foo line 12, near "s/^Alert 
+Level\s0*(?:[3-9]|\d{2,})/(?!.*Log Entry)/DEREK!!!!"
Backslash found where operator expected at foo line 12, near "DEREK!!!
+!\"
syntax error at foo line 12, near "s/^Alert Level\s0*(?:[3-9]|\d{2,})/
+(?!.*Log Entry)/DEREK!!!!!"
Execution of foo aborted due to compilation errors.
[download]

ORDER OF print new code where arrows are.

Log Entry 10: 06 Feb 2011 10:36:26
--->
Alert Level 2: Informational
--->
Keyword: Type-02 127002 1208322
Soft Reset
Logged by: Baseboard Management Controller;
Sensor: System Event
0x204D4E79AA0200B0 FFFF027000120300
[download]

Comment on Re^2: splice an array Select or Download Code

Replies are listed 'Best First'.
Re^3: splice an array by toolic (Bishop) on May 04, 2011 at 13:01 UTC
You have one too many slashes in your s/// (you have 4, but you can only use 3). Either backslash one of the 2 in the middle, or choose different delimiters: `s/^Alert Level\s0(?:[3-9]\|\d{2,})/(?!.Log Entry)/DEREK!!!!\n$&/s; ^ ^ ^ ^ \| \| \| \| \| \| \| \|` [download]	[reply] [d/l]
Re^3: splice an array (alternate delimiters) by Anonymous Monk on May 04, 2011 at 13:24 UTC
I second toolics suggestion of using alternate delimiters. These are all equivalent `perl -MO=Deparse -e " s///g " perl -MO=Deparse -e " s\\\g " perl -MO=Deparse -e " s[][]g " perl -MO=Deparse -e " s()()g " perl -MO=Deparse -e " s{}{}g " perl -MO=Deparse -e " s!!!g " perl -MO=Deparse -e " s###g " perl -MO=Deparse -e " s vvvg " perl -MO=Deparse -e " s ___g " perl -MO=Deparse -e " s {}//g " perl -MO=Deparse -e " s {}\\g " perl -MO=Deparse -e " s {}vvg " perl -MO=Deparse -e " s {}()g " perl -MO=Deparse -e " s {}[]g " perl -MO=Deparse -e " s {}<>g " perl -MO=Deparse -e " s<><>g "` [download] They all output `s///g; -e syntax OK` [download] But don't get fooled by the balancing act, it doesn't work for other chars like « and » `$ perl -MO=Deparse -e " s«»«»g " Substitution replacement not terminated at -e line 1. $ perl -MO=Deparse -e " s«««g " s///g; -e syntax OK` [download] s'''g is special in that it doesn't interpolate	[reply] [d/l] [select]
Re^4: splice an array (alternate delimiters) by dbs (Sexton) on May 04, 2011 at 17:31 UTC
I am not getting this solution guys. I appreciate the help, but had a hard time understanding Rolfs code and played with it for a while with little success. With that being said, my temp solution, I understand is the way I would like to follow. while ( defined( $_ = <$Rlog> )) { s/^Alert Level\s0*(?:[3-9]\|\d{2,})/DEREK_SMITH\n$&/s; } continue { print $_; } ###-- this works, but only half way. __OUT__ ========================================== Log Entry 13: 20 Feb 2011 08:33:42 Alert Level 2: Informational Keyword: Type-02 127002 1208322 Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D60D1E60200E0 FFFF027000120300 ========================================== Log Entry 12: 20 Feb 2011 07:14:27 DEREK_SMITH Alert Level 4: TEST ALERT!!!!!!!!!!!!!!!! Keyword: Type-02 127002 1208322 Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D60BF530200D0 FFFF027000120300 ========================================== Log Entry 11: 13 Feb 2011 07:24:32 DEREK_SMITH Alert Level 5: TEST ALERT!!!!!!!!!!!!!!!!!!!! Keyword: Type-02 127002 1208322 Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D5787300200C0 FFFF027000120300 __DATA__NEEDED__ ========================================== Log Entry 13: 20 Feb 2011 08:33:42 Alert Level 2: Informational Keyword: Type-02 127002 1208322 Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D60D1E60200E0 FFFF027000120300 ========================================== Log Entry 12: 20 Feb 2011 07:14:27 DEREK Alert Level 4: TEST ALERT!!!!!!!!!!!!!!!! SMITH Keyword: Type-02 127002 1208322 Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D60BF530200D0 FFFF027000120300 ========================================== Log Entry 11: 13 Feb 2011 07:24:32 DEREK_ Alert Level 5: TEST ALERT!!!!!!!!!!!!!!!!!!!! Keyword: Type-02 127002 1208322 SMITH Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D5787300200C0 FFFF027000120300 [download] either SMITH after 'Keyword' or after 'Alert' either one is fine.	[reply] [d/l]
Re^4: splice an array (alternate delimiters) by dbs (Sexton) on May 04, 2011 at 17:48 UTC
I got this working better that halfway, and its usable. Any other help is welcome! `while ( defined( $_ = <$Rlog> )) { s/^Alert Level\s0*(?:[3-9]\|\d{2,})/DEREK\n$&\nSMITH\n/s; } continue { print $_; } __OUT__ ========================================== Log Entry 11: 13 Feb 2011 07:24:32 DEREK Alert Level 5 SMITH : TEST ALERT!!!!!!!!!!!!!!!!!!!! Keyword: Type-02 127002 1208322 Soft Reset Logged by: Baseboard Management Controller; Sensor: System Event 0x204D5787300200C0 FFFF027000120300 ==========================================` [download]	[reply] [d/l]
Re^3: splice an array by Anonymous Monk on May 04, 2011 at 12:57 UTC
`$ perl -e " s/// " $ perl -e " s//// " syntax error at -e line 1, at EOF Execution of -e aborted due to compilation errors. $ perl -e " s///blah;/ " Bareword found where operator expected at -e line 1, near "s///blah" syntax error at -e line 1, near "s///blah" Search pattern not terminated at -e line 1.` [download]	[reply] [d/l]


Think about Loose Coupling
	PerlMonks