
05.06.2008, 11:13
|
|
Участник форума
Регистрация: 26.02.2007
Сообщений: 259
Провел на форуме: 302951
Репутация:
67
|
|
есть .txt файл, в нем сгенерирован прайс лист вот в таком виде
Код:
1 -1 -1 -1 Серверы и рабочие станции 0 0 0
1 1 -1 -1 Acer 0 0 0
1 1 1 -1 Рабочии станции 0 0 0
1 1 1 93913 Рабочая станция Acer Aspire E360 91.9N97E.R8S K8 MCR/ATHLON 64 3400/80GB SATA/512MB DDR400/DVD RW /nVidia G7300LE 256MB DVI TV-out, PCIE/Win XP MCE & Works/USB multimedia kb and optical mouse/MS MCE Remote Control & Receiver/ACR - Russian 396 392.0 385.00
1 1 1 88830 Рабочая станция Acer Aspire iDea 510 98.Q6B79.RHP Intel Core 2 Duo T5500, 2x512Mb DDRII SODIMM, 250Gb SATA, GeForce 7600GS 256Mb+2xTV-tuner, DVD/RW Slot-in, wireless kb&mouse, Gigabit LAN+Wi-Fi, Vista HP 1683 1667.7 1652.40
1 1 1 89246 Рабочая станция Acer Aspire L320 92.2NG9Z.RHR Intel Core 2 Duo E4400 2x512Mb DDRII 533 SO-DIMM 250Gb SATA onboard Intel GMA 3000 DVD RW Slot-In corded kb&mouse Gigabit LAN+Wi-Fi Vista HP+Ent 734 727.0 720.36
и есть скрипт на перле который этот прайс заливает в базу на сайте, вот скрипт:
Код:
#!/usr/bin/perl -w
#=============================================================================
#=============================================================================
#=============================================================================
sub loadprice2{
&writebase("delete from pricelist");
open F,"price.sql";
@d=<F>;
close F;
$d=join "",@d;
$d=~s/[\r\n]/<br>/g;
$d=~s#{{([\d-]+),(\d*)}}?#$1\.$2#g;
$d=~s#{{##g;
$d=~s#}}##g;
$d=~s/<br>/\n/g;
&writebase($d);
}
#=============================================================================
#=============================================================================
#=============================================================================
sub loadprice{
$db="DBI:mysql:wiz:localhost:3306";
$db=DBI->connect($db,"login","pass");
open F,"p.txt";
my @d=<F>;
close F;
$db->do("TRUNCATE TABLE pricelist");
for my $i (@d){
my @z=split /\t/,$i;
$db->do('insert into pricelist (razdel_id,cat_id,subcat_id,id,name,price1,price2,price3) values ('.(join ',',map {$db->quote($_)} @z).')');
}
$db->do("update options set price_update=now()");
$db->disconnect();
print "<script language=javascript>top.location.href='?$rand'</script>";
}
#=============================================================================
#=============================================================================
#=============================================================================
1;
мне нужно такой же скрипт на пхп написать, можете помочь, просто в перле ока ничо не понимаю((
или хотя бы обьясните как этот скрипт работает примерно, чтоб мне было от чего оттолкнутся....
Последний раз редактировалось Корвин; 05.06.2008 в 14:03..
|
|
|