Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

PHP Script in Perl Script ändern

Frage Entwicklung Perl

Mitglied: Dipps

Dipps (Level 2) - Jetzt verbinden

19.09.2012, aktualisiert 16:44 Uhr, 3259 Aufrufe, 3 Kommentare

PHP Script in Perl Script ändern

Hallo ich habe mal ein PHP Script erstellt als Fotogallerie.
Nun möchte ich das in ein Perl Script gerne ändern da die neue Dynamische Seite nur Perl akteptiert und ich das Script da einbauen möchte.
01.
<? 
02.
$vverz="Party123"; 
03.
$veranstalltung ="Party123 vom 1.1.1900"; 
04.
 
05.
if(isset($_POST["zip"])) 
06.
if($_POST["zip"]=="1") 
07.
08.
$zufall=rand(1,100); 
09.
 
10.
include_once("../zip/createZip.inc.php"); 
11.
$createZip = new createZip; 
12.
$createZip -> addDirectory($veranstalltung."/"); 
13.
 
14.
 
15.
 
16.
$ordner=opendir("../".$vverz."/gross"); 
17.
 
18.
while($bild = readdir($ordner)) 
19.
20.
if(is_file("../".$vverz."/gross/".$bild)&&preg_match('/.*\.jpg?g/i', $bild)) 
21.
22.
foreach($_POST['bildaus'] as $value) 
23.
24.
if($bild==$value){ 
25.
$fileContents = file_get_contents("../".$vverz."/gross/".$bild); 
26.
$createZip -> addFile($fileContents, $veranstalltung."/".$bild); 
27.
28.
29.
 
30.
31.
32.
 
33.
$fileName= $veranstalltung."-".$zufall.".zip"; 
34.
$fd = fopen($fileName, "wb"); 
35.
$out = fwrite ($fd, $createZip -> getZippedfile()); 
36.
fclose($fd); 
37.
 
38.
echo "<h1>Zip Datei Downloaden</h1>"; 
39.
echo"<a href='http://www.mydomain.de/".$vverz."/$fileName'>hier downloaden</a><br><br><input type='button' onclick='javascript:history.back();' value='zurück'>"; 
40.
@$creatZip -> forceDownload($fileName); 
41.
 
42.
 
43.
 
44.
 
45.
 
46.
 
47.
 
48.
@unlink($fileName); 
49.
 
50.
closedir($ordner); 
51.
 
52.
53.
 
54.
 
55.
?> 
56.
 
57.
... 
58.
 
59.
<form method="post" action="<?php echo $_SERVER['PHP_SELF']; ?>" name="auswahl" enctype="multipart/form-data"> 
60.
<!--//////////////////////////////////////////////////////////////////////////////////////////////////////////--> 
61.
 
62.
<? 
63.
echo"<h2>".$veranstalltung."</h2>"; 
64.
$i=1; 
65.
$c=1; 
66.
$z=0; 
67.
$verzeichnis=opendir("../".$vverz); 
68.
while($file= readdir($verzeichnis)) 
69.
70.
if(is_file($uverz."/".$file)&&preg_match('/.*\.jpg?g/i', $file)) 
71.
72.
 
73.
$array_liste[]= "<input type=checkbox name='bildaus[]' value='".$file."'><a title='".$veranstalltung."' href='".$file."' id='http://www.mydomain.de/".$vverz."/gross/".$file."' rel='gb_imageset[party]'><img border='0' src='".$file."' width='100px' alt='".$file."'></a></input> "; 
74.
 
75.
$c++; 
76.
$z++; 
77.
 
78.
 
79.
80.
81.
 
82.
closedir($verzeichnis); 
83.
 
84.
sort($array_liste); 
85.
 
86.
for($co=0;$co<$z;$co++){ 
87.
 
88.
echo $array_liste[$co]; 
89.
 
90.
if($i==5) 
91.
92.
$i=0; 
93.
echo"<br>"; 
94.
95.
 
96.
 
97.
$i++; 
98.
 
99.
100.
 
101.
 
102.
 
103.
?> 
104.
<!--//////////////////////////////////////////////////////////////////////////////////////////////////////////--> 
105.
<br><br><input type="hidden" name="zip" value="1"><input type="submit" value="Auswahl Downloaden"> 
106.
</form> 
107.
 
108.
 
Mitglied: catachan
19.09.2012 um 17:38 Uhr
Hi

ich kann leider keine Frage entdecken.

LG
Bitte warten ..
Mitglied: wiesi200
19.09.2012 um 18:50 Uhr
Zitat von catachan:
Hi

ich kann leider keine Frage entdecken.

Ich schon.

Die Frage ist: "Wer ist bereit das ganze für mich zu einen üppigen Honorar zu erledigen?"
Bitte warten ..
Mitglied: bytecounter
20.09.2012, aktualisiert um 08:25 Uhr
Dann sollten wir doch einfach mal "hier" schreien ;)
Naja, ich bin ja nicht so und interpetier den Beitrag mal eher etwas anders. Die Frage soll heißen, wie bekomme ich das Script nach Perl konvertiert?

Also, ein Tool, dass das automatisch erledigt, ist mir leider nicht bekannt. Daher suche man einen Bücherhandel seines Vertraues, kaufe sich ein gutes Buch über Perl und lese dies. Da steht dann zwar immer noch nicht drin, wie man das konvertiert, aber immerhin weiß man dann, wie man es selber umsetzen kann. Und wenn Du gut bist, schreibst Du doch einfach einen Konverter...

Achja, wenn Du eh gerade im Bücherladen bist, hol Dir bitte auch gleich ein Buch über IT-Sicherheit. Ungefilterte Variablen vom Benutzer zu übernehmen ist ja schon mehr als nur grob fahrlässig.


Und die Alternative wurde bereist erwähnt:
Die Frage ist: "Wer ist bereit das ganze für mich zu einen üppigen Honorar zu erledigen?"
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Batch & Shell
gelöst Variablen in bash-script ändern (3)

Frage von cptkrabbe zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...