From: Szymon =?iso-8859-2?Q?Sok=F3=B3?= <szymon bastard.operator.from.hell.pl>
Subject: Re: =?iso-8859-2?Q?regexp(by=E6_mo=BFe?= banalny)
On 6 Jul 2007 18:19:29 +0200, Sławomir Szczyrba wrote:

> a (sądząc z 'początkowego' regexpa są to ciągi cyfr i liter,
> bez białych znaków w środku)
Explicite powiedziane nie było.

--
Szymon Sokół (SS316-RIPE) -- Network Manager B
Computer Center, AGH - University of Science and Technology, Cracow, Poland O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982 F
Free speech includes the right not to listen, if not interested -- Heinlein H

From: slackwareWYTNIJTO poczta.onet.pl
Subject: Przefiltrowac i pogrupowac
Mam w pliku tekstowym ponad 4000 adresow email, zapisanych w takiej postaci jak
nizej:
3kserv gd.onet.pl
4filary wp.pl
4xm wp.pl
606640020 interia.pl
77dana wp.pl
80328979 pro.onet.pl
3kserv gd.onet.pl
4filary wp.pl
4xm wp.pl
606640020 interia.pl
77dana wp.pl
80328979 pro.onet.pl
gelou germanos.gr
hans germany.de

Chcialbym wszystkie maile z .pl na koncu wrzucic do jednego pliku.
Drugi problem jest taki, aby oddzielic nazwy od domen tak aby w pliku pozostalo
tylko:
germany.de
gd.onet.pl
wp.pl
interia.pl

Potrzebne mi jest to aby wrzucic czesc dobrych emaili do whitelist
SpamAssassina. Gdybym mial to posegregowane to ulatwiloby mi to dzialanie.
Moze ktos wspomoc perlowym poleceniem ?




--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

From: hubert depesz lubaczewski <depesz depesz.com>
Subject: Re: Przefiltrowac i pogrupowac
On 2007-07-06, slackwareWYTNIJTO poczta.onet.pl <slackwareWYTNIJTO poczta.onet.pl> wrote:
> Chcialbym wszystkie maile z .pl na koncu wrzucic do jednego pliku.
> Drugi problem jest taki, aby oddzielic nazwy od domen tak aby w pliku pozostalo
> tylko:
> germany.de
> gd.onet.pl
> wp.pl
> interia.pl
>
> Potrzebne mi jest to aby wrzucic czesc dobrych emaili do whitelist
> SpamAssassina. Gdybym mial to posegregowane to ulatwiloby mi to dzialanie.
> Moze ktos wspomoc perlowym poleceniem ?

koniecznie perlowym?
grep -E '\.pl$' plik > tylko.pl
awk -F '{print " "$2}' plik | sort | uniq > domeny

depesz

--
quicksil1er: "postgres is excellent, but like any DB it requires a
highly paid DBA. here's my CV!" :)
http://www.depesz.com/ - blog dla ciebie (i moje CV)

From: slackwareWYTNIJTO poczta.onet.pl
Subject: Re: Przefiltrowac i pogrupowac - dzieki Depesz
> On 2007-07-06, slackwareWYTNIJTO poczta.onet.pl
<slackwareWYTNIJTO poczta.onet.pl> wrote:
> > Chcialbym wszystkie maile z .pl na koncu wrzucic do jednego pliku.
> > Drugi problem jest taki, aby oddzielic nazwy od domen tak aby w pliku pozostalo
> > tylko:
> > germany.de
> > gd.onet.pl
> > wp.pl
> > interia.pl
> >
> > Potrzebne mi jest to aby wrzucic czesc dobrych emaili do whitelist
> > SpamAssassina. Gdybym mial to posegregowane to ulatwiloby mi to dzialanie.
> > Moze ktos wspomoc perlowym poleceniem ?
>
> koniecznie perlowym?
> grep -E '\.pl$' plik > tylko.pl
> awk -F '{print " "$2}' plik | sort | uniq > domeny
>
> depesz
dzieki dziala.



--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

From: prompt <prompt tlen.WYTNIJ.TO.pl>
Subject: Polskie znaki przez =?UTF-8?B?c2llxIc=?=
Witam,
I znów problem z polskimi znakami. Kodowanie UTF8, dosŧęp do bazy PostgreSQL
przez DBI i DBD::PgPP. Połączenie nie przepuszcza ogonĸów:
"Wide character in send at /opt/ActivePerl-5.8/lib/IO/Socket.pm line 218".
W necie znalazłem same zgłoszenia problemu, żadnych pomysłów na rozwiązanie.
Pozdrawiam
Janusz

From: =?ISO-8859-2?Q?=A3ukasz_Filut?= <orcus poczta.onet.pl>
Subject: Re: =?ISO-8859-2?Q?regexp=28by=E6_mo=BFe_banalny=29?=
Szymon Sokół pisze:
> On 6 Jul 2007 18:19:29 +0200, Sławomir Szczyrba wrote:
>
>> a (sądząc z 'początkowego' regexpa są to ciągi cyfr i liter,
>> bez białych znaków w środku)
> Explicite powiedziane nie było.
>
ja bym dla pewności zrobił tak
cos=split /\s+/;

pozdrawiam

--
orcus
Cztery zjawiska blokują postęp ludzkości: ignorancja, głupota, komitety
normalizacyjne oraz ludzie sprzedający komputery.
http://www.wsb.pl

From: =?iso-8859-2?Q?S=B3awomir?= Szczyrba <creature of.the.night>
Subject: Re: =?iso-8859-2?Q?regexp(by=E6_mo=BFe?= banalny)
They're watching you, Łukasz Filut.
>>> a (sądząc z 'początkowego' regexpa są to ciągi cyfr i liter,
>>> bez białych znaków w środku)
>> Explicite powiedziane nie było.
> ja bym dla pewności zrobił tak
> cos=split /\s+/;
>
Jak będą z przodu jakieś białe znaki, dostaniesz dodatkowe puste
pole w tablicy...

Sławek
--
________
_/ __/ __/ Gustaw chcac zaimponowac Anieli ukazuje jej swoje wdzieki.
\__ \__ \_______________________________________________________________
/___/___/ Sławomir Szczyrba steev/AT/hot\dot\pl

From: "Maciej Jurkiewicz" <mj pwserver.dabrowa.pl>
Subject: wielkosc pliku i stat
yo.
Czy funkcja stat perla ma jakies organiczenie co do wielkości podawanego
pliku.
Mam plik około 18GB i jak daje wielkosc=stat(PLIK); print $wielkosc[7] to
mi
pisze 823526400. dlaczego???
pozdro.


perl -V

Summary of my perl5 (revision 5 version 6 subversion 1) configuration:
Platform:
osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=undef use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
Compiler:
cc='cl', ccflags
='-nologo -O1 -MD -Zi -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX',
optimize='-O1 -MD -Zi -DNDEBUG',
cppflags='-DWIN32'
ccversion='', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
alignbytes=8, usemymalloc=n, prototype=define
Linker and Libraries:
ld='link', ldflags
'-nologo -nodefaultlib -debug -opt:ref,icf -libpath:"C:\Perl\lib\CORE" -machine:x86'
libpth="C:\Perl\lib\CORE"
libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
msvcrt.lib
perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
msvcrt.lib
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ',
lddlflags='-dll -nologo -nodefaultlib -debug -opt:ref,icf -libpath:"C:\Perl\lib\CORE"
-machine:x86'


Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY USE_ITHREADS PERL_IMPLICIT_CONTEXT
PERL_IMPLICIT_SYS
Locally applied patches:
ActivePerl Build 638
Built under MSWin32
Compiled at Apr 13 2004 19:24:21
INC:
C:/Perl/lib
C:/Perl/site/lib
.

Kosmetyki - mleczka, szampony, środki przeciw cellulitowi
From: =?ISO-8859-2?Q?=A3ukasz_Filut?= <orcus poczta.onet.pl>
Subject: Re: =?ISO-8859-2?Q?regexp=28by=E6_mo=BFe_banalny=29?=
Sławomir Szczyrba pisze:
> They're watching you, Łukasz Filut.
>>>> a (sądząc z 'początkowego' regexpa są to ciągi cyfr i liter,
>>>> bez białych znaków w środku)
>>> Explicite powiedziane nie było.
>> ja bym dla pewności zrobił tak
>> cos=split /\s+/;
>>
> Jak będą z przodu jakieś białe znaki, dostaniesz dodatkowe puste
> pole w tablicy...
>
> Sławek
to może tak
s/^\s+//;
cos=split /\s+/;
Pozdrawiam.

--
orcus
Cztery zjawiska blokują postęp ludzkości: ignorancja, głupota, komitety
normalizacyjne oraz ludzie sprzedający komputery.
http://www.wsb.pl

From: nusch <nusch88 gmail.com>
Subject: Konwersja Int-> float 64bit -> hex
Jak w temacie, jak co=B6 takiego wykona=E6? Mam liczb=EA ca=B3kowit=B1 np 3=
600
(3.600000E+03) i chce j=B1 zapisa=E6 za pomoc=B1 8 bit=F3w: 40 AC 20 00 00 =
00
00 00

From: "Stachu 'Dozzie' K." <dozzie dynamit.im.pwr.wroc.pl.nospam>
Subject: Re: Konwersja Int-> float 64bit -> hex
On 10.07.2007, nusch <nusch88 gmail.com> wrote:
> Jak w temacie, jak coś takiego wykonać? Mam liczbę całkowitą np 3600
> (3.600000E+03) i chce ją zapisać za pomocą 8 bitów: 40 AC 20 00 00 00
^^^^^^^
> 00 00

Za pomocą jednego bajtu będzie ciężko.























perldoc -f pack

--
Secunia non olet.
Stanislaw Klekot

From: nusch <nusch88 gmail.com>
Subject: Re: Konwersja Int-> float 64bit -> hex
On 10 Lip, 14:45, "Stachu 'Dozzie' K."
<doz... dynamit.im.pwr.wroc.pl.nospam> wrote:
> On 10.07.2007, nusch <nusc... gmail.com> wrote:> Jak w temacie, jak co=B6=
takiego wykona=E6? Mam liczb=EA ca=B3kowit=B1 np 3600
> > (3.600000E+03) i chce j=B1 zapisa=E6 za pomoc=B1 8 bit=F3w: 40 AC 20 00=
00 00
>
> ^^^^^^^
>
> > 00 00
>
> Za pomoc=B1 jednego bajtu b=EAdzie ci=EA=BFko.
>
> perldoc -f pack
>
> --
> Secunia non olet.
> Stanislaw Klekot

Nie chc=EA korzysta=E6 z wbudowanych typ=F3w perla , bo czyta=B3em =BFe dla=
64-
bitowych float musi co=B6 by=E6 kompilowane razem z perlem albo
obs=B3ugiwane przez system, zale=BFy mi =BFeby kod by=B3 w pe=B3ni przeno=
=B6ny.
Gdzie mog=EA znale=BC=E6 dok=B3adnie opis jak konwertowa=E6 "na kartce", w=
tedy
spr=F3buj=EA to sam zaimplementowa=E6

From: =?iso-8859-2?Q?S=B3awomir?= Szczyrba <creature of.the.night>
Subject: Re: =?iso-8859-2?Q?regexp(by=E6_mo=BFe?= banalny)
BOFH excuse 43: Łukasz Filut forgot system password

>>> ja bym dla pewności zrobił tak
>>> cos=split /\s+/;
>> Jak będą z przodu jakieś białe znaki, dostaniesz dodatkowe puste
>> pole w tablicy...
> to może tak
> s/^\s+//;
> cos=split /\s+/;
>
Jeśli będą z tyłu jakieś... ;)

> Pozdrawiam.

Sławek
--
________ Beanow pedzono za miasto i tam im obcinano pila
_/ __/ __/ niepotrzebne czesci.
\__ \__ \_______________________________________________________________
/___/___/ Sławomir Szczyrba steev/AT/hot\dot\pl

