Hi All,
I am a beginner at perl and would need some valued advice in the following task.
1. I need to access a website like say, a pathway called
http://www.biocarta.com/pathfiles/h_il10Pathway.asp
2. Store the navigable components found in the imagemap component. There are some
links here, which lead to display of a further search result for certain genes. I need
to extract and store the weblinks (to external websites) from this gene search into a
set of txt files.
For this, I have written the following code ... and then cant go further. pls help.
*********
use Win32::OLE;
$browser = Win32::OLE->new('InternetExplorer.Application', 'Quit');
$website ='http://www.biocarta.com/';
$webpage ='pathfiles/prolinePathway.asp';
$URL=$website.$webpage;
$browser->Navigate($URL, 1,'_BLANK');
#part 1
use LWP::Simple;
$content=get($URL);
#part 2
$content =~ tr/A-Z/a-z/; # lowercase everything
$content =~ s/\"/'/g; # double quotes to single
$content =~ s/\n//g; # get rid of the linefeeds
$content =~ s/\s+//g; # compress spaces/tabs
$content =~ /startpathwayimage(.*)endpathwayimage/;
print $1;
$content=$1;
# store this output into a file
*********
How to go further??
Thanks a ton in advance.
K.
