On Tuesday 02 September 2008 09:15:59 Rob Dixon wrote:
> Dave Thacker wrote:
> > On Monday 01 September 2008 20:29:27 Rob Dixon wrote:
> >> $- = 0;
> >
> > Unfortunately, there's no change after inserting that assignment.
> > Thanks for the other info on the improving the preparation of the SQL
> > statement. I'll do that as soon as I get this resolved. Any other ways
> > to attack this?
>
> My apologies. That line alone would set the property on STDOUT, not the RF
> file handle as require. Add
>
> use IO::Handle
>
> at the top of your program, and then use
>
> open RF, '>', $roster_file or die "Can't open roster file $roster_file";
> RF->format_lines_left(0);
>
> and I think it should work.
Unfortunately, I seem to have hit another error.
[EMAIL PROTECTED]:~/efl/dev/efl$ ./roster-report.pl
Unrecognized character \xC2 at ./roster-report.pl line 56.
After staring at perldoc IO::Handle for some time, I made this attempt:
format RF =
@<<<<<<<<<<< @< @<< @< @< @< @< @<
$name, $age, $nat, $st, $tk, $ps, $sh, $agg
.
format RF_TOP =
Name Age Nat St Tk Ps Sh Ag KAb TAb PAb SAb Gam Sav Ktk Kps Sht Gls
Ass DP Inj Sus
-------------------------------------------------------------------------------------------
.
my $io = new IO::Handle;
$io->fdopen(fileno(RF),"w");
$io->format_lines_left(0);
while ( ($name, $age, $nat, $st, $tk, $ps, $sh, $agg ) =
$sth->fetchrow_array() ) {
write $io;
}
#close RF;
undef $io;
But I still get the "Unrecognized character" error at the $io-> format lines
left statement. I've definitely wandered off the edge of my map. Anyone
got a lifeline?
TIA Dave
>
> HTH,
>
> Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
