On Jan 9, 4:36 am, [EMAIL PROTECTED] (Jonay Herrera) wrote: > Hello, > > I try to print (get) a specific text selection from a text file, > but I don't know how to do it: > What I try todo is to open a file search a string and print > the follow lines from that string until he found a white line. then > he need to stop. so can i get the lines (strings) that i need. > > #!/opt/perl/bin/perl -w > use strict; > > #variable > > my @horcm_file; > > sub readdata{ > open(HORCM, "/etc/horcm10.conf") || die ("File error"); > @horcm_file = <HORCM>; > chomp(@horcm_file); > close(HORCM); > return(@horcm_file); > > } > > my @pipo=readdata(); > > foreach (@pipo){ > /HORCM_INST/ or next; > print; > > }
You're looking for the "flip flop" operator, which looks just like the range operator: .. while (my $line = <$file>) { if (/HORCM_INST/ .. /^\s*$/) { print $line; } } read more about it in: perldoc perlop Paul Lalli -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/