Article View: pl.comp.lang.perl
Article #1028Re: Jak przy pomocy skryptu w perlu zapisac cos do pliku ?
From: Krzysztof Juszkiewicz
Date: Mon, 02 Mar 1998 10:16
Date: Mon, 02 Mar 1998 10:16
21 lines
1391 bytes
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
Technical Details
Message-ID:
<34FA86E9.5AF876C2@kt.agh.edu.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!polsl.gliwice.pl!agh.edu.pl!not-for-mailReferences:
<34f73883.0@news.tpnet.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!polsl.gliwice.pl!agh.edu.pl!not-for-mail From: Krzysztof Juszkiewicz <juszkiew@kt.agh.edu.pl> Newsgroups: pl.comp.lang.perl Subject: Re: Jak przy pomocy skryptu w perlu zapisac cos do pliku ? Date: Mon, 02 Mar 1998 11:16:09 +0100 Organization: University of Mining and Metalurgy Lines: 21 Message-ID: <34FA86E9.5AF876C2@kt.agh.edu.pl> References: <34f73883.0@news.tpnet.pl> NNTP-Posting-Host: pc205b.kt.agh.edu.pl Mime-Version: 1.0 X-Mailer: Mozilla 4.03 [en] (Win95; I) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit