"John Doe" <fatih@forum.dk> skrev i en meddelelse
news:9ad0m7$2f65$1@news.cybercity.dk...
> Mit eneste problem er at
> åbne en fil og behandle den.
> open(LISTE, "$root/anket.txt");
> my(@liste) = <LISTE>;
> close(LISTE);
Mon ikke det du gør her er, at indlæse linjerne i filen til et array?
$liste = file ("$DOCUMENT_ROOT/anket.txt");
> foreach $line
> iste){
> my($parameter1, $parameter2) = split(/\|\|/, $line);
> print $parameter1 . '-' . $parameter2;
> }
Og her skriver vi dem så ud
reset ($liste);
foreach($liste as $line) {
list($parameter1, $parameter2) = split(/\|\|/, $line);
// i denne "split" er jeg i tvivl om regex er korrekt,
// jeg har bare kopieret din.
print $parameter1 . '-' . $parameter2;
}
> indholdet af teksfilen er $parameter1||$parameter2\n osv (flere linjer af
samme type)
> sub check{
function check(){
> open(CHECK, "$root/anket.txt");
> my(@liste) = <CHECK>;
> close(CHECK);
$liste = file ("$DOCUMENT_ROOT/anket.txt");
> foreach $line (@liste){
> my($parameter1, $parameter2) = split(/\|\|/, $line);
foreach($liste as $line) {
list($parameter1, $parameter2) = split(/\|\|/, $line);
> chop($parameter2);
$parameter2 = chop($parameter2);
> if((lc($parameter1) eq lc($IN{'parameter1'})) && (lc($$parameter2)
eq lc($IN{'parameter2'}))){
if ($parameter1==$userparam1 && $parameter2==$userparam2 && ) {
// Se længere nede ang. $userparam1 og $userparam2
> $result = 1;
> }else{
> $result = 0;
> }
> }
> return $result;
> }
> i subrutinen er hashen $IN{'parameter'} er brugerens input som behandlet i
"get_input()".. Hvordan oversætter man disse til PHP?
Det fatter jeg så intet af. :) I mit eksempel har jeg bare brugerens input
som $userparam1 og 2. Men ellers er dette en måde at gøre det i PHP, hvis
jeg forstår dit perl korrekt.
Du kan få hjælp til funktionerne på
http://php.net. Fx chop:
http://php.net/chop. Der er også links til lignende funktioner som fx.
trim(), som også fjerner whitespace fra starten.
Jeg vil nok anbefale at du lige læser hjælpen til de benyttede funktioner,
for at sikre dig at de gør det samme som Perl-funktionerne. Jeg har gættet
en hel masse i ovenstående. :)
Mvh.
Niels Andersen