in reply to Use of uninitialized value in regexp compilation
That snippet of code contains errors. The following snippet of code works as expected. Perhaps you could modify it to show your problem?
use strict; use warnings; my $str = ";123;1;Stand_method;'SMRxsxtxmx1234x1234x12x1231.'"; print "ok" if defined $str && $str =~ /;(\d{1,3});\d{1,3};Stand_method +;'SMRxsxtxmx(\d\d\d\d)x(\d\d\d\d)x(\d\d)x(\d\d\d\d).{0,10}'/;
Prints:
ok
|
|---|