🚀 go-pugleaf

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
: mam taki oto klopot.
: robie wyszukiwanie przez:     "znaki" ~= /Taki sobie glupi znaki tekst/ ;

: chodzi o to , ze ja chce tekst zawrzec w zmiennej:

: $tekst="Taki sobie glupi znaki text";

: i jak moge z tej zmienej skorzystac w wyrazeniu: "znaki" ~=/--$tekst--/ ;

: nie wiem co wpisac wewnatrz / / .

$tekst

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
>: mam taki oto klopot.
>: robie wyszukiwanie przez:     "znaki" ~= /Taki sobie glupi znaki tekst/ ;
>
>: chodzi o to , ze ja chce tekst zawrzec w zmiennej:
>
>: $tekst="Taki sobie glupi znaki text";
>
>: i jak moge z tej zmienej skorzystac w wyrazeniu: "znaki" ~=/--$tekst--/ ;
>
>: nie wiem co wpisac wewnatrz / / .
>
>$tekst

>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

gdyby bylo to takie proste.   $ jest znakiem specjalnym,
wykorzystywanym w ~= do innych celow. i mi wychodzi ze:

plik: przyklad
#!/usr/bin/perl

$tekst = "Ala";
"l" ~= /$tekst/;
print "$1\n";

uruchomienie:  ./przyklad

rezultat:
syntax error at ./ttt line 4, near ""l" ~"
Execution of ./ttt aborted due to compilation errors.


czy ktos wie jak to zrobic ? ale zeby dzialalo. perl 5.003
-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo wrote:
> 

> gdyby bylo to takie proste.   $ jest znakiem specjalnym,
> wykorzystywanym w ~= do innych celow. i mi wychodzi ze:
> 
> plik: przyklad
> #!/usr/bin/perl
> 
> $tekst = "Ala";
> "l" ~= /$tekst/;
> print "$1\n";
> 
> uruchomienie:  ./przyklad
> 
> rezultat:
> syntax error at ./ttt line 4, near ""l" ~"
> Execution of ./ttt aborted due to compilation errors.
> 

#!/usr/bin/perl
$text='ma';
$TEXT='Ala ma kaca';
$TEXT=~/($text)/;
print $1;

nawiasy musza byc, bo inaczej zmienna $1 bedzie pusta.

gandalf


-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

: gdyby bylo to takie proste.   $ jest znakiem specjalnym,
: wykorzystywanym w ~= do innych celow. 

$ ma znaczenie specjalne (koniec lini) tylko w tych miejscach w których
ma to sens, zauważ że można zawsze stwierdzić "co programista miał na
myśli" - czy koniec stringu, czy wartość zmiennej.

: i mi wychodzi ze:

: plik: przyklad
: #!/usr/bin/perl

: $tekst = "Ala";
: "l" ~= /$tekst/;
: print "$1\n";

: uruchomienie:  ./przyklad

: rezultat:
: syntax error at ./ttt line 4, near ""l" ~"
: Execution of ./ttt aborted due to compilation errors.

Błąd wynika z tego że robisz =~ na stałej a nie na zmiennej. W ogóle
wydaje mi się że to jakiś chory sposób - dlaczego nie zrobisz po prostu

$tekst = "Ala";
print $tekst if $tekst =~ /l/; 

?

P.S. Jak ktoś słusznie zauważył, $1 nie będzie zdefiniowane jeżeli 
nie użyjesz nawiasów w RE. Ale możesz też użyć $&, które oznacza cały
tekst dopasowany do ostatnio dopasowanego RE (trochę to niepopolsku :-) )

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Manturzyk <mant...@chemie.uni-halle.de> wrote:
: Grzegorz Szyszlo wrote:
: > 
: > kom...@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
: > >: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
: > >: wylacznie reszta. jak to zrobic ?
: > >
: > >/${kuku}i/
: albo /$koko\i/

