On Tue, 27 Feb 2001 01:28, Clayton Dukes wrote:
> > Hi :-)
> Can someone tell me how to do the equivalant of this Perl script in
> PHP?
>
> ###
> ### This function prints all lines between the dashes read in a text
> file ###
> ### The file looks like this:
>
> # -----------------------------
> # Somedata: something
> # Someother: something else
> # ------------------------------
> #
> # Several paragraphs
> # Several paragraphs
> # Several paragraphs
> # ----------END--------------
> #
>
>
>
> #!/usr/bin/perl -w
> @rray = <STDIN>;
>
>
> $inside = 0;
> foreach $line (@rray) {
> if ($line =~ /-----/ig) {
> $inside = 1;
> } elsif ($line =~ /-----/gi) {
> $inside = 0;
> }
>
> if ($inside == 1) {
> print $line;
> }
> }
>
>
> TIA!
Seems like your solution boils down to this:
Set toggle = 0
open file for read
while not EOF
Read file line by line
if(line has dashes)
toggle = not(toggle) // flip the toggle
endif
if (toggle)
print line
endif
endwhile
close file
The code is left as an exercise for the student :-)
Cheers
--
David Robley | WEBMASTER & Mail List Admin
RESEARCH CENTRE FOR INJURY STUDIES | http://www.nisu.flinders.edu.au/
AusEinet | http://auseinet.flinders.edu.au/
Flinders University, ADELAIDE, SOUTH AUSTRALIA
--
PHP General Mailing List (http://www.php.net/)
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
To contact the list administrators, e-mail: [EMAIL PROTECTED]
