Toon posts:

[perl naar php] wie wil me helpen

Pagina: 1

Acties:

39 views sinds 30-01-2008
Reageer

dinsdag 15 januari 2002 21:02

Acties:

Verwijderd

Topicstarter

sorry dat ik dit vraag maar ik hep echt al alles geprobeerd maar het lukt gewoon niet, die perl code moet naar php maar dat lukt me nie, en ik ben ook echt zwaar noob in PHP please help. Als je dit een k*t post vind post dan AUB geen flames. Ik zou graag de volgende perl code naar PHP willen hebben:

code:

open(HTML,"pad/naar/database.txt") 
@lines = <HTML>;
close(HTML);

foreach $line(@lines) {
    chomp($line);
    ($ringid,$cat,$artist,$title,$rtttl,$hits) = split(/\|/,$line);
    if ($ringid eq $FORM{'ringid'}){
         last;
    }
}

dinsdag 15 januari 2002 21:08

Acties:

brammetje

perl is spaggethi voor mij

misschien dat dit het is:

PHP:

<?
$lines = file("pad/naar/database.txt");
foreach( $lines as $line ){
    $line = trim($line);
    list($ringelid, $cat, $artist, $title, $rtttl, $hits) = explode("|", $line);
    if ( $ringelid == $_GET['ringid'] ){
        // doe hier iets (?)
    }
}
?>

wat dat last; doet weet ik niet, daar mag je zelf wat op verzinnen

edit: en als het niet klopt, somebody please help

dinsdag 15 januari 2002 21:10

Acties:

chem

Reist de wereld rond

Op dinsdag 15 januari 2002 21:08 schreef PlayR het volgende:
perl is spaggethi voor mij

misschien dat dit het is:
PHP:
1
2
3
4
5
6
7
8
9
10
<?
$lines = file("pad/naar/database.txt");
foreach( $lines as $line ){
    $line = trim($line);
    list($ringelid, $cat, $artist, $title, $rtttl, $hits) = explode("|", $line);
    if ( $ringelid == $_GET['ringid'] ){
        // doe hier iets (?)
    }
}
?>
wat dat last; doet weet ik niet, daar mag je zelf wat op verzinnen
edit: en als het niet klopt, somebody please help

het komt goed in de buurt volgens mij

maar die chomp is GEEN trim... weet niet meer wat het wel was maar iig geen trim

last kennik ook nie

Klaar voor een nieuwe uitdaging.

dinsdag 15 januari 2002 21:10

Acties:

Verwijderd

Topicstarter

DANKU!!!!!! Last die exit de lus dus dan heb je geen onnodige server time, Zwaar bedankt ga het nu effe proberen!

edit:

chomp checkt of de laatste char een \n is, en zo ja verwijderd hij die.

dinsdag 15 januari 2002 21:11

Acties:

elnino

code:

1
2
3

open(HTML,"pad/naar/database.txt") 
@lines = <HTML>;
close(HTML);

Kijk eens naar de file()-functie van PHP.

code:

1	foreach $line(@lines) {

PHP kent sinds versie vier ook een foreach-language construct. De @ is de manier van Perl om array's aan te geven.

code:

1	chomp($line);

Ik dacht dat PHP chop() daarvoor had.

code:

1	($ringid,$cat,$artist,$title,$rtttl,$hits) = split(/\\|/,$line);

list($ringid, $cat ...) = explode("|", $line) doet het werk.

code:

    if ($ringid eq $FORM{'ringid'}){
         last;
    }
}