Tia... A jak napiszesz /${kuku}n/ ? :->

-- 
Piotr Pi�tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
>Grzegorz Szyszlo wrote:
>> 
>
>> gdyby bylo to takie proste.   $ jest znakiem specjalnym,
>> wykorzystywanym w ~= do innych celow. i mi wychodzi ze:
>> 
>> plik: przyklad
>> #!/usr/bin/perl
>> 
>> $tekst = "Ala";
>> "l" ~= /$tekst/;
>> print "$1\n";
>> 
>> uruchomienie:  ./przyklad
>> 
>> rezultat:
>> syntax error at ./ttt line 4, near ""l" ~"
>> Execution of ./ttt aborted due to compilation errors.
>> 
>
>#!/usr/bin/perl
>$text='ma';
>$TEXT='Ala ma kaca';
>$TEXT=~/($text)/;
>print $1;
>
>nawiasy musza byc, bo inaczej zmienna $1 bedzie pusta.
>
>gandalf

oczywiscie masz racje. ale blad jest nadal generowany mimo
uzycia nawiasow. znak $ w tym stringu oznacza koniec wiersza.

jeszcze raz. jak to zapisac ? bo ten zapis jest dla kompilatora
niezjadliwy.

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
>
>: gdyby bylo to takie proste.   $ jest znakiem specjalnym,
>: wykorzystywanym w ~= do innych celow. 
>
>$ ma znaczenie specjalne (koniec lini) tylko w tych miejscach w których
>ma to sens, zauwa¿ ¿e mo¿na zawsze stwierdziæ "co programista mia³ na
>my¶li" - czy koniec stringu, czy warto¶æ zmiennej.
>
>: i mi wychodzi ze:
>
>: plik: przyklad
>: #!/usr/bin/perl
>
>: $tekst = "Ala";
>: "l" ~= /$tekst/;
>: print "$1\n";
>
>: uruchomienie:  ./przyklad
>
>: rezultat:
>: syntax error at ./ttt line 4, near ""l" ~"
>: Execution of ./ttt aborted due to compilation errors.
>
>B³±d wynika z tego ¿e robisz =~ na sta³ej a nie na zmiennej. W ogóle
>wydaje mi siê ¿e to jaki¶ chory sposób - dlaczego nie zrobisz po prostu
>
>$tekst = "Ala";
>print $tekst if $tekst =~ /l/; 
>
>?
>
>P.S. Jak kto¶ s³usznie zauwa¿y³, $1 nie bêdzie zdefiniowane je¿eli 
>nie u¿yjesz nawiasów w RE. Ale mo¿esz te¿ u¿yæ $&, które oznacza ca³y
>tekst dopasowany do ostatnio dopasowanego RE (trochê to niepopolsku :-) )
>
>-- 
>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND


no dobrze. juz ci mowie po co mi sa zmienne po obydwu stronach.
chodzi o to, ze w tablicy mam liste wzorcow. analizuje plik
wejsciowy linia po linii, i kazda linie porownuje z kazdym ze wzorcow.

np. najpierw z klawiatury, albo wprost do tablicy wpisuje liste
poszukiwanych slow. np:

@slowka = ('ala' , 'Ala ' , ' O L A ');
a potem chce lowic te slowka z pliku wejsciowego <STDIN> na przyklad.

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

>>: i mi wychodzi ze:
>>
>>: plik: przyklad
>>: #!/usr/bin/perl
>>
>>: $tekst = "Ala";
>>: "l" ~= /$tekst/;
        ^^ o tutaj

>>: print "$1\n";
>>
>>: uruchomienie:  ./przyklad
>>
>>: rezultat:
>>: syntax error at ./ttt line 4, near ""l" ~"
>>: Execution of ./ttt aborted due to compilation errors.
>>
>>B³±d wynika z tego ¿e robisz =~ na sta³ej a nie na zmiennej.

