🚀 go-pugleaf

> > Chodzi mi oto aby przy pomocy skryptu rozkodowac ciag znakow z 
> > formularza na stronie WWW i wynik zapisac do pliku .
> 
> #!/usr/local/bin/perl
> # rozpakowanie
> $QUERY = $ENV{QUERY_STRING};
> $QUERY =~ s/\+/ /g;                      # Change +'s to spaces
> $QUERY =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # Decode special
> characters

A nie prosciej tak:

#!/usr/bin/perl
use CGI;
$query = new CGI(\*STDIN);
open(PLIK, '>>plik.txt') || die;
 print PLIK $query->param('pole_formularza');
close(PLIK);
# a tu odpowiedz html

-- 
              __ __  ________________________________
  /\  /\  /  /_'/_'  http://friko3.onet.pl/ld/adlee98
 / / /_/ /_ /_./_.   http://www.pbg.pl
_____________________________________________________
  ROTRING - PELIKAN http://www.redis.polbox.com