Have you tested the subroutine without any data
assignments, just:
open(CXIBIO,"+<$ARGV[0]") or die "Could NOT open $ARGV[0]\n";
print CXIBIO "$ARGV[1]\015";
EP0000: while (1)
{
$REC=<CXIBIO>;
if ( $REC =~ m/[EMAIL PROTECTED]/) { next EP0000; }
if ( $REC =~ m/^0999/) { last EP0000; }
}
close(CXIBIO);
If this is slow, your problem may be elsewhere, not in the Perl code.
Ted
p.s. you don't really need the EP0000 label, but I left it in in case
there's more next/last usage in inner loops inside the main while(1)
loop.
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
