fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3.  
  4. $ua = "User-Agent:Mozilla/5.0 (iPhone; CPU iPhone OS 8_0 like Mac OS X) AppleWebKit/600.1.4 (KHTML, like Gecko) Version/8.0 Mobile/12A365 Safari/600.1.4 Name";
  5.  
  6. if ($ua =~ m/.*\(iPhone;.*OS\s(\d.*?\d)\s.*/) {
  7. 	print "yes";
  8. } else {
  9. 	print "no";
  10. }
Success #stdin #stdout 0s 17496KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
yes
https://ideone.com/EabJSn
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!