Perl-Expect - Binärdateien übertragen?

[Stefan Welscher]

coca_overlay.php:
-----------------

  
<?  
$file=$argv[1];  
#echo "FILE=".$file."\n";  
  
$arg_array=split("[?&]",$file);  
$file_arg=1;  
foreach ($arg_array as $arg)  
{  
        if ($file_arg) { $file_arg=0; $file=$arg; continue; }  
        $arg_subarray=split("=",$arg);  
        $var=$arg_subarray[0];  
        $value=$arg_subarray[1];  
        #print "\nVAR=".$var."-VALUE=".$value."\n";  
        $$var=$value;  
}  
  
include ($file);  
?>