Perl Guru Forums: Perl Programming Help: Beginner: i have a bug in a code i made please help

 
use CGI::Carp qw( fatalsToBrowser ); 
  
 
 
print "Content-Type: text"; 
 
 
####################################################################################### 
 
use CGI qw/ :standard /; 
 
 
 
use CGI; 
 
 
 
 
 
 
 
 
 
my $query = new CGI; 
 
 
my $username = $query->param('u'); 
my $password = $query->param('p'); 
 
 
 
 
my $result1 = $query->param('a01'); 
my $result2 = $query->param('a02'); 
my $result3 = $query->param('a03'); 
my $result4 = $query->param('a04'); 
my $result5 = $query->param('a05'); 
my $result6 = $query->param('a06'); 
my $result7 = $query->param('a07'); 
my $result8 = $query->param('a08'); 
my $result9 = $query->param('a09'); 
my $result10 = $query->param('a10'); 
my $result11 = $query->param('a11'); 
my $result12 = $query->param('a12'); 
my $result13 = $query->param('a13'); 
my $result14 = $query->param('a14'); 
my $result15 = $query->param('a15'); 
my $result16 = $query->param('a16'); 
my $result17 = $query->param('a17'); 
my $result18 = $query->param('a18'); 
my $result19 = $query->param('a19'); 
my $result20 = $query->param('a20'); 
 
 
 
if ($result1 eq "" ) 
{ 
	$result1 = "empty"; 
	} 
if ($result2 eq "" ) 
{ 
	$result2 = "empty"; 
	} 
 
if ($result3 eq "" ) 
{ 
	$result3 = "empty"; 
	} 
 
if ($result4 eq "" ) 
{ 
	$result4 = "empty"; 
	} 
 
if ($result5 eq "" ) 
{ 
	$result5 = "empty"; 
	} 
 
if ($result6 eq "" ) 
{ 
	$result6 = "empty"; 
	} 
 
if ($result7 eq "" ) 
{ 
	$result7 = "empty"; 
	} 
 
if ($result8 eq "" ) 
{ 
	$result8 = "empty"; 
	} 
if ($result9 eq "" ) 
{ 
	$result9 = "empty"; 
	} 
 
if ($result10 eq "" ) 
{ 
	$result10 = "empty"; 
	} 
 
if ($result11 eq "" ) 
{ 
	$result11 = "empty"; 
	} 
if ($result12 eq "" ) 
{ 
	$result12 = "empty"; 
	} 
 
if ($result13 eq "" ) 
{ 
	$result13 = "empty"; 
	} 
 
if ($result14 eq "" ) 
{ 
	$result14 = "empty"; 
	} 
if ($result15 eq "" ) 
{ 
	$result15 = "empty"; 
	} 
if ($result16 eq "" ) 
{ 
	$result16 = "empty"; 
	} 
if ($result17 eq "" ) 
{ 
	$result17 = "empty"; 
	} 
 
if ($result18 eq "" ) 
{ 
	$result18 = "empty"; 
	} 
 
if ($result19 eq "" ) 
{ 
	$result19 = "empty"; 
	} 
if ($result20 eq "" ) 
{ 
	$result20 = "empty"; 
	} 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
if ($result2 eq "Username" ) 
{ 
	goto SKIP; 
	} 
if ($result4 eq "Password" ) 
{ 
	goto SKIP; 
	} 
 
 
 
if ($result2 eq "empty" ) 
{ 
	goto SKIP; 
	} 
 
 
if ($result2 eq "saved" ) 
{ 
	goto SKIP; 
	} 
if ($result2 eq "" ) 
{ 
	goto SKIP; 
	} 
if ($password eq "" ) 
{ 
	goto SKIP; 
	} 
if ($username eq "" ) 
{ 
	goto SKIP; 
	} 
if ($username eq "username" ) 
{ 
	goto SKIP; 
	} 
 
 
 
 
 
 
open(F,"contacts.txt"); 
my @list=<F>;close F; 
my $this="$username,$password"; 
my @f=grep /$this/,@list; 
 
close (F); 
 
 
my $data = "@f"; 
 
