Hello Henrik,
Thanks, its working now
Regards,
Jack
> On Saturday 01 March 2003 07.45, Jack wrote:
> > Hello Henrik,
> >
> > I changed the script as you said as
> >
> > #!/usr/bin/perl
> >
> > while ($url = <>) {
> > @list = split("/", $url);
> > $newurl="http:/";
> > for($i=3;$i<@list;$i++) {
> > $newurl=$newurl."/".$list[$i];
> > }
> > print "$newurl";
> > }
>
>
> Why did you remove the BEGIN { $|= 1 }; line? This is required.. (can
> be simplified to $|=1; when not using -p but the BEGIN construct
> also works just fine..)
>
> Regards
> Henrik
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
