strings 101

#!/usr/bin/perl -w

use warnings;
use strict;

my $line = "<1234.ABC/AA3057@abc.def>";
my $var;

if ($line =~ m/\<(.*)\>/i) {
$var = $1;

}
print $var;

Her fejler linie 6 [my $line = "<1234.ABC/AA3057@abc.def>";] fordi den compileren tror den den skal lave string-interpolation på @abc så derfor kan den køre hvis du  enten

1) Escaper stringen (retteligt @) sådan her

my $line = "<1234.ABC/AA3057\@abc.def>";

2) Bruger single quotes som ikke interpolerer stringen

my $line = '<1234.ABC/AA3057@abc.def>';

Hvis du læser en sådan string fra en fil burde der ikke være det problem.

Jeps.. har fået det til at virke... viste sig at være fordi at jeg forsøgte at skrive en fil med en "ulovlig" sammensætning af karakterer i filnavnet... ://

Opretter du svar så accepterer jeg dit svar..

svar ;)