Re: Perl + Strings

[Gerhard Brauer <gerhard.brauer@web.de>]

Gruesse!
* Aleks <sektor_1@gmx.net> schrieb am [08.02.07 14:02]:
> 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.

Ich laß das jetzt extra mal zitatmäßig so stehen.
Ich kenn dich ja nicht, evtl. bist du ja auch ein Scherzbold ;-) und
kriegst uns hier alle voll dran...

i> 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.

Ich erlaube mir mal, dein Skript zu verkürzen:
#!/usr/bin/perl -w
use strict;
print "domain: test.de ; user: bob\n"

Das erfüllt den selben Zweck wie dein Skript und ist kürzer ;-)

> Gruß,
> Aleks

Gruß
	Gerhard
-- 
Heute ist das Morgen wovor du gestern Angst hattest...