my @volumes = ('1 набор', '1 шт', '118 мл', '148 мл', '15 г', '15 мл', '150 г', '150 мл', '167 мл', '177 мл', '207 мл', '266 мл', '284 мл', '340 мл', '350 мл', '355 мл', '360 мл', '54 мл', '67 мл', '89 мл');
@volumes = sort {$a <=> $b} @volumes;
foreach my $volume (@volumes) {print $volume.' '; }
cpan>install Bundle::CPAN
This installs some additional modules to add features tocpan
.
Once you finish this initialization, RT'smake fixdeps
should be able to handle the rest. Any time you need to install a new module or upgrade a module, you can just type cpan and manage it from the cpan shell.
\x81\x78\x30\x6B\x10\x00\x00\x0F\x85
на\x81\x78\x30\x6B\x10\x00\x00\x90\xE9
print("\n")
после print(chr($x))
foreach(1..256){print (chr."\n")}
/^(?=.*$pattern1)(?=.*$pattern2)/s
/(($pattern1).*($pattern2))|(($pattern2).*($pattern1))/
/($pattern1|$pattern2){2}/
@{$ttys{$user}}
) и значение которое добавляет ($tty
)@{$ttys{$user}}
?$ttys{key}
означает что работаем с скаляром соответствующим ключу key@{$ref}
получение масива по ссылке.{
chomp;
s/create account admin sa//g;
s/11388019//g;
print OF $_;
}
# Если в строке бывает ровно три квадратных скобки
/\[(.*)\].*\[(.*)\].*\[(.*)\]/;
($num, $tunnel_from, $tunnel_to)=($1,$2,$3)
($num, $tunnel_from, $tunnel_to) = /\[(.+?)\]/g