Pozdrav prvo svima !
Moj problem je sledeci,naime, imam obicnu formu tra la la i sada hocu da je upisem u bazu i to tako da se upisujepo nekoliko linija znaci
polje1 | polje2 | polje3 | polje4
polje5 | polje6 | polje7 | polje8
odnosno kada kliknem da posaljem formu cgi scripti hocu da mi upise sve podatke
(ako shatate svaka van cast :))))) mnogo sam konfuzan)
e ja hocu onda kada na primer cekiram samo polja 5.6.7.8 da mi samo njih upise a kada cekiram samo polja 1.2.3.4 da mi samo njih upise a kada cekiram sva polja 1-8 da mi ih upise u dve linije baze kao sto sam pokazao.
E ja sam resio samo delimicno odnosno kada cekiram polja 1.2.3.4 onda je ok jer mi samo upise 1 liniju ali kada cekiram polja 5.6.7.8 on mi upise i prvu liniju i to ovako : |||0 i to me zeza posle.................
evo mog koda a ako neko moze neka mi kaze kako drugacije
&GetFormInput;
$KRSe = $field{'KRSe'} ;
$select = $field{'select'} ;
$kKRSe = $field{'kKRSe'} ;
$rKRSe = $field{'rKRSe'} ;
$KRSeC = $field{'KRSeC'} ;
$bKRSeC = $field{'bKRSeC'} ;
$kKRSeC = $field{'kKRSeC'} ;
$rKRSeC = $field{'rKRSeC'} ;
open (LOGFILE, ">> log2.txt") ;
print LOGFILE "$KRSe\|$select\|$kKRSe\|$rKRSe\n" ;
close (LOGFILE) ;
open (LOGFILE, ">> log2.txt") ;
if ($rKRSeC == 0)
{
close (LOGFILE) ;
}
else
{
print LOGFILE "$KRSeC\|$kKRSeC\|$bKRSeC\|$rKRSeC\n" ;
}
close (LOGFILE) ;
........................tra la la .............ostatak nijke bitan................
pa onda ide kraj
sub GetFormInput {
(*fval) = @_ if @_ ;
local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}
if ($buf eq "") {
return 0 ;
}
else {
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val=~tr/+/ /;
$val=~ s/%(..)/pack("c",hex($1))/ge;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;
if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= $val;
#$field{$name} .= ",$val";(original) 163
# $field{$name}=$val; 160
#if you want multi-selects to goto into an array change to:
#$field{$name} .= "\0$val";
}
}
}
return 1;
}
----------------------------------to je to--------------------------------
Unapred vrlo zahvalan
Obi Wan