Using perl Syntax Highlighting
- use URI::Split qw(uri_split);
- my ($scheme, $auth, $path, $query, $frag) = uri_split("http://localhost:8080/test.php");
- my $save = $auth;
- print $save."\n";
- open(FILE,">>".$save.".txt");
- print FILE $save;
- close FILE;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El problema está que el script solo crea un archivo vacío llamado localhost y yo necesito que lo cree bien, con el título "localhost:8080", con el valor de $save. El problema parece ser el ":".
¿ Alguien me puede ayudar a solucionar este problema ?
