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, 3292 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 ..
Ähnliche Inhalte
PHP
gelöst Übergabe Formularinhalte an externes PHP Script (15)

Frage von schneerunzel zum Thema PHP ...

Batch & Shell
Script Lokales Admin Passwort ändern (3)

Frage von MaxBerg zum Thema Batch & Shell ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (38)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
Fachzeitschriften als E-Book oder hardcoded? (10)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...