Forum Debian Users Gang

odpowiem w Twoim stylu:

Hasło "wyrażenia regularne" - na Wikipedii nie występuje?

tylko, ze ja nie ponize sie do Twojego poziomu i podam Ci linki z dokumentacja i wyjasnieniem do wyrazen regularnych a reszte to sam sobie wyjasnij

http://pl.wikibooks.org/wiki/Perl/Opis_wyra%C5%BCe%C5%84_regularnych
http://pl.wikibooks.org/wiki/Perl/Wyra%C5%BCenia_regularne

Podałbyś przykładowy kod.

<STDIN> czyta od początku do znaku który zawiera zmienna $/ (domyślnie \n, czyli znak nowej linii) włącznie.

Istnieją dwa sposoby jego wykorzystania: przypisanie do zmiennej lub osadzenie w pętli. Właściwie przypisanie do zmiennej jest dość bezwartościowe, ponieważ nie zapewnia żadnego prostego sposobu sprawdzania poprawności otrzymanych danych (zawsze trzeba zakładać że użytkownik nie wpisze tego o co się go prosi).

Osadzenie w pętli może wyglądać tak:

while (<STDIN>) {
   // zrób coś ze zmienną 
}

Do pętli można wrzucić np. push (@array, $_);, co powoduje dodanie zmiennej do tablicy.

Tablica składa się ze zmiennych (scalar).

Nie ma sposobu by wyrażeniem regularnym ogarnąć wszystkie zmienne w tablicy. Dlatego trzeba najpierw połączyć wszystkie zmienne w tablicy w jedną zmienną, np. w ten sposób:

my $new_scalar;
$new_scalar .= $_ foreach (@array);

Alternatywnie można od tego zacząć i przy przetwarzaniu danych z wejścia dodawać je do zmiennej:

my $scalar;
do {
    $scalar .= <STDIN>;
} until ($scalar =~ m/ostatni/);

Należy pamiętać że zmienna nie równa się linii — zmienna może zawierać znak nowej linii, w regexpie zapisywany jako \n.

Jacekalex napisał(-a):

Wszytkie poradniki, które nie zaierają działającego czytelnego przykładu, jak z ciągu STDIN (lub zmiennej) wyciągnąć to, co (następuje po|rozpoczyna się) wyrażeniem argument
na nic mi sie nie przydały, tak samo jak wszystkie, które nie objęły takim przykladem końca wyciętego fragmentu  np:argumentost - jako argumentu.

perldoc perlre, szukaj backreferences.

Jacekalex napisał(-a):

A znacznikow ^ i $ próbowałem na wszelkie możliwe sposoby.

Ponieważ ^ dopasowuje się do początku ciągu znaków, a $ jego końca. Ciągiem znaków jest cała wartość zmiennej.

Jacekalex napisał(-a):

Taki przykład:
to jest text:

Kod:

Perl został zaprojektowany jako praktyczne narzędzie do analizy plików tekstowych i tworzenia raportów. Jednym z naczelnych haseł jest Można to zrobić na różne sposoby (ang. There is more than one way to do it – TIMTOWTDI – wymawiane jak Tim Toady). [b]Jednym z podstawowych zamysłów projektu było uczynienie łatwych zadań łatwymi do wykonania, zaś trudnych – wykonalnymi. Wszechstronność Perla pozwala na programowanie w różnych modelach: proceduralnym, funkcyjnym czy obiektowym[/b], chociaż purystom przeszkadza podejście polegające na przedkładaniu wygody programisty nad czystość projektu.

a wytłuszczone do wyciągnięcia.
Skrypt "laboratoryjny" wyglada np. tak:

Kod:

#!/usr/bin/perl
use strict;

my $zmienna="";

while (<>)
{
if (/Jednym.z.p.*?obiektowym//) {    
   $zmienna .= $_;{
print "$zmienna\n"
}
}
}

Właśnie przez taki kod niektórzy rozwijają perl do Pathologically Eclectic Rubbish Listener.

perl ma niezwykłą zdolność do domyślania się co właściwie się od niego oczekuje, dzięki czemu kod może być znacznie krótszy. Jednak przez to nieczytelny dla innych niż fachowcy, a w ekstremalnych przypadkach innych niż sam autor. Korzystanie z perlowej zdolności do domyślania się z kontekstu ma pewną wartość, i można ją wykorzystywać podczas pisania szybkich skryptów wg zasady „napisz, użyj i zapomnij” tudzież zabawy w golfa, ale w zastosowaniach produkcyjnych powinno się wszystko robić explicite — tak aby osoba która obejmie kod po Tobie wiedziała co i gdzie się dzieje.

