Jak przy pomocy skryptu w perlu zapisac cos do pliku ?

Thread View: pl.comp.lang.perl

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by skyelk Fri, 27 Feb 1998 21:59

#1027

Author: skyelk
Date: Fri, 27 Feb 1998 21:59

2 lines
716 bytes

Chodzi mi oto aby przy pomocy skryptu rozkodowac ciag znakow z formularza na
stronie WWW i wynik zapisac do pliku .

Re: Jak przy pomocy skryptu w perlu zapisac cos do pliku ?

#1028

Author: Krzysztof Juszkiewicz
Date: Mon, 02 Mar 1998 10:16

21 lines
1391 bytes

skyelk wrote:
> 
> 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
#zapisz
open PLIK,">plik";
print PLIK $QUERY;
close PLIK;
-- 
Krzysztof Juszkiewicz mailto:juszkiew@kt.agh.edu.pl IRC: jchris
 _  _   ___  http://www.kt.agh.edu.pl/~jchris      ICQ: 3140890
| |/ / |_ _| Dept. of Telecommunications     tel. +4812 6173638  
|_|\_\  |_|  Univ. of Mining & Metalurgy           fax. 6342372
             30-059 Krakow, Poland           tel. secr. 6345582

Re: Jak przy pomocy skryptu w perlu zapisac cos do pliku ?

#1029

Author: Jaroslaw Strzalkowski
Date: Mon, 02 Mar 1998 14:19

19 lines
1460 bytes

Krzysztof Juszkiewicz <juszkiew@kt.agh.edu.pl> wrote:
: skyelk wrote:
:> 
:> 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

No wiesz...
A jeśli Ci w jakimś polu formularza user wpisze & to jak to później 
zinterpretujesz? Najpierw podzielić na zmienne a potem dopiero 
dekodować %[\da-f]{2}. A tak w ogóle to cgi-lib czy inne takie.
-- 
Jaroslaw Strzalkowski, Uczelniane Centrum Informatyki AGH, Krakow

Re: Jak przy pomocy skryptu w perlu zapisac cos do pliku ?

#1030

Author: Adam Lesien
Date: Thu, 05 Mar 1998 19:49

26 lines
1416 bytes

> > 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads