Μετατροπη php σε perl

**eridion** · 14-10-17, 13:03

Λοιπον εχω ενα script php cgi θελω να το μετατρεψω σε perl γιατι δεν υποστιρηση το hosting sevice php cgi αλλα perl cgi πως να το μετατρεψω?

**MitsakosGR** · 14-10-17, 14:58

Αρχικό μήνυμα από eridion

Λοιπον εχω ενα script php cgi θελω να το μετατρεψω σε perl γιατι δεν υποστιρηση το hosting sevice php cgi αλλα perl cgi πως να το μετατρεψω?

Το γράφεις σε perl!

**eridion** · 14-10-17, 15:41

Αρχικό μήνυμα από MitsakosGR

Το γράφεις σε perl!

Αφου δεν ξερω perl ηπαρχει online translator?

**MitsakosGR** · 14-10-17, 20:53

Αρχικό μήνυμα από eridion

Αφου δεν ξερω perl ηπαρχει online translator?

Και αυτόματο να βρεις (λίγο που έψαξα δεν βρήκα) δεν υπάρχει περίπτωση να παίξει κατευθείαν. Πάντα οι μετατροπές κάνουν τα "χοντρά" και ο χρήστης πρέπει να κάνει τα υπόλοιπα και να ελέγξει ότι όντως παίζει σωστά!

**tsigarid** · 14-10-17, 20:53

Δεν υπάρχουν τέτοια πράγματα. Κάθε γλώσσα είναι διαφορετική, δεν μεταφράζεις απλά τη σύνταξη και καθάρισες. Πρέπει να γίνει από κάποιον που ξέρει perl, αλλά ανάλογα το μέγεθος μπορεί να μην αξίζει. Μήπως να αλλάξεις hosting;

**eridion** · 14-10-17, 21:10

Αρχικό μήνυμα από tsigarid

Δεν υπάρχουν τέτοια πράγματα. Κάθε γλώσσα είναι διαφορετική, δεν μεταφράζεις απλά τη σύνταξη και καθάρισες. Πρέπει να γίνει από κάποιον που ξέρει perl, αλλά ανάλογα το μέγεθος μπορεί να μην αξίζει. Μήπως να αλλάξεις hosting;

Εχω δοκιμαση πολλα (5 hosting) τα 2 θελουν πληρωμη για το cgi freehosting.com, 000webhost
Ενω τα δωρεαν εχουν μονο perl δεν το αντεχω να ψαξω και αλλο αμα ξερεις perl στειλε μου το email σου εδω για να σου στειλο το php κωδικα και να το κανεις perl

turboirc · 14-10-17, 21:26

Μη δουλευόμαστε, όλα τα νέα hosting έχουν PHP.
Και αμφιβάλλω αν υπάρχει τίποτα από δωρεάν που να τρέχει perl.

Απλά μας ζητάς να σου κάνουμε εργασία (κοινώς, αντιός).

**eridion** · 14-10-17, 21:31

Αρχικό μήνυμα από turboirc

Μη δουλευόμαστε, όλα τα νέα hosting έχουν PHP.
Και αμφιβάλλω αν υπάρχει τίποτα από δωρεάν που να τρέχει perl.

Απλά μας ζητάς να σου κάνουμε εργασία (κοινώς, αντιός).

Ωραια βρες μου ενα δωρεαν hosting που υποστιριζει php cgi

turboirc · 14-10-17, 21:55

https://www.000webhost.com/free-php-hosting

**eridion** · 15-10-17, 14:34

Αρχικό μήνυμα από turboirc

https://www.000webhost.com/free-php-hosting

Δηστυχος το αποτελεσμα απετυχε
https://test-php-cgi.000webhostapp.com/time.cgi

- - - Updated - - -

Οπιος μπορει να το μετατρεψει στειλε email στο crazyromteam@gmail.com

**MitsakosGR** · 15-10-17, 19:57

Αυτές τις τρεις γραμμές θέλεις να μετατρέψεις;;; (που δεν υπάρχουν πια!)

**eridion** · 16-10-17, 08:04

Αρχικό μήνυμα από MitsakosGR

Αυτές τις τρεις γραμμές θέλεις να μετατρέψεις;;; (που δεν υπάρχουν πια!)

Ναι αυτο https://drive.google.com/file/d/0Bwv...w?usp=drivesdk για αρχη για να δω οτι πραγματη δουλευει

**The King** · 19-10-17, 20:23

Αρχικό μήνυμα από eridion

Ναι αυτο https://drive.google.com/file/d/0Bwv...w?usp=drivesdk για αρχη για να δω οτι πραγματη δουλευει

O PHP κωδικάς σου στο Drive είναι ο εξής

<?PHP:


date_default_timezone_set('GMT');
header("Last-Modified: " . gmdate('D, d M Y H:i:s T'));
header("Connection: keep-alive");
?>

Μετατροπή σε Perl

Κώδικας:

#!/usr/local/bin/perl

require HTTP::Headers;
use POSIX qw(strftime);
use POSIX qw[tzset];

$ENV{'TZ'} = 'GMT';

$datestring = strftime "%a, %d %b %Y %R:%S %Z", gmtime;

$myheaders = HTTP::Headers->new(
                Last_modified => $datestring,
                Connection => 'keep-alive'
            );
            
print $myheaders->as_string;

Στο έχω βάλει εδώ για να παίξεις βλέποντας δοκιμαστικά το output στην κονσόλα

Για Date and Time formats διαβάζεις στο https://www.tutorialspoint.com/perl/perl_date_time.htm.
Για HTTP headers σε Perl διαβάζεις http://search.cpan.org/~oalders/HTTP...TTP/Headers.pm

.

**eridion** · 19-10-17, 21:48

Αρχικό μήνυμα από The King

O PHP κωδικάς σου στο Drive είναι ο εξής

<?PHP:


date_default_timezone_set('GMT');

header("Last-Modified: " . gmdate('D, d M Y H:i:s T'));

header("Connection: keep-alive");

?>

Μετατροπή σε Perl

Κώδικας:

#!/usr/local/bin/perl

require HTTP::Headers;
use POSIX qw(strftime);
use POSIX qw[tzset];

$ENV{'TZ'} = 'GMT';

$datestring = strftime "%a, %d %b %Y %R:%S %Z", gmtime;

$myheaders = HTTP::Headers->new(
                Last_modified => $datestring,
                Connection => 'keep-alive'
            );
            
print $myheaders->as_string;

Στο έχω βάλει εδώ για να παίξεις βλέποντας δοκιμαστικά το output στην κονσόλα

Για Date and Time formats διαβάζεις στο https://www.tutorialspoint.com/perl/perl_date_time.htm.
Για HTTP headers σε Perl διαβάζεις http://search.cpan.org/~oalders/HTTP...TTP/Headers.pm

.

Ευχαριστω πετυχε ολα οκ!!

**The King** · 19-10-17, 21:56

Αρχικό μήνυμα από eridion

Ευχαριστω πετυχε ολα οκ!!

Θέμα: Μετατροπη php σε perl

Παρόμοια Θέματα

MiFi μετατροπή 3g σε Wi-Fi. Προτάσεις;

Μετατροπή youtube σε TXT

Εξηγηση κωδικα Perl

Διαφορά προγραμμάτων για μετατροπή VIDEO σε Η.264

Μετατροπή vhs σε dvd

Tags για αυτό το Θέμα

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές