di mailer saya kok ngga karuan ya keliatannya? saya
rapiin dikit ya (IP diilangin):

#!/usr/bin/perl
 
undef $/ ;
 
( $f = <DATA> ) =~ s/\n+/ /sg;
@daftar = ($f =~ /([a-z]+(?:\.[a-z]+)+):[\s\n]+/g );
 
%daftar = map {
   $daftar[$_],
   
   substr($f, $start=index($f, $s="$daftar[$_]:")+length($s),
       ( $_ < @daftar ? index($f, "$daftar[$_+1]:") : length($f) )
        -$start
   )
} (0..@daftar-1) ;
                     
for( sort keys %daftar ){
  ( $daftar{$_} ) =~ s/\d+(\.\d+)+(:\d+)?// ;
  ( $daftar{$_} ) =~ s/^\s+// ;
  ( $daftar{$_} ) =~ s/\s+$// ;
  ( $daftar{$_} ) =~ s/\s\s+/\s/ ;

  print sprintf( "%-22s %s\n", $_, substr($daftar{$_},0,45) )
}
  
__DATA__
www.net.id: 202.159.34.252:80   * Solaris 2.x www.sat.net.id:
203.130.232.17:80       * Windoze 95/98/NT www.melsa.net.id:
202.138.224.254:80    * FreeBSD, NetBSD, OpenBSD  www.datamation.net.id:
error: unknown host www.datamation.net.id www.sisfotel.net.id:
...
...
         
                      
---------------------------------------------------------------------
intim.net.id           * Dead Host, Firewalled Port or Unassigned IP
www.access.net.id      *- Firewalled host/port or network congestion
www.ap.net.id          error: unknown host www.ap.net.id
www.apic.net.id        * FreeBSD, NetBSD, OpenBSD
www.asia.net.id        * Windoze 95/98/NT
www.bit.net.id         * SCO/Unix or SCO/Openserver
www.bumi.net.id        *- Unknown OS, pleez update /usr/local/etc/qu
www.cabi.net.id        * Linux 1.3.xx, 2.0.0 to 2.0.34
www.cbn.net.id         
www.centrin.net.id     * BSDi or IRIX
www.cline.net.id       * Solaris 2.x
www.commerce.net.id    * Solaris 2.x
www.datamation.net.id  error: unknown host www.datamation.net.id
www.dnet.net.id        * Standard: Solaris 2.x, Linux 2.1.???, MacOS
www.elga.net.id        * Cisco 11.2(10a), HP/3000 DTC, BayStack Swit
www.gapura.net.id      error: unknown host www.gapura.net.id
www.global.net.id      error: unknown host www.global.net.id
www.globalcomm.net.id  * Windoze 95/98/NT
www.ibm.net.id         * IBM AIX 4
www.idnic.net.id       * Solaris 2.x
www.idola.net.id       * Berkeley: usually Digital Unix, OSF/1 V3.0,
www.iix.net.id         error: unknown host www.iix.net.id
www.indo.net.id        * Linux 1.3.xx, 2.0.0 to 2.0.34
www.indosat.net.id     *- Firewalled host/port or network congestion
www.indosoft.net.id    * Dead Host, Firewalled Port or Unassigned IP
www.infoasia.net.id    * Solaris 2.x
www.insprint.net.id    * Solaris 2.x
www.inter.net.id       * Linux 1.3.xx, 2.0.0 to 2.0.34
www.iptek.net.id       * FreeBSD, NetBSD, OpenBSD
www.jasnita.net.id     * Cisco 11.2(10a), HP/3000 DTC, BayStack Swit
www.kadin.net.id       * Standard: Solaris 2.x, Linux 2.1.???, MacOS
www.koi.net.id         error: unknown host www.koi.net.id
www.link.net.id        *- Unknown OS, pleez update /usr/local/etc/qu
www.media.net.id       error: unknown host www.media.net.id
www.mega.net.id        * Windoze 95/98/NT
www.melsa.net.id       * FreeBSD, NetBSD, OpenBSD
www.metra.net.id       error: unknown host www.metra.net.id
www.mitra.net.id       * Berkeley: usually Digital Unix, OSF/1 V3.0,
www.multimedia.net.id  *- Unknown OS, pleez update /usr/local/etc/qu
www.net.id             * Solaris 2.x
www.netura.net.id      * Solaris 2.x
www.pacific.net.id     * Solaris 2.x
www.prima.net.id       * Solaris 2.x
www.sat.net.id         * Windoze 95/98/NT
www.sig.net.id         * Solaris 2.x
www.sisfotel.net.id    * Dead Host, Firewalled Port or Unassigned IP
www.sistelindo.net.id  * IBM AIX 4
www.spot.net.id        * Windoze 95/98/NT
www.star.net.id        error: unknown host www.star.net.id
www.telkom.net.id      * Standard: Solaris 2.x, Linux 2.1.???, MacOS
www.ub.net.id          * Linux 1.3.xx, 2.0.0 to 2.0.34
www.uninet.net.id      * Solaris 2.x
www.vision.net.id      *- Unknown OS, pleez update /usr/local/etc/qu
www.wasantara.net.id   *- Firewalled host/port or network congestion
www.wireless.net.id    *- Not Listen, try another port

  ** Jadual puasa Ramadhan @ http://www.indoglobal.com/puasa.html **
  Layanan Informasi Iklan Baris Internet * http://www.iklan-25.co.id

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail   : [EMAIL PROTECTED]
Netika BerInternet     : [EMAIL PROTECTED]
HI-Reliability low cost web hosting service - http://www.IndoGlobal.com 

Kirim email ke