stala tez mozna wstawic, to nie ma znaczenia.
czemu nikt nie zauwazyl, ze ja tam pisalem ~= zamiast =~ ?
no coz. najbardziej kretynskie byki sa najtrudniejsze
do wytropienia, szczegolnie jak sie zaczyna :)))))

>>$tekst = "Ala";
>>print $tekst if $tekst =~ /l/; 

to faktycznie dziala, tak samo jak:
print "Ala" if "Ala" =~ /l/;   :)))

aha. i kolejny problem.

mam sobie zmienna  $kuku, z zawartoscia "Mark" .
ale chce skorzystac z tej zmiennej, i chce znalezc slowka "Marki" .
stringi normalnie sie laczy, tzn   $kuku.'i'  .
ale. jak to zapisac w konwencji  /xxxx/  ?

moge zapisac cos takiego  /($kuku)i(szukana reszta)/
                                  ^ bo Marki
szukana reszta to przykladowo .*$?
zapis /$kukui(szukana reszta)/ jest bez sensu, bo on bedzie
chcial zmiennej $kukui , a to jest bez sensu.

ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
wylacznie reszta. jak to zrobic ?

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo wrote:

> oczywiscie masz racje. ale blad jest nadal generowany mimo
> uzycia nawiasow. znak $ w tym stringu oznacza koniec wiersza.
znak $ oznacza koniec wiersza, gdy stoi przed /, np:
&TEXT=~/$text$/; jest true gdy $text='kaca' a $TAXT='Ala go ma' :)

Piotr Piatkowski kiedys tam wrote:
>B³±d wynika z tego ¿e robisz =~ na sta³ej a nie na zmiennej.

a ja sie zdziwilem:
--8><--------------------
#!/usr/bin/perl -w
$text='ma';
'ala ma kaca'=~/($text)/;
print "$1\n";
--8><--------------------
i to dziala!

$ perl -v
This is perl, version 5.003 with EMBED
        built under linux at May  4 1997 02:15:47
        + suidperl security patch

Ale az nie moglem wiezyc i skopiowalem sobie ten Twoj kawalek.
blad jest tu: ~= zamiast =~.
Przy okazji przypomnialo mi sie, ze mam isc do okulisty na kontrole :)

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

: no dobrze. juz ci mowie po co mi sa zmienne po obydwu stronach.
                                      ^^^^^^^
                                      Ja pytałem po co Ci *stała* po 
                                      lewej stronie.

: chodzi o to, ze w tablicy mam liste wzorcow. analizuje plik
: wejsciowy linia po linii, i kazda linie porownuje z kazdym ze wzorcow.

: np. najpierw z klawiatury, albo wprost do tablicy wpisuje liste
: poszukiwanych slow. np:

: @slowka = ('ala' , 'Ala ' , ' O L A ');
: a potem chce lowic te slowka z pliku wejsciowego <STDIN> na przyklad.

Przede wszystkim poczytaj sobie o funkcji (man perlfunc) grep. Poza 
tym dalej wyrażasz się nieco niejasno, ale myślę że można zrobić coś 
takiego:

while(<>) {
  $linia = $_;
  @znalezione = grep( $linia =~ /$_/, @slowka );
  # ...
}

Ale nie sprawdziłem jak to działa - powinno wrzucić do tablicy 
@znalezione wszystkie słowa z tablicy @slowka które występują w danej
linii.

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
: Grzegorz Szyszlo wrote:

: > oczywiscie masz racje. ale blad jest nadal generowany mimo
: > uzycia nawiasow. znak $ w tym stringu oznacza koniec wiersza.
: znak $ oznacza koniec wiersza, gdy stoi przed /, np:

Niekoniecznie. Może być np. tak: /dupa$|jasio$/ :-)  Przynajmniej tak
mi się wydaje - bo nie sprawdzałem... (żeby się nikt nie 
zdemoralizował - dupa i jasio to moje odpowiedniki foo i bar :-) ).