From: "Stachu 'Dozzie' K." <dozzie dynamit.im.pwr.wroc.pl.nospam>
Subject: Re: =?iso-8859-2?Q?regexp(by=E6_mo=BFe?= banalny)
On 10.07.2007, Sławomir Szczyrba <creature of.the.night> wrote:
> BOFH excuse 43: Łukasz Filut forgot system password
>
>>>> ja bym dla pewności zrobił tak
>>>> cos=split /\s+/;
>>> Jak będą z przodu jakieś białe znaki, dostaniesz dodatkowe puste
>>> pole w tablicy...
>> to może tak
>> s/^\s+//;
>> cos=split /\s+/;
>>
> Jeśli będą z tyłu jakieś... ;)

....to nie dostaniesz pustego pola, zgodnie z `perldoc -f split'.

--
Secunia non olet.
Stanislaw Klekot

From: nusch <nusch88 gmail.com>
Subject: Re: Konwersja Int-> float 64bit -> hex
On 10 Lip, 16:55, nusch <nusc... gmail.com> wrote:
> On 10 Lip, 14:45, "Stachu 'Dozzie' K."
>
> <doz... dynamit.im.pwr.wroc.pl.nospam> wrote:
> > On 10.07.2007, nusch <nusc... gmail.com> wrote:> Jak w temacie, jak co=
=B6 takiego wykona=E6? Mam liczb=EA ca=B3kowit=B1 np 3600
> > > (3.600000E+03) i chce j=B1 zapisa=E6 za pomoc=B1 8 bit=F3w: 40 AC 20 =
00 00 00
>
> > ^^^^^^^
>
> > > 00 00
>
> > Za pomoc=B1 jednego bajtu b=EAdzie ci=EA=BFko.
>
> > perldoc -f pack
>
> > --
> > Secunia non olet.
> > Stanislaw Klekot
>
> Nie chc=EA korzysta=E6 z wbudowanych typ=F3w perla , bo czyta=B3em =BFe d=
la 64-
> bitowych float musi co=B6 by=E6 kompilowane razem z perlem albo
> obs=B3ugiwane przez system, zale=BFy mi =BFeby kod by=B3 w pe=B3ni przeno=
=B6ny.
> Gdzie mog=EA znale=BC=E6 dok=B3adnie opis jak konwertowa=E6 "na kartce",=
wtedy
> spr=F3buj=EA to sam zaimplementowa=E6

Jednak nie chc=EA "na kartce" przerazi=B3o mnie to troch=EA. Dodam =BFe chce
konwertowa=E6 tylko liczby ca=B3kowite, ale musz=B1 by=E6 typu double ze
wzgl=EAdu na specyfikacje programu serwera.

From: Szymon =?iso-8859-2?Q?Sok=F3=B3?= <szymon bastard.operator.from.hell.pl>
Subject: Re: Konwersja Int-> float 64bit -> hex
On Tue, 10 Jul 2007 05:42:42 -0700, nusch wrote:

> Jak w temacie, jak coś takiego wykonać? Mam liczbę całkowitą np 3600
> (3.600000E+03) i chce ją zapisać za pomocą 8 bitów: 40 AC 20 00 00 00
> 00 00

Erm, ale co to za format ma być?
--
Szymon Sokół (SS316-RIPE) -- Network Manager B
Computer Center, AGH - University of Science and Technology, Cracow, Poland O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982 F
Free speech includes the right not to listen, if not interested -- Heinlein H

From: =?iso-8859-2?Q?S=B3awomir?= Szczyrba <creature of.the.night>
Subject: Re: =?iso-8859-2?Q?regexp(by=E6_mo=BFe?= banalny)
Tako rzecze Stachu 'Dozzie' K. :
>>> cos=split /\s+/;
>> Jeśli będą z tyłu jakieś... ;)
> ...to nie dostaniesz pustego pola, zgodnie z `perldoc -f split'.
>
Hm <klik klik> No fakt.
Mea maxima...

Sławek
--
________
_/ __/ __/ Czytalem sztuki Szekspira. Dwie zapamietalem: Romeo i Julia.
\__ \__ \_______________________________________________________________
/___/___/ Sławomir Szczyrba steev/AT/hot\dot\pl

Akcesoria kosmetyczne i kosmetyki w sklepie internetowym pachnidelko.pl
From: Maciej Misiak <grizzley poczta.onet.pl>
Subject: Mason - confess zamiast croak
Podczas pisania strony dostałem błąd (w sumie nieistotne jaki, chodzi o
jego obsługę):

error: ERROR: duplicate key violates unique constraint "operacja_pkey"
at C:/Perl/site/lib/DBD/PgPP.pm line 369
context:
....
265: # whether they should generate a full stack trace (confess() and
cluck())
266: # or simply report the caller's package (croak() and carp()),
respectively.
267: # confess() and croak() die, carp() and cluck() warn.
268:
269: sub croak { die shortmess _ }
270: sub confess { die longmess _ }
271: sub carp { warn shortmess _ }
272: sub cluck { warn longmess _ }

i linia 269 jest na czerwono. Czy dobrze rozumiem, że jakoś można
włączyć, żeby zamiast croak wykonywało się confess i żebym się mógł
więcej dowiedzieć o błędzie?

--
grizzley

From: "totyl" <j23toty wp.pl>
Subject: 0a
Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się znaczek
0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s! Ja już nie
mam pomysłów.

PozdrĂłwko
Totyl

From: "Stachu 'Dozzie' K." <dozzie dynamit.im.pwr.wroc.pl.nospam>
Subject: Re: 0a
On 10.07.2007, totyl <j23toty wp.pl> wrote:
> Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się znaczek
> 0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s!

Niemożliwe. Coś źle robisz.

--
Secunia non olet.
Stanislaw Klekot

From: Vava <vava-jedenaste-nie-spamuj plusnet.pl>
Subject: Re: 0a
On Tue, 10 Jul 2007 22:03:01 +0200, totyl <j23toty wp.pl> wrote:

> Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się
> znaczek 0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s!
> Ja już nie mam pomysłów.

Pokaż co robisz... Bo albo coś źle robisz, albo na końcu, po x0a jest coś
jeszcze (np. x00)...


Pozdrawiam
--
Vava
Wawrzyniec Żurowski
Victoria vale, et ubique es, suaviter sternutas

From: "totyl" <j23toty wp.pl>
Subject: Re: 0a

Użytkownik "Vava" <vava-jedenaste-nie-spamuj plusnet.pl> napisał w
wiadomości news:op.tu9mhwausx85je valis.domek...
> On Tue, 10 Jul 2007 22:03:01 +0200, totyl <j23toty wp.pl> wrote:
>
>> Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się
>> znaczek 0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s!
>> Ja już nie mam pomysłów.
>
> Pokaż co robisz... Bo albo coś źle robisz, albo na końcu, po x0a jest coś
> jeszcze (np. x00)...


Napisałem coś takiego:

#!/usr/bin/perl
$i="\x44\x0a";
print $i;
$/="\x0a";
chomp $i;
print $i;

Faktycznie, zadziałało bezproblemowo!!!

Podglądam elvisem w trybie hex.
Czyżby czegoś nie pokazywał?
Pozdrówko
Totyl

From: Vava <vava-jedenaste-nie-spamuj plusnet.pl>
Subject: Re: 0a
On Tue, 10 Jul 2007 22:57:36 +0200, totyl <j23toty wp.pl> wrote:

>
> Użytkownik "Vava" <vava-jedenaste-nie-spamuj plusnet.pl> napisał w
> wiadomości news:op.tu9mhwausx85je valis.domek...
>> On Tue, 10 Jul 2007 22:03:01 +0200, totyl <j23toty wp.pl> wrote:
>>
>>> Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się
>>> znaczek 0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s!
>>> Ja już nie mam pomysłów.
>>
>> Pokaż co robisz... Bo albo coś źle robisz, albo na końcu, po x0a jest
>> coś jeszcze (np. x00)...
>
>
> Napisałem coś takiego:
>
> #!/usr/bin/perl
> $i="\x44\x0a";
> print $i;
> $/="\x0a";
> chomp $i;
> print $i;
>
> Faktycznie, zadziałało bezproblemowo!!!
>
> Podglądam elvisem w trybie hex.
> Czyżby czegoś nie pokazywał?

A tego to ja nie wiem... O elvisie wiem tylko tyle, że to jakaś pochodna
vi, ale ani tego nie używałem
ani bebechów nie znam ;-)

Skąd i jak ciągniesz zawartość tego skalara? Może tam jest coś głupiego na
końcu?
Zamiast przeglądać to w edytorze, zobacz, co sam perl widzi - potraktuj
stringa unpackiem...

Albo pokaż kod, z którym masz problem, bo na razie pokazałeś tylko taki, z
którym problemu nie masz ;-), a skończył mi się preparat do czyszczenia
szklanej kuli ;-P

Pozdrawiam
--
Vava
Wawrzyniec Żurowski
Victoria vale, et ubique es, suaviter sternutas

From: "Twelve Hungry Mammoths" <someone microsoft.com>
Subject: Re: 0a
On Tue, 10 Jul 2007 22:57:36 +0200, totyl <j23toty wp.pl> wrote:
>>
>>> Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się
>>> znaczek 0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s!
>>> Ja już nie mam pomysłów.
>>
>> Pokaż co robisz... Bo albo coś źle robisz, albo na końcu, po x0a jest
>> coś jeszcze (np. x00)...
>
>
> Napisałem coś takiego:
>
> #!/usr/bin/perl
> $i="\x44\x0a";
> print $i;
> $/="\x0a";
> chomp $i;
> print $i;
>
> Faktycznie, zadziałało bezproblemowo!!!

jeszcze taka porada: jezeli masz pewnosc, ze na koncu stringa jest jeden
znak, ktory chcesz obciac, to uzyj po prostu funkcji chop. nie musisz sie
wtedy bawic w ustawianie $/.

pzdr
szeryf

From: "totyl" <j23toty wp.pl>
Subject: Re: 0a

Użytkownik "Vava" <vava-jedenaste-nie-spamuj plusnet.pl> napisał w
wiadomości news:op.tu9o0udnsx85je valis.domek...
> On Tue, 10 Jul 2007 22:57:36 +0200, totyl <j23toty wp.pl> wrote:
>
>>
>> Użytkownik "Vava" <vava-jedenaste-nie-spamuj plusnet.pl> napisał w
>> wiadomości news:op.tu9mhwausx85je valis.domek...
>>> On Tue, 10 Jul 2007 22:03:01 +0200, totyl <j23toty wp.pl> wrote:
>>>
>>>> Mam skalar (pamięta jakiś tam tekst). Na końcu tekstu doczepił się
>>>> znaczek 0a (hex). Jak go wywalić? Nie pomaga chomp i $/, nie pomaga s!
>>>> Ja już nie mam pomysłów.
>>>
>>> Pokaż co robisz... Bo albo coś źle robisz, albo na końcu, po x0a jest
>>> coś jeszcze (np. x00)...
>>
>>
>> Napisałem coś takiego:
>>
>> #!/usr/bin/perl
>> $i="\x44\x0a";
>> print $i;
>> $/="\x0a";
>> chomp $i;
>> print $i;
>>
>> Faktycznie, zadziałało bezproblemowo!!!
>>
>> Podglądam elvisem w trybie hex.
>> Czyżby czegoś nie pokazywał?
>
> A tego to ja nie wiem... O elvisie wiem tylko tyle, że to jakaś pochodna
> vi, ale ani tego nie używałem
> ani bebechów nie znam ;-)
>
> Skąd i jak ciągniesz zawartość tego skalara? Może tam jest coś głupiego na
> końcu?
> Zamiast przeglądać to w edytorze, zobacz, co sam perl widzi - potraktuj
> stringa unpackiem...
>
> Albo pokaż kod, z którym masz problem, bo na razie pokazałeś tylko taki, z
> którym problemu nie masz ;-), a skończył mi się preparat do czyszczenia
> szklanej kuli ;-P

Dzięki wszystkim.

