Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: How to write apps for macOS/OSX in Perl! Part 1: Perl ASN Check (Revised)

by Anonymous Monk
on Jun 16, 2018 at 16:33 UTC ( #1216784=note: print w/replies, xml ) Need Help??

in reply to How to write apps for macOS/OSX in Perl!

(* Demonstration MacOS/OSX app in AppleScript and Perl *) (* Posted to by Anonymous Monk 6/16/2018 *) (* Node: How to write apps for macOS/OSX in Perl! Part 1: Perl ASN Che +ck (Revised) *) (* Changes: Refactored hard-coded variables and improved comments. *) set TITLE to "Perl ASN Check" set PROMPT to "Autonomous System Number: (Example: 714 is Apple Inc. 666 does not exist. Blank to exit.)" set ASQUERY to "" # EVENT LOOP repeat # CONFIG LOOP repeat try # LET USER SET A VARIABLE set ASN to text returned of (display dialog PROMPT with ti +tle TITLE default answer "" buttons {"Check"} default button 1) # VERIFY NUMERIC INPUT, OR ELSE: ERROR set ASN to ASN as number # require a number exit repeat # continue if ASN is numeric on error # not a number? # CRITICAL ALERTS HAVE A SCARY ICON display alert "Please enter an Autonomous System Number!" +as critical end try # END CONFIG end repeat if ASN is equal to 0 then return # exit if blank # ALL MACS HAVE PERL BABY! # SEND PERL STDOUT TO APPLESCRIPT VARIABLE set RES to do shell script " perl -MHTTP::Tiny -e ' my $r = HTTP::Tiny->new->get(qq~" & ASQUERY & ASN & "~); if (length $r->{content}) { $r->{content} =~ /[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+/ ? print q~ASN (" & ASN & ") Exists!~ : print q~ASN (" +& ASN & ") Not Found!~; } else { print q~Download failed! (" & ASQUERY & ")~ } ' " # PRINT PERL STDOUT TO DESKTOP ALERT VIA APPLESCRIPT VAR display alert RES end repeat
  • Comment on Re: How to write apps for macOS/OSX in Perl! Part 1: Perl ASN Check (Revised)
  • Download Code

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1216784]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2022-12-10 03:29 GMT
Find Nodes?
    Voting Booth?

    No recent polls found