There are a few ways to do it. It's hard without knowing the data. You could do:
$text =~ /Critical Alarm Present([^\.]+)./ ? print "$1\n" : print 0; ; # if they all end with a period $text =~ /Critical Alarm Present(.*)Recent Device Events./s ? print "$1\n" : print 0; # if Recent Device Events will always be there -- Matthew Kunzman Software Engineer Boise, ID USA Email: matt_...@rocketmail.com Website: http://www.mattkunzman.com LinkedIn: http://www.linkedin.com/pub/matthew-kunzman/b/5ba/94a ------------------------------------------------------------------------- >________________________________ > From: Natxo Asenjo <natxo.ase...@gmail.com> >To: beginners@perl.org >Sent: Tuesday, August 20, 2013 8:02 AM >Subject: string match question > > >hi, > >for a nagios (monitoring system) check I need to scrape a web site >(this is for a network device, a UPS, whatever). This particular >device only offers some functionality through a web interface. > >I get the content of the site using WWW::Mechanize after login in >(this is really simple using the submit_form method, by the way). > >Then I save the text of the website in a variable like this: > >my $text = $mech->text(); > >if ( $text =~ /critical alarm/i ) { > print "Bingo\n"; >} > >This works, if I unplug something I get the critical alarm, I replug >the stuff and the string does not match anymore. > >$text has this (very long line): > >APC | UPS Network Management Card 2Skip to Main ContentUPS Network >Management Card 2Smart-UPS/Matrix Application 1user | English | Log >Off | Help | HomeStatusUPSNetworkControlUPSSecuritySession >ManagementNetworkReset/Reboot ConfigurationPower SettingsShutdownUPS >GeneralSelf-Test ScheduleSchedulingPowerChute ClientsSync ControlThird >Party SupportEnergyWiseSecuritySession ManagementPing ResponseLocal >UsersManagementDefault SettingsRemote >UsersAuthenticationRADIUSFirewall ConfigurationActive PolicyActive >RulesCreate/Edit PolicyLoad PolicyTestNetworkTCP/IPIPv4 SettingsIPv6 >SettingsPort SpeedDNS ConfigurationTestWebAccessSSL >CertificateConsoleAccessSSH Host KeySNMPv1AccessAccess >ControlSNMPv3AccessUser ProfilesAccess ControlFTP >serverNotificationEvent ActionsBy EventBy >GroupE-mailServerRecipientsSSL CertificatesTestSNMP TrapsTrap >ReceiversTestRemote >MonitoringGeneralIdentificationDate/TimeModeDaylight SavingsUser >Config FileQuick LinksLogsSyslogServersSettingsTestTestsUPSNetworkLed >BlinkLogsEventsLogReverse >LookupSizeDataLogIntervalRotationSizeFirewallAboutUPSNetworkSupport >Smart-UPS 1400 RM: 1 Critical Alarm PresentA site wiring fault exists. >Recent Device Events DateTimeEventMore Events › Knowledge Base | >Schneider Electric Product Center | Schneider Electric Downloads © >2012, Schneider Electric. All rights reserved. > >I am only interested in the text '1 Critical Alarm PresentA site >wiring fault exists'; is it possible to match this is a simple way (in >fact, the text after 'Critical Alarm Present' may vary, it would be >awesome to be able to get that easily. Otherwise I am afraid I will >have to start parsing html with HTML::TableExtract > >-- >Groeten, >natxo > >-- >To unsubscribe, e-mail: beginners-unsubscr...@perl.org >For additional commands, e-mail: beginners-h...@perl.org >http://learn.perl.org/ > > > >
