- 207 名前：名称未設定 mailto:sage [2008/02/06(水) 04:57:50 ID:1bh4jcpH0]
- ありがとうございました。そういう方法しかないんですね。
いわれてみるとたしかにそんな気がします。
#!/usr/local/bin/perl4
print "Content-type: text/html¥n¥n";
print "<HTML>¥n";
print "<HEAD><TITLE>address</TITLE></HEAD>¥n";
print "<BODY>¥n";
print $ENV{'REMOTE_ADDR'};
print "¥n</BODY>¥n";
print "</HTML>¥n";
こんなCGIをつくっておいて
do shell script "curl -s '" & checkURL & "' | grep '¥¥([0-9]¥¥{1,3¥¥}¥¥.¥¥)¥¥{3¥¥}'"
で、拾うことにしました。
grepがエスケープだらけでわけわかんね