Gupi elvis pokazywał /0a/ a unpack pokazał /odoa/.
:)
W pewnym momencie potraktowałem to dwa razy chomp-em ale wtedy $/ eq '0a',
no i :(((
Gdybym pomylił się wtedy i pominął literkę m w chomp.... :)

Jeszcze raz dzięki.

From: _bolek_ <ostrowski.jan gmail.com>
Subject: uzycie zmienne jim jeszcze ja stworzylismy
chcialem sie dowiedziec bo sam nieznalazlem rozwiazania czy da rade
uzyc jakiejs zmiennej nim jeszcze ja zadeklarowalismy (chodzi tu
bardziej o tablice)

mam cos takiego

my $mac_false = "-s $_[4]";
my $mac_true = "-m mac --mac-source $_[3]";

$dbh->do("SET NAMES 'utf8'");
$sth = $dbh->prepare("SELECT * FROM ".$dbtbl1);
$sth->execute() || die $sth->errstr;
open (F, ">lista.txt");
while ( $_ = $sth->fetchrow_arrayref() ) {
print " $_[1] $_[3] $_[4] $_[5] $_[6] $_[7]
$_[10]\n";
print F "# kolejka dla $_[1]\n";
print F "iptables -t nat -A POSTROUTING -s $_[4] -j MASQUERADE
\n";
print F "iptables -A FORWARD ".(( $_[3] eq "00:00:00:00:00:00") ?
$mac_false : $mac_true)." -j ACCEPT\n\n";
}

czy jest mozliwe zeby niepodstawial zera wylko element z tanlicy ?
ja to rozwiazalem w inny sposob ale chcialem wiedziec czy sie da w
takiej formie, jesli tak to w jaki sposob ?

z gory dzieki

Serwery wirtualne
From: _bolek_ <ostrowski.jan gmail.com>
Subject: Re: Deklarowanie zmiennych i use strict
moze specem niejeste wle wydaje mi sie ze niepotrzebnie stosujesz przy
dbh our badz my, bez tego bledu niebedzie :D
ja bym to zrobil tak:

> #!/usr/bin/perl
> use CGI::Fast;
> use DBI;
> use strict;
use warnings;

my $username =3D "user";
my $password =3D "pass";

my $dbtype =3D "Pg";
my $dbname =3D "baza";
my $dbtable =3D "tabela";
# do czegu uzyc our a do czego my zobacz sobie tu -> http://perldoc.perl.or=
g/strict.html
my $sth;
$dbh =3D DBI->connect("dbi:$dbtype:$dbnam", $username, $password);
$sth =3D $dbh->prepare("SELECT * FROM ".$dbtable);
$sth->execute() || die $sth->errstr;
while ( $_ =3D $sth->fetchrow_arrayref() ) {
while(new CGI::Fast ) {
> # obs=B3uga kolejnego requestu
FunkcjaGenerujacaHTML( $_[1], $_[2]);
> }
}

o ile ty masz zamiar te $zm1 i $zm2 pobierac jakos z tablicy.
pamietaj zmienne $zm1 i $zm2 nie sa rozpoznawane poza petla przy
deklaracji my

From: hubert depesz lubaczewski <depesz depesz.com>
Subject: Re: 0a
On 2007-07-10, Twelve Hungry Mammoths <someone microsoft.com> wrote:
> jeszcze taka porada: jezeli masz pewnosc, ze na koncu stringa jest jeden
> znak, ktory chcesz obciac, to uzyj po prostu funkcji chop. nie musisz sie
> wtedy bawic w ustawianie $/.

albo robić to przez s/[\x0a\x0d]+\z//

depesz

--
quicksil1er: "postgres is excellent, but like any DB it requires a
highly paid DBA. here's my CV!" :)
http://www.depesz.com/ - blog dla ciebie (i moje CV)

From: moldovenu <moldovenu spamu.niet.interia.pl>
Subject: Re: Mason - confess zamiast croak
> i linia 269 jest na czerwono. Czy dobrze rozumiem, że jakoś można
> włączyć, żeby zamiast croak wykonywało się confess i żebym się mógł
> więcej dowiedzieć o błędzie?

w Carp konwencja jest taka, że
$Carp::Verbose=1
albo
perl -MCarp=verbose script.pl
daje full stacktrace.

ale nie wiem, czy ty masz wrapery tego typu, czy "orginalnego" carpa ;)

--
adam

następna strona