Re: Использование AWK

[Alexey Pechnikov <pechnikov@sandy.ru>]

В сообщении от Wednesday 21 November 2007 09:00:13 Sergey Kharlamov 
написал(а):
> Interesting ports on 207.97.83.2:
> PORT     STATE    SERVICE
> 21/tcp   filtered ftp
> 3306/tcp filtered mysql
>
> Interesting ports on host-207-97-83-40.smartapps.net (207.97.83.40):
> PORT     STATE    SERVICE
> 21/tcp   filtered ftp
> 3306/tcp filtered mysql
>
> Interesting ports on 207.97.110.1:
> PORT     STATE    SERVICE
> 21/tcp   filtered ftp
> 3306/tcp filtered mysql
>
> Interesting ports on 207.97.110.135:
> PORT     STATE    SERVICE
> 21/tcp   filtered ftp
> 3306/tcp filtered mysql
>
> Interesting ports on 207.97.130.136:
> PORT     STATE    SERVICE
> 21/tcp   filtered ftp
> 3306/tcp filtered mysql

Если все это записать в файл data, обработать можно так:

#!/usr/bin/tclsh
proc Interesting {ports on args} {
  if { [llength $args] == 1 } {
    puts [lindex $args 0]
  }
  if { [llength $args] == 2 } {
    puts [lindex $args 1]
  }
}
proc unknown {args} {}
source data

$ ./data.tcl
207.97.83.2:
(207.97.83.40):
207.97.110.1:
207.97.110.135:
207.97.130.136:

Двоеточия и скобочки можете сами поудалять, тут и sed хватит :-)

P.S. Интересно, как с помощью awk вы будете обрабатывать строки
Interesting ports on 207.97.83.2:
Interesting ports on host-207-97-83-40.smartapps.net (207.97.83.40):
с разными позициями нужной записи в строке.