: Piotr Piatkowski kiedys tam wrote:
: >Błąd wynika z tego że robisz =~ na stałej a nie na zmiennej.

OK, pomyliłem się - też mi się to dziwne wydało że perl nie pozwala 
na takie operacje ale nie chciało mi się sprawdzać :-)

: Ale az nie moglem wiezyc i skopiowalem sobie ten Twoj kawalek.
: blad jest tu: ~= zamiast =~.
: Przy okazji przypomnialo mi sie, ze mam isc do okulisty na kontrole :)

Hmm... A ja od roku noszę receptę na okulary :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

: mam sobie zmienna  $kuku, z zawartoscia "Mark" .
: ale chce skorzystac z tej zmiennej, i chce znalezc slowka "Marki" .
: stringi normalnie sie laczy, tzn   $kuku.'i'  .
: ale. jak to zapisac w konwencji  /xxxx/  ?

: moge zapisac cos takiego  /($kuku)i(szukana reszta)/
:                                   ^ bo Marki
: szukana reszta to przykladowo .*$?
: zapis /$kukui(szukana reszta)/ jest bez sensu, bo on bedzie
: chcial zmiennej $kukui , a to jest bez sensu.

: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
: wylacznie reszta. jak to zrobic ?

/${kuku}i/

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
>
>: no dobrze. juz ci mowie po co mi sa zmienne po obydwu stronach.
>                                      ^^^^^^^
>                                      Ja pyta³em po co Ci *sta³a* po 
>                                      lewej stronie.

no coz. czasami i stala sie przydaje :)
chociaz lekko sie zdziwilem jak napisales ze tam musi byc zmienna,
podczas gdy nie ulega ona zmianie. przy operatorach konwersji
ma to oczywiscie znaczenie. ale przy wyszukiwaniu ? lekko mi
szczeka opadla. zreszta pewnie nie raz mi opadnie, bo sie dopiero
tego wszystkiego ucze :)

>Przede wszystkim poczytaj sobie o funkcji (man perlfunc) grep. Poza 
>tym dalej wyra¿asz siê nieco niejasno, ale my¶lê ¿e mo¿na zrobiæ co¶ 
>takiego:
>
>while(<>) {
>  $linia = $_;
>  @znalezione = grep( $linia =~ /$_/, @slowka );
>  # ...
>}
>
>Ale nie sprawdzi³em jak to dzia³a - powinno wrzuciæ do tablicy 
>@znalezione wszystkie s³owa z tablicy @slowka które wystêpuj± w danej
>linii.
>
>-- 
>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

tak sie nieszczesliwie sklada ze mi sie to pewnie nie przyda :)
bo ja chce zapamietywac gdzies tam na boku reszte za znalezionym
slowkiem, bez zapamietywania samego slowka. ale juz rozwiazalem
ten problem :) troche bladzilem, ale dzieki twoim (i gandalfa) radom
jakos mi sie udalo :))

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
>: wylacznie reszta. jak to zrobic ?
>
>/${kuku}i/

>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

