Dave Thacker wrote:
>
> I'm reading from a database and attempting to write out to several different
> files using a defined format. I'm using this tutorial on formats as a
> reference. http://www.webreference.com/programming/perl/format/2.html
>
> When I run the script below, I get the error:
> Can't find string terminator "" anywhere before EOF at ./roster-report.pl
> line
> 54.
>
> I *think* I've get everything set up properly, and I'm not sure what I'm
> missing. The script is below. Please give me a pointer to the error.
>
> TIA Dave
>
> #!/usr/bin/perl
>
> use strict;
>
> use DBI;
> use Getopt::Long;
> our ($opt_league, $opt_div);
>
>
> &GetOptions("league=s", "div=s");
>
> print "Working on the $opt_league league, division $opt_div\n";
>
> #connect to database
> my $dbh = DBI->connect("DBI:mysql:database=efl",
> 'user',
> 'password',
> ) or die "Can't connect to database";
>
> #set the root directory of the installation
> my $rootdir= "/home/dthacker/efl/dev/";
>
>
> #open teams.dir for reading
> open( CLUB, "<$rootdir/teams.dir" ) or die "Can't open teams.dir : $!";
> while (<CLUB>) {
> print $_;
> my $roster_file=$_;
> my $club = substr($_, 0,3);
> my $strsql = <<EOT;
>
> select name, age, nat, st, tk, ps, sh, agg, kab, tab, pab, sab
> from players where players.club="$club"
> EOT
>
> my $sth = $dbh->prepare($strsql);
>
>
> $sth->execute() or die "Couldn't execute statement: $DBI::errstr;
> stopped";
>
> my ($name, $age, $nat, $st, $tk, $ps, $sh, $agg, $kab, $tab, $pab, $sab);
> FORMAT RF =
> <<<<<<<<<<<<<< << <<< << << << << << << <<< <<< <<< <<<
> $name, $age, $nat, $st, $tk, $ps, $sh, $agg, $kab, $tab, $pab, $sab
> .
>
> open (RF, ">$roster_file");
>
> while ( my ($name, $age, $nat, $st, $tk, $ps, $sh, $agg, $kab, $tab,
> $pab,
> $sab) = $sth->fetchrow_array() ) {
> write RF;
> }
>
> close RF;
>
> }
> $dbh->disconnect();
> close CLUB;
The language word 'format' should be in lower case, and each of your fields
should start with an at sign. like this:
format RF =
@<<<<<<<<<<<<< @< @<< @< @< @< @< @< @< @<< @<< @<< @<<
$name, $age, $nat, $st, $tk, $ps, $sh, $agg, $kab, $tab, $pab, $sab
.
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
