Показать сообщение отдельно

  #506  
Старый 05.06.2008, 11:13
Корвин
Участник форума
Регистрация: 26.02.2007
Сообщений: 259
Провел на форуме:
302951

Репутация: 67
Отправить сообщение для Корвин с помощью ICQ
По умолчанию

есть .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..
 
Ответить с цитированием