[Perl] wyciaganie danych z tekstu

[Gosik]

Witajcie!
Mam plik z danymi postaci:


itd.

Chciałabym wyciagnac z tego pliku tylko imie, nazwisko, ulice, nr_domu i nr_lok.

W tym celu probuje napisac skrypt, na poczatku chce wyciagnac tylko imie:

Kod: [Zaznacz]

#!/usr/bin/perl

use strict;

open my $fh, '<', 'dane.txt' or die "open: $!";
chomp(my @data1 = <$fh>);
close($fh);


my  @x = grep {
    my $v=$_;
    $v =~ m/imie=.*/;
         
} @data1;

print @x;

Jednakze wyswietla mi wszystkie linie, ktore zawieraja imie.

Probowalam rowniez w taki sposob:

Kod: [Zaznacz]

#!/usr/bin/perl

use strict;

my @dane;

open my $fh, '<', 'eksport_sou.xml' or die "open: $!";
chomp(my @data1 = <$fh>);
close($fh);

 my @tab = split/ /;

foreach (@tab){
 my $v =~/imie=.*/;
 push (@dane,$v);
}
 print @dane;

Jednakze w tej sytuacji nic nie jest wyswietlane.

Czy moglabym prosic o wskazowki jak poprawnie to powinnam uczynic?

[Paweł Kraszewski]

Ale to tenteges wygląda jak XML... Może zatem coś do parsowania XML?

[Gosik]

Nie bardzo znam sie na parsowaniu XML i nie wiem czym to sie je.
Jaki jezyk programownai lub rogram nalezy do tego uzyc?

[xavery]

Język jest moim zdaniem najlepszy z możliwych:) Do parsowania XML jest dużo mniej lub bardziej skomplikowanych modułów. Dla przykładu: XML:Parser, XML::MyXML, XML::Simple (do znalezienia oczywiście na www.cpan.org).
W omawianym przykładzie jednak może być kłopot z integralnością składniową XML. Być może prościej by było przeskanować tekst, przyrównać go do wzorców regularnych i wycinać żądane fragmenty tekstu (zmienna $& po operacji m///)