troche to dziwne, bo mi se pozre ze zmiennymi typu % . bo z tych
zmiennych normalnie wyciaga sie wartosci przez $zmienna{indeks} .
chociaz, tutaj $ i { nie sa niczym rozdzielone. no nic bede probowal.

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo wrote:
> 
> kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
> >: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
> >: wylacznie reszta. jak to zrobic ?
> >
> >/${kuku}i/
albo /$koko\i/

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
: kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
: >: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
: >: wylacznie reszta. jak to zrobic ?
: >
: >/${kuku}i/

: >Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

: troche to dziwne, bo mi se pozre ze zmiennymi typu % . bo z tych
: zmiennych normalnie wyciaga sie wartosci przez $zmienna{indeks} .
: chociaz, tutaj $ i { nie sa niczym rozdzielone. no nic bede probowal.

To jest żywcem wzięte z SHELL'a. 

Jakby się uprzeć to by to można traktować zresztą jako odwołanie do 
czegoś w rodzaju tablicy asocjacyjnej wszystkich zmiennych, czyli:

$x{aaa} oznacza wartość w tablicy %x pod kluczem aaa
${aaa}  oznacza wartość w tablicy zmiennych pod kluczem aaa

Ale to jest trochę naciągana analogia :-)

Swoją drogą, to można też tak:

print "2+2=@{[2+2]}\n";

:-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:

>Swoj± drog±, to mo¿na te¿ tak:
>
>print "2+2=@{[2+2]}\n";

>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

lojezu !!! nie strasz :) a co to wogole znaczy ?

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
>Grzegorz Szyszlo wrote:
>> 
>> kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>> >: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
>> >: wylacznie reszta. jak to zrobic ?
>> >
>> >/${kuku}i/
>albo /$koko\i/
>
>gandalf

nie wpadlem na to :) cwane   (po raz kolejny podnosze opadnieta szczeke)

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
: kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:

: >Swoją drogą, to można też tak:
: >
: >print "2+2=@{[2+2]}\n";

: >Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

: lojezu !!! nie strasz :) a co to wogole znaczy ?

To tylko sposób na wstawienie do stringu praktycznie dowolnego 
wyrażenia (bez używania kropki do sklejania), takiego jakiego można
podać funkcji eval. Ale jest to trochę mało czytliwe i szczerze 
mówiąc nigdy z tego nie korzystałem (a teraz musiałem dość długo 
szukać w man perlref).

A jak to dokładnie działa to pewny nie jestem :-> chociaż się 
domyślam... W każdym razie format jest @{[ wyrażenie ]}

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
: Grzegorz Szyszlo wrote:
: > 
: > kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
: > >: ja nie chce stosowac nawiasow do $kuku , bo jest mi potrzebna
: > >: wylacznie reszta. jak to zrobic ?
: > >
: > >/${kuku}i/
: albo /$koko\i/

Tia... A jak napiszesz /${kuku}n/ ? :->

Robię "supersede" na tamtym artykule, bo sam wymyśliłem - można np. 
napisać tak: /$koko\s{0}i/  Ale czy to ma sens?...

Acha - można jeszcze użyć perlowych nawiasów, które się nie liczą do 
$1, $2... - bardzo praktyczne w niektórych sytuacjach (chociaż może 
nie tutaj):  /(?:$koko)i/

Można jeszcze zrobić tak:  /$koko i/x

Albo tak: /$koko(?#to jest komentarz)i/

To co, robimy konkurs? Wygrywa ten kto jako ostatni poda nowy pomysł 
- oczywiście znacząco różny od poprzednich (czyli np. /$koko\n{0}i/ 
odpada :-) )

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Grzegorz Szyszlo wrote:
> 
> >albo /$koko\i/
> 
> nie wpadlem na to :) cwane   (po raz kolejny podnosze opadnieta szczeke)
tylko musisz uwazac, bo akurat i=\i, ale np. \d jest dowolna cyfra.
\dom = 1om, lub 2om lub 3om ... ale nie dom :)

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Piotr Piatkowski wrote:
> 
> Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
> : > kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
> : > >/${kuku}i/
> : albo /$koko\i/
> Tia... A jak napiszesz /${kuku}n/ ? :->
> napisaæ tak: /$koko\s{0}i/  Ale czy to ma sens?...
> nie tutaj):  /(?:$koko)i/
> Mo¿na jeszcze zrobiæ tak:  /$koko i/x
> Albo tak: /$koko(?#to jest komentarz)i/
> 
> To co, robimy konkurs? Wygrywa ten kto jako ostatni poda nowy pomys³
> - oczywi¶cie znacz±co ró¿ny od poprzednich (czyli np. /$koko\n{0}i/
> odpada :-) )
co myslisz ze wyczerpales mozliwosci?
a moze by tak /$kuku\xXX/ lub /$kuku\YYY/ , gdzie XX to kod
szesnastkowy a YYY osemkowy tej literki?

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:

