Re: Magiczny parametr.

Article View: pl.comp.lang.perl

Article #52559

#52559

From: KEyS
Date: Sun, 15 Sep 2013 21:37

48 lines
1819 bytes

Użytkownik Stachu 'Dozzie' K. napisał:
> On 2013-09-14, KEyS <key_studio@wp.pl> wrote:
>> Witam,
>>     mam problem "jak napisać procedurę obsługującą parametr magiczny?"
>>
>> ma działać jak np. chomp:
>>      chomp    -> modyfikuje $_
>>      chomp($_) działa tak samo.
>
> No i w czym masz w ogóle problem? $_ to zmienna globalna.
>
i co z tego?

dla

sub S(\$){
   my $S=shift;  #ref($PAR)
   $$S=11;       #$PAR=11
}

Jak napisać funkcję zwracającą wynik przez parametr. W powyższym 
przykładzie próbowałem to zrobi przez prototyp (\$), ale kiedy nie podam 
parametru - program czepia się.

Wywołanie:

   X;

kończy się błędem.

Chcę żeby $_ po wywołaniu X miało wartość 11;

Przy funkcji nie prototypowanej (innej) też nie działa, np:

sub X{
   my $S=shift;
   print "$S\n";
}

$_=1111;

Wywołanie:

X;

powinno wypisać 1111, nie robi nic.

Technical Details

Message-ID: <l159av$8e9$1@node2.news.atman.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail

References: <l11q61$8c3$1@node1.news.atman.pl> <slrnl391i7.91q.dozzie@jarowit.net>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
From: KEyS <key_studio@wp.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: Magiczny parametr.
Date: Sun, 15 Sep 2013 23:37:35 +0200
Organization: ATMAN - ATM S.A.
Lines: 49
Message-ID: <l159av$8e9$1@node2.news.atman.pl>
References: <l11q61$8c3$1@node1.news.atman.pl> <slrnl391i7.91q.dozzie@jarowit.net>
NNTP-Posting-Host: g146.in.net.pl
Mime-Version: 1.0
X-Trace: node2.news.atman.pl 1379281055 8649 89.234.218.146 (15 Sep 2013 21:37:35 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Sun, 15 Sep 2013 21:37:35 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0 SeaMonkey/2.20
In-Reply-To: <slrnl391i7.91q.dozzie@jarowit.net>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message