[Perl] Новичкам: задаем вопросы

perl -c file.pl

 

у мя вапрос странный
можно в перле скрипты подключать динамически те по мере неоходимости
чтобы память не засорять

 

копай в сторону eval + require, имхо

 

Code:

do 'file.pl';

Code:

eval `cat file.pl`;

 

допустим есть текстовой файл в котором через пробел записаны два числа (5 6) как получить эти числа т.е. что б в переменной x было 5 ($x=5) в переменной y было 6 (y=6)

 

Как-то так

Code:

#$str = "5 6";
if ($str =~ /(\d+)\s+(\d+)/)
{
  $x = $1;
  $y = $2;
}

 

krypt3r, спасибо - сейчас попробую ! И еще вопросик, где можно почитать статьи по перлу на русском ? и подскажите ирк каналы по перлу ... статьи искал в гугле - ничего интересного (

 

Code:

my $str = "5 6";
my($x,$y) = split ' ', $str;
print "x = $x, y = $y\n";

Чтоб регекспами не забивать код

 

$p01nt,

Code:

($a,$b) = qw(5 6);
print $a."\n".$b;

 

ы, тоже как вариант ))

 

может ли перл , при обращении по хттп выдавать значение переменных записанных первым запуском не используя файлы?

 

строго говоря, это вопрос даже не по перлу...
попробуй при запуске ставить переменную окружения с нужными тебе данными ,а потом считывать ее

 

у мя такой вопрос может не совсем в тему
делаю проверку на валид акков на один сайт
открываю сокеты пишу туда все что нужно
слушаю ответ
он мне возвращает
HTTP/1.1 302 Found
Server: nginx/0.6.25
Date: Sat, 17 May 2008 13:24:43 GMT
Content-Type: text/html; charset=utf-8
Transfer-Encoding: chunked
Connection: keep-alive
Set-cookie: session=63C4E9E4C17373A9C263289A77B8; path=/; domain=.domain.ru; expires=Friday, 15-Aug-2008 17:24:43 GMT
Set-cookie: uiduser=000000001; path=/; domain=.domain.ru; expires=Thursday, 16-May-2013 17:24:43 GMT
Location: /
Last-Modified: Sat, 17 May 2008 13:24:43 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Expires: Sat, 17 May 2008 13:24:43 GMT

43


0

это значит что авторизация прола успешно?
данные я туда пишу проверенные ну всмыле логин и пароль

 

все разобрался=)

 

Можно ли помощи языка perl узнать серверные каталоги? Например
/var/www/home/
/var/www/home1/
/var/www/gold/
и пр.?

 

http://www.devdaily.com/perl/edu/articles/pl020001.shtml

 

извините за тупость но у меня уже башка не варит всю ночь не спал
короч есть файл с таким содержанием

Code:

 /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nkirie6e4ka/  /nkirie6e4ka/  /nnira_vera/  /nnira_vera/  /ndevica_krasavic/  /ndevica_krasavic/  /nol4ik666/  /nol4ik666/  /nmajortv/  /nmajortv/  /nlovestory1985/  /nlovestory1985/  /nbarsik56/  /nbarsik56/  /nentray/  /nentray/  /nlana1206/  /nlana1206/  /nsams1984/  /nsams1984/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nnik1702/  /nnik1702/  /nlanaqg/  /nlanaqg/  /nannak_77/  /nannak_77/  /nangelroach/  /nangelroach/  /nnatalysja/  /nnatalysja/  /nplus7/  /nplus7/  /ne6iyf8wsdiy/  /ne6iyf8wsdiy/  /nseveso/  /nseveso/  /nsveta1967k/  /nsveta1967k/  /npoi1982/  /npoi1982/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nbaribriska/  /nbaribriska/  /nfreegirl2009/  /nfreegirl2009/  /nkara_888/  /nkara_888/  /n7marichka7/  /n7marichka7/  /nnikitinasfia/  /nnikitinasfia/  /nmmeloun/  /nmmeloun/  /nadministrarot/  /nadministrarot/  /nbiankahey/  /nbiankahey/  /npleasurefeya/  /npleasurefeya/  /n14121948/  /n14121948/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nnedoverie666/  /nnedoverie666/  /nkloakovna/  /nkloakovna/  /nshp1lka/  /nshp1lka/  /nvik4aki/  /nvik4aki/  /nkiradi/  /nkiradi/  /nannpavl/  /nannpavl/  /n123alina123/  /n123alina123/  /nneotkrita9/  /nneotkrita9/  /nsunshine2608/  /nsunshine2608/  /ndraganirusik/  /ndraganirusik/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nhome316040/  /nhome316040/  /njuliamoroz/  /njuliamoroz/  /n18018820/  /n18018820/  /nanastse20082008/  /nanastse20082008/  /nlana333999/  /nlana333999/  /nnadja82/  /nnadja82/  /nkokosankina/  /nkokosankina/  /nfindrolya/  /nfindrolya/  /n5e7ikgulk5e7/  /n5e7ikgulk5e7/  /nmargaritkavesna/  /nmargaritkavesna/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nbrilliantspb13/  /nbrilliantspb13/  /nhellen20008/  /nhellen20008/  /nanitella/  /nanitella/  /nhelen26star/  /nhelen26star/  /nveronika54575/  /nveronika54575/  /nstervohka125/  /nstervohka125/  /n4w6iudtikduu/  /n4w6iudtikduu/  /nvozduh555/  /nvozduh555/  /nveraenigma/  /nveraenigma/  /nolga1709/  /nolga1709/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /n11113130/  /n11113130/  /nannet__13/  /nannet__13/  /ntrinyty87/  /ntrinyty87/  /nekatusha28/  /nekatusha28/  /nmalenka1982/  /nmalenka1982/  /n5i7dtukoe67i/  /n5i7dtukoe67i/  /nsovenoc_s/  /nsovenoc_s/  /nzyyyf/  /nzyyyf/  /ntanya261991/  /ntanya261991/  /nkraxxx1/  /nkraxxx1/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nasagao/  /nasagao/  /nkfnbyj4/  /nkfnbyj4/  /ngalochka8/  /ngalochka8/  /nvikentei1/  /nvikentei1/  /noi76tdo57lk/  /noi76tdo57lk/  /nshaindina/  /nshaindina/  /na521955/  /na521955/  /nygo_zapad/  /nygo_zapad/  /nsincere5/  /nsincere5/  /n19angy/  /n19angy/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nyartatyana1/  /nyartatyana1/  /ntashkakakashka/  /ntashkakakashka/  /nirka_durka/  /nirka_durka/  /nvikusjonochek/  /nvikusjonochek/  /ningatu/  /ningatu/  /nphuntik2/  /nphuntik2/  /nfylode6oi7e67/  /nfylode6oi7e67/  /n4udo_/  /n4udo_/  /ntatyanali/  /ntatyanali/  /ntinakisska/  /ntinakisska/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nmaxislav/  /nmaxislav/  /nledioksana/  /nledioksana/  /nsweeeetcandyyy/  /nsweeeetcandyyy/  /nannaval/  /nannaval/  /nalekseevalena/  /nalekseevalena/  /nbesttiy/  /nbesttiy/  /nboss303/  /nboss303/  /n009831/  /n009831/  /noosq/  /noosq/  /nangelokkk88/  /nangelokkk88/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /niriska1958/  /niriska1958/  /n100119915/  /n100119915/  /nhotatla/  /nhotatla/  /namandalight/  /namandalight/  /nnadinglot79/  /nnadinglot79/  /n_tutun_/  /n_tutun_/  /nkolconina/  /nkolconina/  /nwegus33/  /nwegus33/  /nleonok77/  /nleonok77/  /nmashuta4ka/  /nmashuta4ka/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/
 /nkmariko/  /nkmariko/  /n222oly/  /n222oly/  /nfortuna200833/  /nfortuna200833/  /nnino250/  /nnino250/  /naliska202/  /naliska202/  /nmaria912008/  /nmaria912008/  /nmammamia360/  /nmammamia360/  /nsimpompula/  /nsimpompula/  /n5lybimka5/  /n5lybimka5/  /ngik57itik75/  /ngik57itik75/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nhelgarb/  /nstarcat2/  /nstarcat2/  /nstarcat2/  /nkosf17/  /nkosf17/  /nkosf17/  /ntanysha52/  /ntanysha52/  /ntanysha52/  /nBondos/  /nBondos/  /nBondos/  /nkuza25/  /nkuza25/  /nkuza25/  /nadmindark/  /nadmindark/  /nadmindark/  /nonloveee/  /nonloveee/  /nonloveee/  /nlopo112/  /nlopo112/  /nlopo112/  /nrnn77/  /nrnn77/  /nrnn77/  /nmelz81/  /nmelz81/  /nmelz81/  /nstcatherine/  /nstcatherine/  /nstcatherine/  /nalenka808080/  /nalenka808080/  /nalenka808080/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /n29fduecnf1970uj/  /nirina1068/  /nirina1068/  /nirina1068/  /nkissa_spb/  /nkissa_spb/  /nkissa_spb/

мне надо его отпарсить и убрать повторы
записать в другой файл
вида:
masha
sasha
и тд
пытался заменить слеш на символ перевода строки
но нифига не получается можно хотя бы просто записать в файл и посоветовать тулзу которая уберет
повторы зарание спасибо

 

my @arr = $text =~ m@/([^/]+)/@g;
open (FILE, '>file.txt');
foreach(@arr) { print FILE $_."\n"; }

 

Если только уникальные, то правильнее так:
@arr = $text =~ m@/([^/]+)/@g;
undef %saw;
@out = grep(!$saw{$_}++, @arr);

open (FILE, '>file1.txt');
foreach(@out) { print FILE $_."\n"; }

 

спасибо