in reply to regular expression
#!/usr/bin/perl use Data::Dumper; use strict; my $ln = "HOST_RESOURCE_MONITOR rtbd:service=ResourceMonitorService,na +me=ResourceMonitor,type=HOST true Started 1 day, 12 hours, 2 minutes, + 30 seconds and 476 milliseconds"; if ($ln =~ m/^HOST.*?seconds$/ ) { print "ok"; }
|
|---|