W tym kodzie nie ma żadnego warunku który by przerywał pętlę pobierania danych z STDIN.

To co chcesz osiągnąć można rozwiązać np. tak:

#!/usr/bin/perl
use strict;
use warnings;

my $zmienna=<STDIN>; # pobiera linię tekstu od użytkownika

print "pobrany tekst:\n" . $zmienna; # drukuje otrzymany tekst

if ($zmienna =~ m/^.+(jednym.*?obiektowym)/i) {
    print "fragment tekstu:\n". $1 . "\n"; # drukuje fragment otrzymanego tekstu zgrupowanego w nawiasach
}

my $nowa_zmienna = $zmienna;
$nowa_zmienna =~ s/^.+(jednym.*?obiektowym)/$1/i; #perldoc perlop, s///
print "Alternatywnie fragment tekstu:\n" . $nowa_zmienna . "\n";

Zauważ że cały tekst rozpoczyna się od słowa „Jedynie”, więc chcąc mieć pewien określony tekst ze środka, trzeba wziąć to pod uwagę. Ale to już nie perl a regexpy jako takie.

Jacekalex napisał(-a):

Bo w tej chwili działanie sprawdza się idealnie w przypadku, gdy nie trafi na znak nowego wiersza, wtedy przerywa działanie.

Nie trafi na znak nowego wiersza gdzie?

Jeśli w pobieraniu danych od użytkownika, to jest to oczywiste. Pisałem w pierwszym moim poście jak ustawić inny znak (lub ich serię) mający być terminatorem dla danych otrzymywanych ze standardowego wejścia. Jednak ta metoda ma tę wadę, że ciąg ten zostanie dołączony do otrzymanego ciągu — przez co ewentualnie może być konieczne jego usunięcie. Niżej przedstawiam metodę bez tej wady.

Jeśli chodzi o znak nowego wiersza w regexpie, to odsyłałem Cię do perldoc perlre w poprzednim poście. Na samym początku masz:

s   Treat string as single line.  That is, change "." to match any character whatsoever, even a newline, which normally it would not match.

Rozwiązanie obu problemów:

#!/usr/bin/perl

use warnings;
use strict;

my $tekst;

while (my $var = <STDIN>) {
    last if ($var =~ m/koniec/);
    $tekst .= $var;
} 

print "wprowadzony tekst:\n" .$tekst . "--------------\n";

if ($tekst =~ m/(jednym.*?obiektowym)/is) {
    print "fragment tekstu:\n". $1 . "--------------\n";
}

Jacekalex napisał(-a):

Nie wiem dlaczego, ale w poprzednim prykładzie samo zaznaczenie znaku kropki nie nało porządanego efektu.

Zakładam że nie jesteś głupi ani złośliwy, tylko po prostu nie znasz wcale lub znasz kiepsko język angielski. Jeśli mam rację, to będzie to pewnym problemem — większość dostępnej dokumentacji jest napisana właśnie w tym języku. Angielski jest również obowiązującym językiem na perlMonks, gdzie została już poruszona i rozwiązana spora część z problemów na które możesz się natknąć.

Myślę że w takim razie dobrym pomysłem będzie kupienie jakiejś książki o perl-u wydanej przez helion. „perl. Wprowadzenie” czy coś w tym guście (zakładam że takie coś istnieje — nie chciało mi się sprawdzać). Książki tego wydawnictwa, będące tłumaczeniami tych z wydawnictwa O'Reilly (charakterystyczne czarno-białe okładki z rysunkami zwierząt), są dość wysokiej jakości i mogę je polecić.

A wracając do problemu: dlatego, że domyślnie kropka zastępuje każdy znak oprócz znaku nowej linii. Zachowanie to można zmienić poprzez dodanie modyfikatora s za ostatnim delimiterem regexpa (delimiterem domyślnie jest ukośnik (/) ale można go zastąpić; ja preferuję dwukropki, które znacznie rzadziej niż ukośniki występują w stringach, dzięki czemu rzadziej trzeba je cytować poprzez poprzedzenie odwróconym ukośnikiem).

Twoje rozwiązanie jest stosunkowo dobre (spełnia postawione przed nim zadanie), jednak nadmiarowe. W tym kontekście dodanie modyfikatora s jest znacznie lepszym pomysłem.