Article View: pl.comp.lang.perl
Article #39715Re: Pytanie nowicjusza
From: hubert depesz lubaczewski
Date: Fri, 15 Oct 2004 06:22
Date: Fri, 15 Oct 2004 06:22
26 lines
1591 bytes
1591 bytes
Moon wyrzeźbił(a):
> Bardzo Ci dziękuję, a mógłbyś jeszcze rozszyfrować to (najlepiej na
> przykładzie) ?
> $abc =~ s/(.)/enc($1)/ge
ten regexp zamienia każdy (no, prawie każdy, ale można przyjąć, że
każdy) znak w $abc na wynik funkcji enc której poda się ten znak.
czyli jeśli funkcja enc wyglądałaby tak:
sub enc {
my $x = shift;
return "-$x-";
}
a $abc = "depesz"
to wynik byłby
"-d--e--p--e--s--z-"
depesz
--
napisanie do mnie na priv daje 99.9% gwarancję braku odpowiedzi
*-----------------------------------------------------------------*
sklep z rzeczami do domu: http://ulek.net/
Technical Details
Message-ID:
<slrn.pl.cmur5n.t3v.depesz@depeszms.hq.eo.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.nask.pl!newsfeed.atman.pl!depeszms.hq.eo.pl!newsReferences:
<selxbcly44mx.3qe4mihyriz3$.dlg@40tude.net> <slrn.pl.cmtgk9.hh6.depesz@depeszms.hq.eo.pl> <1oiwhmrig2tez.11nsmz4ee8nn9.dlg@40tude.net>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.nask.pl!newsfeed.atman.pl!depeszms.hq.eo.pl!news From: hubert depesz lubaczewski <depesz@depesz.com> Newsgroups: pl.comp.lang.perl Subject: Re: Pytanie nowicjusza Date: Fri, 15 Oct 2004 08:22:47 +0200 Organization: depesz Software Lines: 26 Message-ID: <slrn.pl.cmur5n.t3v.depesz@depeszms.hq.eo.pl> References: <selxbcly44mx.3qe4mihyriz3$.dlg@40tude.net> <slrn.pl.cmtgk9.hh6.depesz@depeszms.hq.eo.pl> <1oiwhmrig2tez.11nsmz4ee8nn9.dlg@40tude.net> NNTP-Posting-Host: anaconda.eo.pl Mime-Version: 1.0 X-Trace: node3.news.atman.pl 1097822086 36683 217.17.33.94 (15 Oct 2004 06:34:46 GMT) X-Complaints-To: abuse@atman.pl NNTP-Posting-Date: Fri, 15 Oct 2004 06:34:46 +0000 (UTC) X-Licznik: 8967 User-Agent: slrn/0.9.7.4 (pl-1.4.3) (Linux/2.6.8-1-686 (i686)) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit