nicht angemeldet
Hallo!
Habe ein großes Problem. Habe schon alles möglich ausprobiert aber es funktioniert nicht. Habe eine Funktion die eine Artikeltabelle auswirft. In dieser txt-Datei sind jeweils 3 Variablen von unterschiedlichen Artikeln eingeschrieben. Halt für ein online-shopsystem. Wenn ich die Datei lokal von meinem Server mit open... öffne klappt alles wunderbar. Wenn ich lwp::simple verwende wird nix angezeigt!Woran kann das liegen???? Bin verzweifelt... HELP!
MfG
Johannes
Hier der Quelltext:
------------------->>>>>>>>>>>>>>>>>>>>>>
#!/usr/bin/perl
use LWP::Simple;
sub format_Produkt
{
my($doc,$file);
$Inhalt='
<table border="0" cellpadding="1" cellspacing="1" width="100%">
<tr>
<td bgcolor="#E8EDF6"><strong>Nr.</strong></td>
<td bgcolor="#E8EDF6"><strong>Bezeichnung</strong></td>
<td bgcolor="#E8EDF6" align="right"><strong>Preis</strong></td>
</tr>'
;
$file = ("http://localhost/system/shop.txt");
$doc = get($file);
open(ART, "< $doc");
while(<ART>)
{
chomp;
($Anummer,$Preis,$Artikel)=split(/\t/);
$Inhalt.=<<"...";
<tr>
<td>$Anummer</td>
<td>$Artikel</td>
<td align="right">$Preis</td>
</tr>
...
}
close(ART);
Schleifenende
$Inhalt.='</table></center></div>';
}
------------->>>>>>>>>>>>>