Extracting IP addresses

General · July 30, 2004, 7:17am

I rarely use AppleScript, but every once in awhile I run into something that requires it, the first thing I do is look in the AppleScript book, when that fails I ask you guys. Thank you all.

I have a txt file (log analyzer output) that contains, among other things (mixed text and numbers) a few thousand IP addresses. I don’t care about the other stuff, all I want is a list of IP addresses. And so the question is, how would I got about doing this?

jonn8 · July 30, 2004, 8:14am

There are a lot of ways to do this. Your best bet is to use a regular expression parser (either an OSAX or through a shell script call to something such as Perl). That said, here’s an incredibly basic (and slow) vanilla AppleScript routine for extracting IPs from a block of text:

–Open this script in a new Script Editor window.

set t to “This is a some text with a bunch of IPs. 127.0.0.1 This is a some text with a bunch of IPs. 192.168.0.1 This is a some text with a bunch of IPs. 127.0.0.1 This is a some text with a bunch of IPs. 192.168.0.1
This is a some text with a bunch of IPs. 127.0.0.1 This is a some text with a bunch of IPs. 192.168.0.1 This is a some text with a bunch of IPs. 127.0.0.1 This is a some text with a bunch of IPs. 192.168.0.1 This is a some text with a bunch of IPs. 127.0.0.1 This is a some text with a bunch of IPs. 192.168.0.1”
set the_IPs to my [color=green]extract_IPs/color
–>{“127.0.0.1”, “192.168.0.1”, “127.0.0.1”, “127.0.0.1”, “192.168.0.1”, “127.0.0.1”, “192.168.0.1”, “127.0.0.1”, “192.168.0.1”}

on [color=green]extract_IPs/color
set digits_only to {“0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”}
tell (a reference to my text item delimiters)
set {old_delim, contents} to {contents, " "}
set {t, contents} to {t’s text items, old_delim}
end tell
set the_IPs to {}
repeat with this_item in t
set this_item to this_item’s contents
if (this_item’s character 1 is in digits_only) and (this_item’s character -1 is in digits_only) and (this_item contains “.”) then set end of the_IPs to this_item
end repeat
return the_IPs
end extract_IPs

Jon

[This script was automatically tagged for color coded syntax by Convert Script to Markup Code]

General · July 30, 2004, 9:05am

Excellent, thank you.