Re: Perl + Strings

[Aleks <sektor_1@gmx.net>]

Hallo Gerhard,
Gerhard Brauer wrote:
> Gruesse!
> * Aleks <sektor_1@gmx.net> schrieb am [08.02.07 12:54]:
>
> > my $s = '/home/mail/test.de/bob/spam/test.txt';
> > $s =~ /(test.de).*(bob)/;
>
>
> Und wenn beim nächsten Lauf
> /home/mail/foo.bar/nob/spam/test.txt
> geparst werden sollte? ;-)
perl_2 # cat test.pl
#!/usr/bin/perl -w

use strict;
my $s = '/home/mail/test.de/bob/spam/test.txt';

sub parse {
        $_[0]=~/($_[1]).*($_[2])/;
        return ($1, $2);
}

my @r = parse($s, "test.de", "bob");
print "domain: $r[0] ; user: $r[1]\n";
perl_2 # ./test.pl
domain: test.de ; user: bob
perl_2 #


voila.


Durch einfaches übergeben entsprechender Parameter an die Funktion 
parse, kann nun pro Zeile nach verschiedenen Daten geparsed werden.
Auch die zu parsende Zeile kann bei jedem Aufruf verändert werden.

Gruß,
Aleks