Thank you for the advice.
> > open( STATES, "sort $hotline |" )
> > or cust_die( "Cannot open files to get states
> > ($hotline,$newtofile,$newmover): $!\n" );
>
> What does the $hotline variable contain? Is there any reason
> to use an
> external sort instead of perl's built-in sort?
I actually have three files where now:
"cat $hotline $newtofile $newmover | sed 's/\|.*//' | sort | uniq |"
>
>
> > while( <STATES> ) {
> > # Recode missing
> > # if( m/^$/ ) { $_ = "(blank)"; }
> > push @states, $_;
>
> push @states, ($_ || '(blank)');
>
>
> > }
> > close( STATES );
>
> When you close a pipe you should verify that it closed.
>
> close STATES or cust_die( "Cannot close pipe from '$hotline' $!" );
>
>
Never gets an error, even after I add this, just the "broken pipe". It runs
fine on the command line.
tia.
jess
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