>Albo tak: /$koko(?#to jest komentarz)i/
>
>To co, robimy konkurs? Wygrywa ten kto jako ostatni poda nowy pomys³ 
>- oczywi¶cie znacz±co ró¿ny od poprzednich (czyli np. /$koko\n{0}i/ 
>odpada :-) )

>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Ja sie nie pisze. jeszcze za malo wiem :)

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
: > Tia... A jak napiszesz /${kuku}n/ ? :->
: > napisać tak: /$koko\s{0}i/  Ale czy to ma sens?...
: > nie tutaj):  /(?:$koko)i/
: > Można jeszcze zrobić tak:  /$koko i/x
: > Albo tak: /$koko(?#to jest komentarz)i/

: co myslisz ze wyczerpales mozliwosci?

W żadnym wypadku - właśnie specjalnie nie kombinowałem dalej, żeby 
nie wyczerpać wszystkich możliwości :-)

: a moze by tak /$kuku\xXX/ lub /$kuku\YYY/ , gdzie XX to kod
: szesnastkowy a YYY osemkowy tej literki?

OK, to w takim razie...

/$kuku{1}/

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:

>OK, to w takim razie...
>
>/$kuku{1}/

wyciagniecie z tablicy asocjacyjnej %kuku wartosci ukrytej
pod nazwa "1"  :)))) chyba pudlo :)

>Piotr Pi±tkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo wrote:
> 
> kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
> 
> >OK, to w takim razie...
> >
> >/$kuku{1}/
> 
> wyciagniecie z tablicy asocjacyjnej %kuku wartosci ukrytej
> pod nazwa "1"  :)))) chyba pudlo :)
nieee, to byloby /$kuku{'1'}/, a co to za dziwny stwor to nie wiem.
zreszta: programujcie sobie jak chcecie :) Skrypt w perlu jest
poprawny, gdy spelni swoje zadanie zanim Cie szef wyrzuci.
(to nie moje, to L. Wall)

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
>Grzegorz Szyszlo wrote:
>> 
>> kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) wrote:
>> 
>> >OK, to w takim razie...
>> >
>> >/$kuku{1}/
>> 
>> wyciagniecie z tablicy asocjacyjnej %kuku wartosci ukrytej
>> pod nazwa "1"  :)))) chyba pudlo :)
>nieee, to byloby /$kuku{'1'}/, a co to za dziwny stwor to nie wiem.
>zreszta: programujcie sobie jak chcecie :) Skrypt w perlu jest
>poprawny, gdy spelni swoje zadanie zanim Cie szef wyrzuci.
>(to nie moje, to L. Wall)
>
>gandalf

jesli nie ma znakow specjalnego przeznaczenia, w szczegolnosci dla kombinacji
samych liter i cyfr, mozna uszka opuscic.
-- 
               oOOo     /====================================\
         /=====\__/====/  http://avalon.wbc.lublin.pl/~znik/ |
         | Grzegorz Szyszlo mailto:znik@avalon.wbc.lublin.pl |
         \===================================================/
          polecam  http://www.agh.edu.pl/ogonki/   mime.html

Grzegorz Szyszlo wrote:

> jesli nie ma znakow specjalnego przeznaczenia, w szczegolnosci
> dla kombinacji
> samych liter i cyfr, mozna uszka opuscic.

opuszczam oba uszka (i oczka tez) ;-))

gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:
: Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
: >Grzegorz Szyszlo wrote:

: >> >/$kuku{1}/
: >> 
: >> wyciagniecie z tablicy asocjacyjnej %kuku wartosci ukrytej
: >> pod nazwa "1"  :)))) chyba pudlo :)
: >nieee, to byloby /$kuku{'1'}/, a co to za dziwny stwor to nie wiem.

