#!/perl/bin/perl -wT 
use CGI qw(:standard); 
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
use Fcntl ':flock'; 
 
print header(); 
print start_html("Overwrite Line of DB"); 
 
print "hello\n"; 
 
my $value1 = param('value1'); 
my $value2 = param('value2'); 
my $value3 = param('value3'); 
 
open(INF,"test.txt") or &dienice("Can't open test.txt: $!"); 
my @db = <INF>; 
close(INF); 
 
foreach my $i (@db) { chomp($i); 
($column1,$column2,$column3) = split(/\|/,$i); 
   if ($column1 eq $value1 and $column2 eq $value2) { 
       
      $column3 = $value3; 
       
      open(OUTF,">>test.txt") or dienice("Can't open test.txt for writing: $i"); 
      flock(OUTF,2); 
      seek(OUTF,0,2); 
      print OUTF "$column1|$column2|$column3\n"; 
      close(OUTF); 
    } 
 } 
 
sub dienice { 
    my($errmsg) = @_; 
    print "<h2>Error</h2>\n"; 
    print "<p>$errmsg</p>\n"; 
    print end_html; 
    exit; 
}

#!/perl/bin/perl -wT  
use CGI qw(:standard);  
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);  
use strict; 
#use Fcntl ':flock';  
  
print header();  
print start_html("Overwrite Line of DB");  
  
print "hello\n";  
  
my $value1 = param('value1');  
my $value2 = param('value2');  
my $value3 = param('value3'); 
my $flag = 0; 
  
open(INF,"test.txt") or &dienice("Can't open test.txt: $!");  
my @db = <INF>;  
close(INF); 
 
foreach (@db) { 
   chomp;  
   my ($c1,$c2,$c3) = split(/\|/);  
   ($c3,$flag) = ($value3,$flag+=1) if ($c1 eq $value1 and $c2 eq $value2); 
} 
 
if ($flag > 0) { 
   open(OUTF,">test.txt") or &dienice("Can't open test.txt: $!"); 
   flock(OUTF,2); 
   print OUTF "$_\n" for @db; 
   close(OUTF); 
   print "$flag lines were overwritten"; 
} 
 
else { 
   print "No lines were overwritten"; 
} 
 
print end_html; 
 
sub dienice {  
    my($errmsg) = @_;  
    print "<h2>Error</h2>\n";  
    print "<p>$errmsg</p>\n";  
    print end_html; 
    exit;  
}

foreach (@db) {  
   chomp;   
   my ($c1,$c2,$c3) = split(/\|/);   
   ($_,$flag) = ("$c1\|$c2\|$value3",$flag+=1) if ($c1 eq $value1 and $c2 eq $value2);  
}