Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.119.107.96] |
|
Сообщ.
#1
,
|
|
|
Хочу тупо сделать обрезание в строке, почему код
... my $adsl_marker = "ADSL: "; $acl =~ s/\$adsl_marker//; ... не отрабатывает |
Сообщ.
#2
,
|
|
|
Тупо и примитивно:
#!/usr/bin/perl $string = "ADSL: OLOLO"; substr($string, 0, 6) = ""; print "\n$string\n"; Добавлено Это если у тебя в самом начале строки =)) |
Сообщ.
#3
,
|
|
|
уже сам нагуглил
конечный вариант: my $adsl_marker = "ADSL: "; $acl = substr ($acl, length($adsl_marker)); |
Сообщ.
#4
,
|
|
|
Цитата Mr. Gonarh @ а зачем слеш перед долларом? $acl =~ s/\$adsl_marker//; $acl = "ADSL: OLOLO"; my $adsl_marker = qr(ADSL: ); $acl =~ s/$adsl_marker//; print $acl; print "\n"; |