Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]643[/thread]

Anfänger braucht hilfe..

Leser: 1


<< >> 8 Einträge, 1 Seite
opixantos
 2006-01-11 01:34
#6575 #6575
User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
$imgpath="meinpfad";
$imgpath2="meinpfad1";
$pos=0;
$upname="";
$count=0;

@names=readdir(CURDIR);
print "Content-type: text/html", "\n\n";
print "<html><head><title></title></head>\n";
print "<body bgcolor='#FFFFFF' text='#000000' background='http://www.swiss-panther-units.com/spuafimages/bgcgi.jpg' link='#0000FF' vlink='#0000FF' alink='#0000FF'>\n";
print "<img src='http://www.swiss-panther-units.com/spuafimages/tocgi.gif' width='674' height='86'>\n";
print "<table width='674' border='0' cellpadding='0' cellspacing='0'>\n";
print "  <tr>\n";
print "  <td>\n";
print "<div align='center'>\n";
print "<table width='596' border='0' cellpadding='5' cellspacing='0'>\n";
print "  <tr>\n";
print "    <td bgcolor='#000000'><div align='right'><A HREF='$screenshotviewer'><img src='http://www.swiss-panther-units.com/spuafimages/reloadbutton.gif' width='40' height='35' border='0'></a></div></td>\n";
print "  </tr>\n";
print "</table>\n";
scrolling='yes'>\n";

print "</iframe>\n";
print "<table width='596' border='0' cellpadding='5' cellspacing='0'>\n";

for $name(@names)
{
  if ($count==0)
    {
      print "<TR>\n";
    }
  $upname=uc($name);

## .jpg
    $pos=index($upname,".JPG");
  if ($pos > 0)
    {
      print "<TD ALIGN='CENTER' bgcolor='#FFFFFF'><img src='".$imgpath.$name."' width='160' height='120'></img><BR><font face='Verdana, Arial, san serif' SIZE=-1>$name</font><br><A HREF='".$imgpath.$name."' target='screenzoom'><img src='http://www.swiss-panther-units.com/spuafimages/iconzoom.gif' width='40' height='40' border='0' hspace='5'></a><A HREF='WASMACHEN'><img src='http://www.swiss-panther-units.com/spuafimages/iconcopy.gif' width='40' height='40' border='0' hspace='5'><img src='http://www.swiss-panther-units.com/spuafimages/icondelete.gif' width='45' height='40' border='0' hspace='5'></TD>\n";
      $count=$count+1;
    }


## 

  if ($count==3)
    {
      print "</TR>\n";
      $count=0;
    }
}
closedir(CURDIR);
if ($count>0)
  {
    print "</TR>\n";
  }
print "</table>\n";
print "</div>\n";
print "  </td>\n";
print "  </tr>\n";
print "</table>\n";
print "</body></html>\n";


ok.. ich hab da diesen script.. es funktioniert auch soweit so gut.. jedoch möchte ich das die buttons Copy und Delete die aufgeliestete Datei von imgpath zu imgpath2 Kopiert.. wen ich den Copy button klicke.. und die datei wen ich den Button Delete klicke bei imgpath löscht..

$imgpath der pfad wo die bilder aufgeliestet wird und $name die dateinamen inkl. endung..

wer kann mir bitte weiterhelfen.. mir ist klar das ich bei den img buttons ein from erstellen muss das dem script um welche datei es handelt übergiebt und dies dan löschen oder kopieren ausführt.. nur weis ich nicht wie ich das anstellen soll..

Danke für jede hielfe..

gruss opixantos\n\n

<!--EDIT|renee|1136946435-->
renee
 2006-01-11 04:30
#6576 #6576
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das naechste Mal bitte [code]-Tags verwenden...

Fuer die Trennung von HTML und Perl kann ich Dir CPAN:HTML::Template::Compiled empfehlen.

Fuer das kopieren nimmst Du am besten CPAN:File::Copy und zum loeschen schaust Du Dir am besten mal perldoc -f unlink an...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Taulmarill
 2006-01-11 12:28
#6577 #6577
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
die vorschläge von renee kann ich nur unterstützen, ausserdem würde ich dir zu aller erst CPAN: CGI empfehlen. damit kannst du u.a. vernünftig auf formulare zugreifen.
alternativ zu HTML::Template kann ich dir noch CPAN: Template Toolit empfehlen, das ist die von mir favorisierte template-engine.\n\n

