webdeveloper Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Я работаю в linux(SlackWare)   1.как можно узнать имя пользователя запустившего скрипт  НЕ через env  ( $ENV{'USER'}  )     2..Как сделать чтобы фукция sytem() не выводила результат на экран при присвоеные переменной. например $var=system("uptime");   Всего записей: 1373 | Зарегистр. 30-05-2002 | Отправлено: 12:20 10-11-2003

webdeveloper Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору redp thanks Всего записей: 1373 | Зарегистр. 30-05-2002 | Отправлено: 18:16 11-11-2003

Tropin Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору предсавьте в процессе выполнения программы я получаю переменную $x.как можно узнать я вляется ли это простым скаляром или это ссылка на массив или хэш? Всего записей: 538 | Зарегистр. 25-11-2002 | Отправлено: 14:36 29-01-2004

IntenT Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору %hash=(1=>1, 2=>2); $ref = \%hash; # $ref=111; #uncomment print %hash; print $ref; if(%{$ref}){  print "!!!"; }   Оно? Всего записей: 1584 | Зарегистр. 16-12-2001 | Отправлено: 15:42 29-01-2004

Portfel Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору shilder Спасибо Огромное, с примером, достойным "описанием", ГРАМОТНО. ))) И что самое главное РАБОТАЕТ ))). З.Ы. Акк PufyaIra моей девушки..из дома забыл прочекить, что под ним пишу.   А вот и сам скрипт, дабы было       while (<STDIN>)   { #    chomp($_);        if (/^05/ or /^07/)     {        if (substr($_,88,3) == 643)       {           if (substr($_,73,3) != substr($_,88,3))                   {  print $_ }                         }   }   все просто, ясно, но нефига не понятно ))). ---------- В чем сила Брат? ---------- Всего записей: 941 | Зарегистр. 16-09-2004 | Отправлено: 11:06 12-02-2008 | Исправлено: Portfel, 11:09 12-02-2008

pka Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: все просто, ясно, но нефига не понятно Вначале скрипт берет строку из стандартного ввода и сует в переменную $_ (так по умолчанию). Строка # chomp($_); - это комментарий, но если убрать # из начала строки, то эта команда будеть обрезать символы переноса строки, если они есть, в конце строкового значения, хранящегося в $_ (часто очень полезная штука). Потом первый if проверяет, начинается ли значение, хранящееся в $_ на 05 или 07. Если нет, то строка отправляется "в сад", а если да, то начинает работать второй if. Он проверяет, совпадают ли 3 символа, находящиеся по смещению 88 в значении переменной $_ со значением 643. Если нет - строка идет "в сад", если да, то начинает работать третий if. Он проверяет, отличаются ли 3 символа по смещению 73 от 3-х символов по смещению 88 в переменной $_. Если отличаются, то строка печатается в стандартный поток вывода. Поначалы непонятности бывают оттого, что в реальном коде операции с $_ пишутся упрощенно. Т.е. строку Цитата: if (/^05/ or /^07/) можно записать if ($_ =~ m/^05/ or $_ =~ m/^07/), но так длиннее Всего записей: 83 | Зарегистр. 16-03-2006 | Отправлено: 21:08 17-02-2008

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Несколько вопрсов по PERL

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование