ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|

11.05.2008, 20:33
|
|
наркоман с медалью
Регистрация: 07.05.2005
Сообщений: 3,704
Провел на форуме: 19975136
Репутация:
4536
|
|
perl -c file.pl
|
|
|

15.05.2008, 23:24
|
|
Постоянный
Регистрация: 24.12.2007
Сообщений: 574
Провел на форуме: 3186852
Репутация:
316
|
|
у мя вапрос странный
можно в перле скрипты подключать динамически те по мере неоходимости
чтобы память не засорять
|
|
|

16.05.2008, 00:19
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме: 876216
Репутация:
209
|
|
копай в сторону eval + require, имхо
|
|
|

16.05.2008, 00:23
|
|
Постоянный
Регистрация: 30.08.2007
Сообщений: 773
Провел на форуме: 3069349
Репутация:
808
|
|
|
|
|

16.05.2008, 11:14
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме: 584540
Репутация:
96
|
|
допустим есть текстовой файл в котором через пробел записаны два числа (5 6) как получить эти числа т.е. что б в переменной x было 5 ($x=5) в переменной y было 6 (y=6)
|
|
|

16.05.2008, 11:26
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме: 3660186
Репутация:
905
|
|
Как-то так
Код:
#$str = "5 6";
if ($str =~ /(\d+)\s+(\d+)/)
{
$x = $1;
$y = $2;
}
|
|
|

16.05.2008, 11:30
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме: 584540
Репутация:
96
|
|
krypt3r, спасибо - сейчас попробую ! И еще вопросик, где можно почитать статьи по перлу на русском ? и подскажите ирк каналы по перлу ... статьи искал в гугле - ничего интересного (
|
|
|

16.05.2008, 14:43
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме: 876216
Репутация:
209
|
|
Код:
my $str = "5 6";
my($x,$y) = split ' ', $str;
print "x = $x, y = $y\n";
Чтоб регекспами не забивать код 
|
|
|

16.05.2008, 15:05
|
|
Banned
Регистрация: 23.07.2007
Сообщений: 87
Провел на форуме: 2147329
Репутация:
613
|
|
$p01nt,
Код:
($a,$b) = qw(5 6);
print $a."\n".$b;
|
|
|

16.05.2008, 15:47
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме: 876216
Репутация:
209
|
|
ы, тоже как вариант  ))
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|