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