if ($data eq "" ) 
{ 
	open(F, '>>:utf8', 'contacts.txt'); 
print F "$username,$password,$result1,$result2,$result3,$result4,$result5,$result6,$result7,$result8,$result9,$result10,$result11,$result12,$result13,$result14,$result15,$result16,$result17,$result18,$result19,$result20\n"; 
close F; 
	} 
 
 
else 
{ 
open (IN, "+<contacts.txt"); 
 
@file = <IN>; 
 
seek IN,0,0; 
 
foreach $file (@file){ 
$file =~ s/$data/$username,$password,$result1,$result2,$result3,$result4,$result5,$result6,$result7,$result8,$result9,$result10,$result11,$result12,$result13,$result14,$result15,$result16,$result17,$result18,$result19,$result20\n/g; 
print IN $file; 
} 
close IN; 
 
	 
	} 
 
 
 
 
 
 
 
SKIP: 
 
print $query->header; 
 
 
 
my $result1 = $query->param('a01'); 
my $result2 = "saved"; 
my $result3 = $query->param('a03'); 
my $result4 = "saved"; 
my $result5 = $query->param('a05'); 
my $result6 = "saved"; 
my $result7 = $query->param('a07'); 
my $result8 = "saved"; 
my $result9 = $query->param('a09'); 
my $result10 = "saved"; 
my $result11 = $query->param('a11'); 
my $result12 = "saved"; 
my $result13 = $query->param('a13'); 
my $result14 = "saved"; 
my $result15 = $query->param('a15'); 
my $result16 = "saved"; 
my $result17 = $query->param('a17'); 
my $result18 = "saved"; 
my $result19 = $query->param('a19'); 
my $result20 = "saved"; 
 
 
print "$result1,$result2,$result3,$result4,$result5,$result6,$result7,$result8,$result9,$result10,$result11,$result12,$result13,$result14,$result15,$result16,$result17,$result18,$result19,$result20"; 
 
 
Quote  
the comma is a deliminator on the recieving javascript

open( IN, "+<contacts.txt" );
@file = <IN>;
~~# seek IN, 0, 0;~~

close IN;

open( IN, '>', 'contacts.txt' );

foreach $file (@file) {
$file
=~ s/$data/$username,$password,$result1,$result2,$result3,$result4,.........
print IN $file;
}
close IN;

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $contacts = 'contacts.txt';
open my $contacts_fh, '<:encoding(UTF-8)', $contacts
or die "failed to open '$contacts' for reading <$!>";

# build a HoH to hold the contacts info
my %contacts;
while ( my $contact = <$contacts_fh> ) {
chomp $contact;
my ($user, $pass, @results) = split /,/, $contact;
$contacts{$user} = {
pass => $pass,
results => \@results,
}
}
close $contacts_fh;

# lets dump out the data to see the structure
print Dumper \%contacts;

# change username 'janesmith' to 'jane'
$contacts{'jane'} = delete $contacts{'janesmith'};

# lets look at the results
print Dumper \%contacts;

open $contacts_fh, '>:encoding(UTF-8)', $contacts
or die "failed to open '$contacts' for writing <$!>";

# output updated data to the file
foreach my $contact ( sort keys %contacts ) {
print {$contacts_fh} join(',', $contact,
$contacts{$contact}{'pass'},
@{$contacts{$contact}{'results'}},
);
print {$contacts_fh} "\n";
}
close $contacts_fh;

=pod
=begin comment

In my test case, the contents of contacts.txt is:
janesmith,123pass,mother,07878767655,mom,07565633456,name,number,name,number
johnsmith,123pass,father,07878767657,dad,07565633458,name,number,name,number

=end comment
=cut

C:\testing>gerble.pl
$VAR1 = {
'janesmith' => {
'pass' => '123pass',
'results' => [
'mother',
'07878767655',
'mom',
'07565633456',
'name',
'number',
'name',
'number'
]
},
'johnsmith' => {
'pass' => '123pass',
'results' => [
'father',
'07878767657',
'dad',
'07565633458',
'name',
'number',
'name',
'number'
]
}
};
$VAR1 = {
'jane' => {
'pass' => '123pass',
'results' => [
'mother',
'07878767655',
'mom',
'07565633456',
'name',
'number',
'name',
'number'
]
},
'johnsmith' => {
'pass' => '123pass',
'results' => [
'father',
'07878767657',
'dad',
'07565633458',
'name',
'number',
'name',
'number'
]
}
};


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN