Hi,

Here is wat im looking for.. i have a flat file which looks like this..

00
*
*
*
*
..
..
*
*
text
text
text

COL1 COL2
----- -----
1 a
2 b
3 c
....
....
100 z

text
text
text
*
*
...
...
*

I just want to retrieve..

COL1 COL2
----- -----
1 a
2 b
3 c
....
....
100 z

(Looking for perl code)
Thanks,
Megha

can anyone help on this!!!

you can try to parse the contents of the file and compare the lines you are reading, maybey something like this (will require some polishing):

open(FH, $filename);

while (<FH>) {
print $_ if ($_ =~ / /);
}

in other words, will print the line if it contains a space, but it may be not what you are requiring, for that some more info may come in handy..

open(FILE,"<","Test.TXT");
while (my $line = <FILE>)
{
if ($line =~ /^*/){
print $line;
}
}
close(FILE);

Here is what i was trying to do to pick up the lines that start with '*' .. but its not picking up.. can you help me on this??

the * stands for "match 0 or more times", think you need to escape the *:

if ($line =~ /^\*/){

Thats works... i have a tab in the beginning of a line.. can you tell me how to represent a "tab" in a search string... i used ($line =~ m/^\*/) && ($line =~ m/^\ /) .. respectively for a '*' character and ' ' space.. need to work to get a "tab" too...

Thanks

try to do some code next time.
one way.