Low Power EDO, FP DRAM portfolio portfolio
 You didn't find your product here? Please click:  My next Memory
 
Low Power EDO, FP DRAM portfolio
 在这里找不到您要的产品吗?请点选:  技术信息请求
#!/usr/bin/perl require '../config.cgi'; use CGI::Carp qw(fatalsToBrowser); %in = (); &ReadParse(%in); print "Content-type: text/html \n\n"; &show_page; sub show_page{ ### print "\n"; print qq^ ^; print "\n"; print "\n"; ### print ""; print ""; print ""; # datasheet print ""; # density print ""; # configuration print ""; # vcc print ""; # speed print ""; # temp print ""; # package print ""; # notes print ""; # available print ""; print ""; print ""; $total = 0; $rowcount = 0; if ($in{'start'} >0) {$startVal = $in{'start'}-1;} else {$startVal = $in{'start'};} $endVal = $startVal + $numOfRecordsPerPage; $ranking = $in{'start'}; $volgorde = $in{'volgorde'}; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon = $mon+1; if ($mon < 10) {$mon = "0$mon"}; if ($mday < 10){ $mday = "0$mday"}; if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } if ($year =~ 99){$year = 1999;}else{$year = $year + 1900;} $date = "$year$mon"; foreach $fields(@results) { $color = '#000000'; if (($rowcount >= $startVal) && ($rowcount < $endVal)) { $c = $rowcount % 2; @fields = split (/\;/, $fields); print ""; if($fields[5] eq ""){ print ""; # productumber }else{ print ""; # datasheet } print ""; # density print ""; # configuration print ""; # vcc print ""; # speed print ""; # temp print ""; # package print ""; # notes if ($fields[12] =~ "V"){$available = "√";}else{$available = $fields[12];} print ""; # available print ""; print ""; $ranking++; } $rowcount++; $total++; } print ""; print "
产品型号容量大小结构电压速度温度包装样式附注相符
    $fields[6] $fields[5]$fields[3]$fields[4]$fields[7]$fields[8]$fields[9]$fields[10]$fields[11]$available
"; } sub ReadParse { local (*in) = @_ if @_; local ($i, $key, $val); if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } else { $in = $ENV{'QUERY_STRING'}; if (!$in) { ($in = $ENV{'PATH_INFO'}) =~ s/^\///; } } @in = split(/&/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator $in{$key} .= $val; } $db = "datasheets"; $numOfRecordsPerPage = 1000; $portfolio= $in{'portfolio'}; $groep= $in{'groep'}; ##### @results = (); open (DATABASE, "$datasheetlijst"); flock(FILE, $LOCK_EX); while () { $row = $_; chop $row; @fields = split (/\;/, $row); # sorteeervelden $sortvelden = "$fields[3]"; if(($fields[1] =~ /\b$portfolio\b/i) && ($fields[2] =~ /\b$groep\b/i)){ # sorteerveld vooraan plaatsen @nieuwelijst = ($sortvelden,$fields[0],$fields[1],$fields[2],$fields[3],$fields[4],$fields[5],$fields[6],$fields[7],$fields[8],$fields[9],$fields[10],$fields[11],$fields[12]); $sorteer = join ("\;", @nieuwelijst); push (@sorteerlijst, $sorteer); } } # sorteren @gesorteerd = sort ({$a <=> $b}@sorteerlijst); ### afdrukken gesorteerde lijst @gesorteerdelijst = (); # in nieuwe array zetten foreach $sorteerlijst(@gesorteerd) { @veld = split (/\;/, $sorteerlijst); @veldlijst = ($veld[1],$veld[2],$veld[3],$veld[4],$veld[5],$veld[6],$veld[7],$veld[8],$veld[9],$veld[10],$veld[11],$veld[12],$veld[13]); $gesorteerdelijst = join ("\;",@veldlijst); $nieuwelijst = "$gesorteerdelijst\n"; push (@results, $nieuwelijst); } close (DATABASE); ##### return length($in); }