[EMAIL PROTECTED] 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;
}
use strict;
use warnings;
open my $fh, '/etc/horcm10.conf' or die $!;
while (<$fh>) {
next unless /HORCM_INST/ .. not /\S/;
print;
}
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
