Hi,
das kannst Du mit einer Regex direkt tun:
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
my @texte = qw(
{muster}
{kein_muster
);
for my $text ( @texte ) {
$text =~ s/\A{(.*)}\z/$1/;
print $text, $/;
}
PS(edit): Der enthaltene String (hier also "muster" und "kein_muster" darf hierbei keinen Zeilenumbruch enthalten (weil hier
. kein Newline trifft); siehe
http://perldoc.perl.org/perlre.html und
pqs Antwort.
Last edited: 2010-07-23 15:54:00 +0200 (CEST)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!