: jesli nie ma znakow specjalnego przeznaczenia, w szczegolnosci dla kombinacji
: samych liter i cyfr, mozna uszka opuscic.

Dobrze mówi, dać mu piwa! Dałem plamę - przyznaję. Niniejszym uznaję 
się przegranym w konkursie :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Piatkowski wrote:
> 
> Dobrze mówi, daæ mu piwa! Da³em plamê - przyznajê. Niniejszym uznajê
> siê przegranym w konkursie :-)
O! wygralem? gdzie jest dejanews?! szybko szybko, jak to bylo
z tym konkursem? :) buuuu, ani nagrod ani mousepada od EB :(

pozdrowka
gandalf

-- 
 _________                    _________
|          DC Piotr Manturzyk          |
| mailto:manturzyk@chemie.uni-halle.de |
|____ University of Halle, Germany ____|

Piotr Manturzyk <manturzyk@chemie.uni-halle.de> wrote:
: Piotr Piatkowski wrote:
: > 
: > Dobrze mówi, dać mu piwa! Dałem plamę - przyznaję. Niniejszym uznaję
: > się przegranym w konkursie :-)
: O! wygralem? gdzie jest dejanews?! szybko szybko, jak to bylo
: z tym konkursem? :) buuuu, ani nagrod ani mousepada od EB :(

A tam - daleko jesteś, więc mogę Ci postawić piwo *przy okazji* :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Piotr Manturzyk wrote:
> Piotr Piatkowski wrote:
> >
> > Dobrze mówi, daæ mu piwa! Da³em plamê - przyznajê. Niniejszym uznajê
> > siê przegranym w konkursie :-)
>
> O! wygralem? gdzie jest dejanews?! szybko szybko, jak to bylo
> z tym konkursem? :) buuuu, ani nagrod ani mousepada od EB :(

Daj adres pocztowy przesle koszulke :-)

ehhh.. Piotr :-)

Grzegorz .... smiejacy sie jak norka :-)

P.S. A propos koszulki to nie zartuje :-)

--
Gregory BRZESKI - WEB Corporation Polska

DOn 4 Jun 1997, Piotr Piatkowski wrote:

> : >print "2+2=@{[2+2]}\n";
> 
> To tylko sposób na wstawienie do stringu praktycznie dowolnego 
> wyrażenia (bez używania kropki do sklejania), takiego jakiego można
> podać funkcji eval. Ale jest to trochę mało czytliwe i szczerze 
> mówiąc nigdy z tego nie korzystałem (a teraz musiałem dość długo 
> szukać w man perlref).
> 
> A jak to dokładnie działa to pewny nie jestem :-> chociaż się 
> domyślam... W każdym razie format jest @{[ wyrażenie ]}

  Dla ciekawych:

  [ lista_wyrazen ] tworzy anonimowa referencje do tablicy zawierajacej
poszczegolne wyrazenia (oddzielone przecinkami (chyba, ze nie)). @{ ref }
robi z tej referencji z powrotem tablice, ktora print wypisuje. 

    $var = 'J';
    $ref = [ Ewa, $var . 'B', 'Iza' ];
    print @{ $ref }[1], "\n"; # 
  
  A ze perl po malpce lub dolarze w stringu robi sie skrupulatny co do
liczby zamknietych i otwartych nawiasow rzeczywiscie mozna do niego
wstawic co sie chce. 
              
  pozdrawiam

   Piotr Budrewicz  

Piotr Dominik Budrewicz  | "Knocking him down won the first fight. I wanted
Wa-wa, Batorego 27 m. 24 |  to win all the next ones, too. So they'd leave
tel. (022)25-53-34       |  me alone."
e-mail: pdb@irc.pl.      |     Ender Wiggin -- `Ender's game' - Orson Scot Card