<!--EDIT|Taulmarill|1136975312-->
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
format_c
 2006-01-11 14:29
#6578 #6578
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
[quote=renee,11.01.2006, 03:30]Das naechste Mal bitte [code]-Tags verwenden...

Fuer die Trennung von HTML und Perl kann ich Dir CPAN:HTML::Template::Compiled empfehlen.

Fuer das kopieren nimmst Du am besten CPAN:File::Copy und zum loeschen schaust Du Dir am besten mal perldoc -f unlink an...[/quote]
Warum HTML::Template::Compiled und nicht einfach HTML::Template? Was kann das denn mehr? Wegen dem Geschwindigkeitsding bietet HTML template ja Template cache. Weis net mir gefällt die Vorstellung nicht, dass das Template in das Perlscript einkompiliert wird.

Gruß Alex
Effizente Linuxshell
opixantos
 2006-01-11 15:12
#6579 #6579
User since
2006-01-07
15 Artikel
BenutzerIn
[default_avatar]
hi danke für eure infos..

jedoch bin ich ein neuling.. das heist ich kann nichts mit dem
CPAN: HTML::Template::Compiled
CPAN: File::Copy
perldoc -f
oder des gleichen anfangen.. ich sehe nur den code aber wie in diesem code einfügen oder anpassen kein plan.. da ich noch nicht diese erweiterung besitze.. ich würde mich freuen über eure weiteren hielfen.. jedoch muss ich schon konkret wissen wo und wie und was... da ich neuling anfänger bin.. und wegen code sorry.. dieses script ist für den gebrauch auf dem Webserver bestimt (Unix/Windows).. ich weis nichtmal wie ich es fals es funzt dan später in Windows Webserver anpassen muss..

vielen dank

opixantos\n\n

<!--EDIT|opixantos|1136985479-->
Taulmarill
 2006-01-11 15:22
#6580 #6580
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
[quote=opixantos,11.01.2006, 14:12]jedoch bin ich ein neuling.. das heist ich kann nichts mit dem
CPAN: HTML::Template::Compiled
CPAN: File::Copy
perldoc -f
oder des gleichen anfangen..[/quote]
dann würde ich dir empfehlen, dich erst einmal damit vertraut zu machen.

das CPAN ist ein archiv in dem alle perlmodule gesammelt werden. wie man perlmodule installiert erfährst du unter anderen in unserem Wiki.
das perldoc ist die dokumentation zu Perl. hier findet man nicht nur wertvolle referenzen sondern auch detailierte tutorials. allerdings sind erst wenige teile ins deutsche übersetzt. wenn du ein wenig englisch kannst, kannst du dir die aktuelle perldoc auch auf http://perldoc.perl.org anschauen.
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
pq
 2006-01-11 16:31
#6581 #6581
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=format_c,11.01.2006, 13:29]Warum HTML::Template::Compiled und nicht einfach HTML::Template? Was kann das denn mehr?[/quote]
steht in der doku.
Quote
Wegen dem Geschwindigkeitsding bietet HTML template ja Template cache.

dann hätte ich ja HTC nie schreiben brauchen. die cache-option von H::T ist
zwar ganz nett, bringt aber nicht soo viel.
H::T ohne cache: 277/s
      mit cache: 550/s
HTC   mit cache: 2054/s\n\n

<!--EDIT|pq|1136989931-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
renee
 2006-01-11 23:37
#6582 #6582
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Zu CPAN:HTML::Template habe ich mal einen Vortrag gemacht, das Skript dazu kannst Du unter http://perl.renee-baecker.de/HTML_Template.pdf anschauen. Das kannst Du auch alles fuer CPAN:HTML::Template::Compiled anwenden (sind fast komplett kompatibel). Aber Vorsicht: in den Beispielen hat sich in einer Zeile immer der Fehlerteufel eingeschlichen... Die Zeile muss richtig print "Content-type: text/html\n\n"; heissen (Danke @GwenDragon fuer den Hinweis)...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 8 Einträge, 1 Seite



View all threads created 2006-01-11 01:34.