Gidday all,
Im having trouble reading and writing to this file, It's probably just
something silly.
Heres my code. I have set the permissions on the file to 775.
<code>
my ($filename);
$filename =
"/home/bdweb8083m/johnstonefamily.com/cgi-bin/hp_data/participants.txt";
if( -e $filename ){
print "Yeah - File exists<br>";
}
my @participants;
open IN, "<$filename" || die( "Cannot Open: $!" );
while( my $line = <IN> ){
chomp $line;
push( @participants, $line );
}
close IN;
print "Num elements array participants = ".scalar( @participants )."<br>";
my $outString;
$outString = "";
$outString .= $fields{'SelectCity'} . ",";
$outString .= $fields{'Workshop1'} . ",";
$outString .= $fields{'Workshop2'} . ",";
$outString .= $fields{'Salutation'} . ",";
$outString .= $fields{'FirstName'} . ",";
$outString .= $fields{'LastName'} . ",";
$outString .= $fields{'Title'} . ",";
$outString .= $fields{'CompanyName'} . ",";
$outString .= $fields{'CompanyAddress'} . ",";
$outString .= $fields{'Suburb'} . ",";
$outString .= $fields{'State'} . ",";
$outString .= $fields{'PostCode'} . ",";
$outString .= $fields{'PhoneNumber'} . ",";
$outString .= $fields{'Mobile'} . ",";
$outString .= $fields{'EmailAddress'};
print "Out string =$outString<br>";
push( @participants, $outString );
print "Num elements array participants = ".scalar( @participants )."<br>";
print "@participants\n\n";
open( OUTFILE, '>$filename') or die( "Cannot open file: $!");
while( @participants ){
my $val = shift( @participants );
print( OUTFILE "$val\n" );
}
close( OUTFILE ) or die( "Cannot close file: $!");
</code>
Here is a sample of the output I get on the screen
<output>
Yeah - File exists
Num elements array participants = 2
Out string =Melbourne,Next Generation Alpha Servers - Simplifying Cluster
Management with Single System Image,HP Single Server Strategy - Itanium is
real,vcxzvcxzv,vcxzvcxz,vxzcvcxz,zxcvcxzvxc,vzcxvzcx,xczvcxzv,vzxcvzcxv,vcxv
zcxv,vzxcvzcxv,vzcxvxzcv,vzxcvzxcvz,[EMAIL PROTECTED]
Num elements array participants = 3
Melbourne,Next Generation Alpha Servers - Simplifying Cluster Management
with Single System Image,HP Single Server Strategy - Itanium is
real,vcxzvcxzv,vcxzvcxz,vxzcvcxz,zxcvcxzvxc,vzcxvzcx,xczvcxzv,vzxcvzcxv,vcxv
zcxv,vzxcvzcxv,vzcxvxzcv,vzxcvzxcvz,[EMAIL PROTECTED]
</output>
Im pulling my hair out, maybe I've been at it too long today, Im going to
bed, hopefully the morning will bring a solution.
Any help appreciated.
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