'eq' wordt '=='
$FORM{'ringid'} wordt $ringid of $HTTP_POST/GET_VARS (ik neem aan dat $FORM gebruikt wordt om input van de webpagina weer te geven.

Ik hoop dat ik je nu weer wat op weg heb geholpen.

dinsdag 15 januari 2002 21:13

Acties:

Verwijderd

Topicstarter

chem was eerder maar toch bedankt

en nogsteeds geen flames gehad!

dinsdag 15 januari 2002 21:15

Acties:

Verwijderd

Op dinsdag 15 januari 2002 21:13 schreef poepkind het volgende:
chem was eerder maar toch bedankt en nogsteeds geen flames gehad!

Komt ie

Waarom wil je van perl naar PHP ? perl is toch veel goeder

dinsdag 15 januari 2002 21:16

Acties:

chem

Reist de wereld rond

Op dinsdag 15 januari 2002 21:15 schreef mgfun het volgende:

[..]

Komt ie Waarom wil je van perl naar PHP ? perl is toch veel goeder

dan zou het nog altijd beter zijn, en niet goeder

Klaar voor een nieuwe uitdaging.

dinsdag 15 januari 2002 21:18

Acties:

brammetje

Op dinsdag 15 januari 2002 21:10 schreef chem het volgende:
het komt goed in de buurt volgens mij maar die chomp is GEEN trim... weet niet meer wat het wel was maar iig geen trim

mja, ff een snel gokje, nog never nooit met perl gewerkt

dinsdag 15 januari 2002 21:23

Acties:

RdeTuinman

Op dinsdag 15 januari 2002 21:10 schreef chem het volgende:
het komt goed in de buurt volgens mij maar die chomp is GEEN trim... weet niet meer wat het wel was maar iig geen trim

* RdeTuinman pakt even het Perl-boek erbij, wat hij voor zn verjaardag heeft gekregen en citeert:

chomp verwijdert een eventueel nieuwe-regelteken aan het einde van het argument. Het retourneert het aantal verwijderde tekens.

chomp neemt ofwel een array ofwel een scalair als argument. Als chomp met een scalair wordt voorgesteld, wordt het recordscheidingsteken aan het eind van de scalair verwijderd. Als de functie met aan array wordt voorgesteld, wordt het recordscheidingsteken verwijderd aan het einde van elk scalair in de array.

Nou vooruit ook nog last:

Beeindigd de lus die op dat moment wordt uitgevoerd

_{Onder voorbehoud van typfouten}

dinsdag 15 januari 2002 21:28

Acties:

Verwijderd

Op dinsdag 15 januari 2002 21:23 schreef RdeTuinman het volgende:

[..]

* RdeTuinman pakt even het Perl-boek erbij, wat hij voor zn verjaardag heeft gekregen en citeert:
[..]

Nou vooruit ook nog last:
[..]

_{Onder voorbehoud van typfouten}

Jij bent zo goed... alleen een beetje laat

ik moet ook eens een perl boek kopen is wel handig ik gebruik nu alleen de tutorials/refs op internet en daar kom je ook wel een end mee maar er gaat nix boven hardware

dinsdag 15 januari 2002 21:28

Acties:

elnino

Op dinsdag 15 januari 2002 21:23 schreef RdeTuinman het volgende:

* RdeTuinman pakt even het Perl-boek erbij, wat hij voor zn verjaardag heeft gekregen en citeert:

Nou vooruit ook nog last:

_{Onder voorbehoud van typfouten}

* elnino elnino pakt de php-manual erbij:

Chop
(PHP 3, PHP 4 )

Chop -- Verwijdert achteraankomende whitespace
Omschrijving

string chop (string str)

Geeft de argument string zonder achteraankomende whitespace weer, inclusief newlines.

Voorbeeld 1. Chop() voorbeeld
code:
1
$trimmed = chop ($line);
Opmerking: chop() verschilt van de Perl chop() functie, die de laatste character van de string verwijdert.

Zie ook trim(), ltrim(), rtrim(), en chop().

dinsdag 15 januari 2002 21:30

Acties:

Verwijderd

Topicstarter

Op dinsdag 15 januari 2002 21:15 schreef mgfun het volgende:

[..]

Komt ie Waarom wil je van perl naar PHP ? perl is toch veel goeder

is ook zo maar ik hep een RTTTL-midi script in PHP en dat kan ik nie in Perl vinden dus ik moet wel in PHP.

Ik hep nou dit scrippie maar volgens mij pakt hij de header niet goed, want me browser print de midi ipv dat hij hem laat horen, dit:

PHP:

<?
include ("midimain.php");

$lines = file("/home/sites/site6/web/cgi-bin/mobile/data/ringtones.cgi");
foreach( $lines as $line ){    
    $line = trim($line);    
    list($ringelid, $cat, $artist, $title, $rtttl, $hits) = explode("|", $line);    
    if ( $ringelid == $ringid){        
        header("Content-type: audio/x-midi");
        print create_midi($rtttl,16);   
    }
}
?>

genereert iets als:

code:

1	MThd€MTrk maar dan 10x zo lang,

Het scrippie staat hier: http://www.sitevan.nl/cgi-bin/midi/ring.php?ringid=1

dinsdag 15 januari 2002 21:31

Acties:

RdeTuinman

Op dinsdag 15 januari 2002 21:28 schreef mgfun het volgende:

[..]

Jij bent zo goed... alleen een beetje laat

Weet je wel hoe lang dat duurt dat opzoeken en intypen

(zeker wel 13 minuten zo te zien

)

dinsdag 15 januari 2002 21:32

Acties:

Verwijderd

Topicstarter

hij doet ut al!!!!! thx everybody (Wie raad welk liedje het is krijgt een gratis website!)

dinsdag 15 januari 2002 21:34

Acties:

elnino

Op dinsdag 15 januari 2002 21:18 schreef PlayR het volgende:
mja, ff een snel gokje, nog never nooit met perl gewerkt

Ikzelf heb alleen een hele tijd geleden met Perl gewerkt (toen bestond PHP nog niet

). Maar toen was ik nog erg jong dat ik er weinig van begreep (regular expressions, scalars enzo), maar ik heb er wel veel van geleerd (== is 'eq' enzo).

Toen vergat ik telkens die ';'...

En dan kwam er zo'n leuke 500 Internal Server Error... Dat is nog eens wat anders dan die parse-errors van PHP... (mocht je zelf gaan zoeken) Om maar niet te spreken van de rechten die je zo'n bestand moest toekennen...

Dat waren nog eens tijden...

dinsdag 15 januari 2002 21:37

Acties:

elnino

Op dinsdag 15 januari 2002 21:32 schreef poepkind het volgende:
hij doet ut al!!!!! thx everybody (Wie raad welk liedje het is krijgt een gratis website!)

PPK - Resurection

dinsdag 15 januari 2002 21:37

Acties:

RdeTuinman

Op dinsdag 15 januari 2002 21:32 schreef poepkind het volgende:
hij doet ut al!!!!! thx everybody (Wie raad welk liedje het is krijgt een gratis website!)

PPK Resurection

dinsdag 15 januari 2002 21:38

Acties:

Verwijderd

Topicstarter

perl roeleerd, je moet gewoon effe adminpro gebruiken om je foutjes op te sporen maarja, iederen z'n eigen taal zal ik maar zeggen, mij PHP leren is het zelfde als een domme duitser Chinees leren

PS jullie kunnen je 1 MB homepage ophalen op sitevan.nl

dinsdag 15 januari 2002 21:57

Acties:

RdeTuinman

Verander meteen even de naam van dat liedje in je top 20.

Hij staat hierboven 2 maal uitgeschreven

Pagina: 1

Reageer