Gossamer Forum: General: Internet Technologies: Hw 2 use "split" (in Perl) with PHP

Jun 22, 2003, 9:45 AM

newage24

User (76 posts)

Jun 22, 2003, 9:45 AM

Post #1 of 4

Shortcut

Hw 2 use "split" (in Perl) with PHP

Hi !

Please help me to convert this PERL code to PHP

FIle: member.txt
Lisa|lisa@yahoo.com|92134|408-224-2167
Kevin|kevin@yahoo.com|92346|408-223-2292
Tom|tom@yahoo.com|97321|408-943-2547
Tim|tim@yahoo.com|93876|408-356-2604

open(FILE, "/path/to/member\.txt") ;
@array = <FILE>;
close(FILE);

foreach $line(@array) {
chomp($line);
($name, $email, $zipcode, $phone) = split(/\|/, $line);
$print_line .="Name: $name Email: $email Zipcode: $zipcode Phone: $phone ";
}

print "Content-type: text/html\n\n";
print $print_line;
exit;

Thanks !

PS: I'm learning PHP by convert Perl code to PHP code

Jun 22, 2003, 9:53 AM

Mark Badolato

Veteran (1509 posts)

Jun 22, 2003, 9:53 AM

Post #2 of 4

Shortcut

Re: [newage24] Hw 2 use "split" (in Perl) with PHP In reply to

Well rather than have someone just hand you the answer, how bout showing us what you've attempted so far, and what your results have been.

You'll learn more by attempting and debugging, than you will by being handed code every time.

--mark

Jun 22, 2003, 10:31 AM

Paul

Veteran (19537 posts)

Jun 22, 2003, 10:31 AM

Post #3 of 4

Shortcut

Re: [newage24] Hw 2 use "split" (in Perl) with PHP In reply to

I've never used php so I'm going to have an attempt for fun, let's see what Mark thinks =)

Code:
<?php 

$fh = fopen("/path/to/member.txt", "r"); 

if (is_resource($fh)) { 
   while (! feof($fh)) { 
        $buffer = fgets($fh, 4096); 
        $array  = explode("|", $buffer); 
        echo "Name: $array[0]<br>Email: $array[1]<br>Zip: $array[2]<br>Phone: $array[3]\n"; 
   } 
   fclose($fh); 
} 

?>

Jun 23, 2003, 1:47 AM

Andy

Veteran / Moderator (18441 posts)

Jun 23, 2003, 1:47 AM

Post #4 of 4

Shortcut

Re: [Paul] Hw 2 use "split" (in Perl) with PHP In reply to

Not bad

Cheers

Andy (mod)
andy@ultranerds.co.uk