Hi

> if (($DeviceType eq "Switch") || ($DeviceType eq "Router") ||
> ($DeviceType eq "Hub") || ($DeviceType eq "Access point"))
> 
> 
> what i would like to do is check each device type with where the first
> letter is uppercase or lowercase

this should help:

if( $DeviceType =~ m/^([Ss]witch|[Rr]outer|[Hh]ub|[Aa]ccess point)$/) { ...

Martin

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to