🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #1123

Re: Zmiana!?

#1123
From: Tomasz Mierzejewski
Date: Mon, 16 Mar 1998 13:40
49 lines
2167 bytes
Waldek Grudzień napisał(a) w wiadomości: ...
On Sun, 15 Mar 1998, Lukasz "Gulash" Wojciechowski wrote:

> czesc wszystkim
> Mam maly problem ze skryptami.
> Tzn.dopiero sie ucze je pisac i natrafilem
> na przeszkode nie do pokonania a mianowicie:
> jak zrobic zeby skrypt pobieral wartosc zmiennej
> nie "z siebie" tylko z zewnatrz np.:
> Mam zmienna w skrypcie
> $zmienna="cos_tam"
> ale chce zeby ta zmienna pobieral ze sciezki
> z jakiej sie ten skrypt wywoluje np.:
> http://www.cos.net/cgi-bin/licznik?gulash
> i w tym wypadku pobiera wartosc zmiennej = gulash
> i jak zrobic zeby to gulash wstawil zamiast cos_tam????
> Ps: Wybaczcie za takie troche dziwne formulowanie mysli
> ale nie wiedzialem jak sie opisac swoj problem inaczej:-D

Radzę użyć modułu CGI,
use CGI;
$query = new CGI;

wtedy rozbieranie parametrów (i nie tylko) jest banalne - przykładowo dla
parametru o nazwie gulash :

$zmienna = $query->param('gulash');


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Oczywiscie zeby to zadzialalo musisz wywolac skrypt w ten spopsob
www.costam.net/cgi-bin/skrypt?gulash=wartosc

wtedy do zmiennej $zmienna zostanie zapisana wartosc "wartosc" :)

proponuje tez przed definicja zmiennych dodawac my (dostepne w PELU 5.0 i
wyzej)

bedzie to wtedy wygladalo tak:

#! /bin/perl
use CGI;
my $query = new CGI;
my $zmienna = $query->param('gulash');

uzywajac CGI unikniesz wielu problemow :)

Mider
Technical Details
Message-ID: <6ejacb$t7l$1@korweta.task.gda.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!not-for-mail
References: <6eh680$e21$1@korweta.task.gda.pl> <Pine.HPP.3.96.980316071406.4507B-100000@clinicom.uhc.lublin.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!not-for-mail
From: "Tomasz Mierzejewski" <mider @cavern.com.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: Zmiana!?
Date: Mon, 16 Mar 1998 14:40:43 +0100
Organization: Cavern
Lines: 51
Message-ID: <6ejacb$t7l$1@korweta.task.gda.pl>
References: <6eh680$e21$1@korweta.task.gda.pl> <Pine.HPP.3.96.980316071406.4507B-100000@clinicom.uhc.lublin.pl>
NNTP-Posting-Host: klementyna.cavern.com.pl
X-Newsreader: Microsoft Outlook Express 4.71.1712.3
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit