my $raw = path( sample.vcd)->slurp_raw; my $re = qr{ \Q$dumpoff $end\E [\r\n ]+ (\#[\d]+) [\r\n ]+ \Q$dumpon $end\E [\r\n ]+ (.*?) \#[\d]+ }sx; while( $raw =~ m/$re/g ){ my( $id, $tidy ) = ( $1, $2 ); say $i; say $2; }
has following error, please help!!
Global symbol "$dumpoff" requires explicit package name at ./vcd2net.p +l line 8. Global symbol "$end" requires explicit package name at ./vcd2net.pl li +ne 8. Global symbol "$dumpon" requires explicit package name at ./vcd2net.pl + line 8. Global symbol "$end" requires explicit package name at ./vcd2net.pl li +ne 8. Global symbol "$i" requires explicit package name at ./vcd2net.pl line + 21. Bareword "sample" not allowed while "strict subs" in use at ./vcd2net. +pl line 7. Bareword "vcd" not allowed while "strict subs" in use at ./vcd2net.pl +line 7. Execution of ./vcd2net.pl aborted due to compilation errors (#1) (F) You've said "use strict" or "use strict vars", which indicates + that all variables must either be lexically scoped (using "my" or +"state"), declared beforehand using "our", or explicitly qualified to say which package the global variable is in (using "::").
In reply to Re^2: extract text from multi-line context
by herman4016
in thread extract text from multi-line context
by herman4016
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |