Thank y'all so much for all your help. sa
-----Original Message----- From: Robert Cummings [mailto:[EMAIL PROTECTED] Sent: Tuesday, September 16, 2003 2:30 PM To: Susan Ator Cc: [EMAIL PROTECTED] Subject: RE: [PHP] How do I do this PERL in PHP? The following will do variable matching like you asked: if( ereg( '^<'.$var.'>(.*)$', $line, $matches ) ) Cheers, Rob. On Tue, 2003-09-16 at 13:34, Susan Ator wrote: > It works beautifully. My only question is there a way to pass a variable to > the ereg? In other words: > > if( ereg( '^<TO>(.*)$', $line, $matches ) ) > > would become: > > if( ereg( '^<$var>(.*)$', $line, $matches ) ) > > I've tried doing eval but that was a no go. > > I have a lot of fields and I hate doing the same thing over and over if > there is a way to avoid it. :) > > sa > > > -----Original Message----- > From: Robert Cummings [mailto:[EMAIL PROTECTED] > Sent: Tuesday, September 16, 2003 12:05 PM > To: Susan Ator > Cc: [EMAIL PROTECTED] > Subject: Re: [PHP] How do I do this PERL in PHP? > > > This isn't tested, but should work :) > > ////////////////////////////////////////////////// > > $to = ''; > $subject = ''; > $message = ''; > > $matches = array(); > > $data = file( $file ); > foreach( $data as $id => $line ) > { > if( ereg( '^<TO>(.*)$', $line, $matches ) ) > { > $to = trim( $matches[1] ); > unset( $data[$id] ); > } > else > if( ereg( '^<FROM>(.*)$', $line, $matches ) ) > { > $from = trim( $matches[1] ); > unset( $data[$id] ); > } > } > > $message = implode( '', $data ); > > ////////////////////////////////////////////////// > > Cheers, > Rob. > > > On Tue, 2003-09-16 at 11:46, Susan Ator wrote: > > I have a text file with the following format: > > > > <TO> name > > <SUBJECT> stuff > > <MESSAGE> > > message text > > message text > > message text > > > > I need to be able to assign a variable to the data like so: > > > > $to = "everything to the left of <TO>"; > > $subject = "everything to the left of <SUBJECT>"; > > $message = "everything to the left of <MESSAGE>"; > > > > so > > > > $to = "name"; > > $subject = "stuff"; > > $message = "message text\nmessage text\nmessage text\n"; > > > > This is how it's being done in perl: > > > > open(INPUT, $file) or die "couldn't open $file for reading: $!\n"; > > while (defined (my $line = <INPUT>)) { > > chomp $line; > > field_found($line,"<TO>",\$to); > > field_found($line,"<SUBJECT>",\$subject); > > field_found($line,"<MESSAGE>",\$message); > > } > > > > sub field_found(@_) { > > my $line = shift; > > my $fld = shift; > > my $val = shift; > > > > my $pos = index($line,$fld); > > if ($pos == 0) { # found field > > my $flen = length $fld; > > my $llen = length $line; > > $$val = substr($line,$flen,$llen); > > } # found field > > } > > > > How in the world can I translate this to php? > > > > sa > > > > -- > > PHP General Mailing List (http://www.php.net/) > > To unsubscribe, visit: http://www.php.net/unsub.php > > > > > -- > .---------------------------------------------. > | Worlds of Carnage - http://www.wocmud.org | > :---------------------------------------------: > | Come visit a world of myth and legend where | > | fantastical creatures come to life and the | > | stuff of nightmares grasp for your soul. | > `---------------------------------------------' > > -- > PHP General Mailing List (http://www.php.net/) > To unsubscribe, visit: http://www.php.net/unsub.php > -- .---------------------------------------------. | Worlds of Carnage - http://www.wocmud.org | :---------------------------------------------: | Come visit a world of myth and legend where | | fantastical creatures come to life and the | | stuff of nightmares grasp for your soul. | `---------------------------------------------' -- PHP General Mailing List (http://www.php.net/) To unsubscribe, visit: http://www.php.net/unsub.php -- PHP General Mailing List (http://www.php.net/) To unsubscribe, visit: http://www.php.net/unsub.php
