awkについて語るスレ $2

[17 デフォルトの名無しさん 2007/03/04(日) 00:24:42]

http://www.gnu.org/software/gawk/manual/gawkinet/gawkinet.html#Web-page
から、簡単な例。

BEGIN {
RS = ORS = "\r\n"
HttpService = "/inet/tcp/0/www.yahoo.com/80"
print "GET http://www.yahoo.com"; |& HttpService
while ((HttpService |& getline) > 0)
print $0
close(HttpService)
}