Опять туплю с регэкспами , :wall:

Хочу тупо сделать обрезание в строке, почему код

...
my $adsl_marker = "ADSL: ";
 
 
$acl =~ s/\$adsl_marker//;
...

не отрабатывает

Тупо и примитивно:

#!/usr/bin/perl
 
$string = "ADSL: OLOLO";
substr($string, 0, 6) = "";
print "\n$string\n";

Добавлено 19.01.11, 17:21
Это если у тебя в самом начале строки =))

уже сам нагуглил
конечный вариант:

my $adsl_marker = "ADSL: ";
  
$acl = substr ($acl, length($adsl_marker));

Цитата Mr. Gonarh @ 19.01.11, 16:48

$acl =~ s/\$adsl_marker//;

а зачем слеш перед долларом?

$acl = "ADSL: OLOLO";
my $adsl_marker = qr(ADSL: );
$acl =~ s/$adsl_marker//;
 
print $acl;
print "\n";