# Put Perl in "paragraph mode" $/ = '';
# For each record ...
I love this list! Paragraph mode REALLY cleans things up. Although it worked, this makes my first attempt look really amateurish. Be sure to put the definition of $/ inside a code block { } if you are using it inside a program or it will cause difficulties in other areas since it is defined in main and therefore used everywhere.
#! /usr/bin/perl -w use strict;
# use this like ./p2 < in.txt > out.txt # or cat file | ./p2 > out.txt
{ local $/ = ''; # turn on paragraph mode while (<>) { if (/localhost/) { $_ =~ s//*//; $_ =~ s/*///; } print "$_\n"; } }
__________________________________________________ Correo Yahoo! Espacio para todos tus mensajes, antivirus y antispam ¡gratis! Regístrate ya - http://correo.yahoo.com.mx/