Код: Выделить всё
#!/usr/bin/perl
$t="12301212-pptp0";
$t=~ s/\d+[-]//;
print $t;
exit;
Код: Выделить всё
#!/usr/bin/perl
$1="12301212-pptp0";
$е=$1
$1=~ s/\d+[-]//;
print $1;
exit;
zg# man perlva писал(а): $<digits>
Contains the subpattern from the corresponding set of capturing
parentheses from the last pattern match, not counting patterns
matched in nested blocks that have been exited already.
(Mnemonic: like \digits.) These variables are all read-only
and dynamically scoped to the current BLOCK.
А можно пример случая? Как тогда мне быть?zg писал(а):Цифровые переменные обычно используются только в специальных случаях.
Код: Выделить всё
$1Код: Выделить всё
$i1в перле такие переменные обозначают номер шаблона, который был найден в последнем использовании регулярного выраженияRita писал(а):А можно пример случая? Как тогда мне быть?
Код: Выделить всё
zg# cat 1.sh
#!/usr/bin/perl
$_ = "12301212-pptp0";
print "Match $1\n" if /(\d+)/;
exit;
zg# ./1.sh
Match 12301212
zg# 
Код: Выделить всё
my $i1=$1;шелл использует переменные $N как массив параметров для скрипта, поэтому во избежание путаницы - что конкретно нужно сделать и на каком языке программирования?Rita писал(а):Но дело в том что биллинг передает в переменной $1
В том то и вся проблема что в перле зарезервировано.ProFTP писал(а):это зарезервированно..Код: Выделить всё
$1
используйте другие символы, напрмиерКод: Выделить всё
$i1
Код: Выделить всё
#!/usr/bin/perl
$i1=$1;
open (LOGF, ">>new") || die "$!";
print LOGF "Создана учетка с IP $i1 ", scalar(localtime), "\n";
close(LOGF);Код: Выделить всё
#!/bin/sh
echo "`date`
Создана учетка с IP $1
-----------------------------------------------------------------------" >> new.rules
exit 0
ААА ура! Заработало!!! Я счастливаhizel писал(а):если да попробуйте вместо $1 $ARGV[1]
