Hi All,
I have a text file,which contains following type of data,
my $Data = {
'Book1-6' => {
'DESCRIPTION' => 'Book1-6',
'URLS1-6' =>
"http://www.book1.com " .
"http://www.book2.com " .
"http://www.book3.com " .
"http://www.book4.com " .
"http://www.book5.com " .
"http://www.book6.com";,
'Book_PATH' =>
"/usr/httpd/Book1-6",
},
'BOOK11-66' => {
'DESCRIPTION' => 'Book11-66',
'URLS11-66' =>
"http://www.book11.com " .
"http://www.book22.com " .
"http://www.book33.com " .
"http://www.book44.com " .
"http://www.book55.com " .
"http://www.book66.com";,
'Book_PATH' =>
"/usr/httpd/Book11-66",
}
}
now i want following type of output from the above text file...
1.perl myprogram.lp URLS1-6
out put will be
"http://www.book1.com "
"http://www.book2.com " .
"http://www.book3.com " .
"http://www.book4.com " .
"http://www.book5.com " .
"http://www.book6.com";,
2.if i give perl myprogram.lp URLS11-66
output will be
"http://www.book11.com "
"http://www.book22.com " .
"http://www.book33.com " .
"http://www.book44.com " .
"http://www.book55.com " .
"http://www.book66.com";,
Thanks you.
john..
---------------------------------
Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates
starting at 1ยข/min.
