Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - DartSidius

Страницы: [1] 2 3 ... 9
1
Perl / reg exp
« : 23 Июня 2011, 11:46:02 »
Есть строка вида [crypt]tex1[/crypt][crypt2]text2[/crypt]

Мне нужно заменить [crypt]tex1[/crypt] & [crypt]tex2[/crypt] на некий код, внутри crypt код постоянно меняется...делаю так...но строка меняется полностью, засасывая всё целиком:

$var=~s/\\[crypt\\](.+)\\[\\/crypt\\]/$dataToCrypt/;

2
Perl / AD & Perl
« : 03 Июня 2011, 08:18:23 »
Возникла задача проводить автоматическую авторизацию пользователя в домене, когда он заходит на страничку...

С самой авторизацией разобрался:


use Net::LDAP;

my $ldap= Net::LDAP->new("*") || die print $!;
my $mesg = $ldap->bind("*", password=>"*") || die print $!;

print $mesg->error();


Вопрос:
как получить пароль и логин для передачи в лдап? чтобы именно автоматом, без всякого ввода...

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

3
Perl / Загрузка данных из скрипта...
« : 23 Ноября 2010, 17:22:55 »
Есть некий скрипт, который выдает данные...например print.cgi

как выполнить его из другого скрипта перл (index.cgi) и получить данные...ну например в виде print.cgi?text=1;no_tab=2;

4
Perl / Передача параметров в функцию...
« : 21 Октября 2010, 15:13:29 »
Требуется передать в функцию строковую переменную и хэш

делаю так

Func($string,%hash);


sub Func {
my ($str,%h) = @_;
}

Странно то, что в переданый %h попадает и значение $str...

5
Perl / Хэши..
« : 09 Сентября 2010, 10:33:18 »
Есть Хэш

%a = (
"001" => {
   name=>"123",
  url =>"www.ru"
}
,
"002" => {
   name=>"123",
  url =>"www.ru"
}
);

Как запихать всё его содержимое в хэш

$HASH{new}

?

6
Я дико извиняюсь...но как сделать сабж?..делаю так

=~/\\w{6}/ - если больше 6ти выдает ошибку, меньше - не выдает

7
Perl / XML::SIMPLE
« : 29 Июля 2010, 02:30:33 »
Есть xml файл такого содержания...

 
- http://10.20.77.118/ReportServer?%2fRedX_Reports%2fCustomerProfiles&rs%3aCommand=Render&rs%3aFormat=XML&rs%3aSessionID=ogt2yi55oziwbt45zlspbt55&rc%3aSchema=True" Name="CustomerProfiles" xmlns:p1="http://www.w3.org/2001/XMLSchema-instance" xmlns="CustomerProfiles">
-
-
-
-
-
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 

 

 

 

-
-
 
 

 

 



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


use XML::Simple;
my $ref = XMLin(\'tmp.xml\');

foreach $a (sort keys %$ref) {
   if($a=~/table*/) {
      my $new_key = $ref->{$a};
      foreach $b(sort keys %$new_key) {
         print $b;
         if($b eq "Detail_Collection") {
            my $new_key_2 = $new_key->{$b};
               foreach $c(sort keys %$new_key_2) {
                  my $new_key_data = $new_key_2->{$c};
                  foreach $d(sort keys %$new_key_data) {
                     #print "$new_key_data->{$d}\\n";
                  }
               }
         }
      }
   }
}

8
Perl / PDF->HTML
« : 11 Июня 2010, 07:41:37 »
Имеется ли в арсенали perl модуль, который позволяет открыть в веб содержимое файла PDF?

9
JavaScript & JScript / Window document
« : 12 Мая 2010, 15:41:14 »
На странице есть iframe. Внутрь него выгружается текст и ссылка. ЗАчем нужно на основной старнице поменять значение поля из этого iframe...В эксплорере работает так: top.document.getElementById(frame + \'_jload\').value = result;

в мозиллах и всех остальных браузерах не хочет работать...есть решение проблемы(?

10
Perl / Подсчет строк и слов...
« : 27 Марта 2010, 04:37:42 »
Попалось тестовое задание...на этот вопрос не могу дать ответ...

Что неправильно в программе, подсчитывающей число строк и слов в файле? (аналог стандартной программы wc, словами считаем последовательности непробельных символов, т.е. \\S) Что можно улучшить?

open F, $ARGV[0] || die $!;
my @lines = ;
my @words = map {split /\\s/} @lines;
printf "%8d %8d\\n", scalar(@lines), scalar(@words); close(F);

Может есть у кого предположения?

11
Perl / Права на запись...
« : 02 Декабря 2009, 04:40:28 »
Столкнулся с такой проблемой...Хостинг от netsol.com не дает права на директорию и файлы 777 ставить. Максимум 775. Perl поэтому не может записывать файлы в директории и перезаписывать. Сапорт ответил, что на ПХП 775 всё работает. Вопрос, можно в перле как-нибудь обойти это?

12
Подскажите как сделать, чтобы при разборе строки удалить свола, в которых повторяются символы . . . Нужно с помощью регулярки . .

13
Perl / Объекты . . .
« : 21 Июня 2009, 08:13:59 »
В общем что-то не получается заюзать как следует ООП

Есть такая задача . . . работа с БД . . .

Основной скрипт:

#!/usr/bin/perl

use lib "./pm";

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Mysql;

print CGI::header;

my $connect = Mysql->new();
my $db_h = $connect->connect();

$connect->execute_query("DROP TABLE aaa");

----------------- Mysql.pm

package Mysql;

sub new {
   my $check = shift;
   my $class = ref( $check ) || $check;
   my $self = {};
   bless($self, $class);
   return $self;
}

sub connect {
   my $self = shift;
   my $query_setcharset = shift;

   my $SQL_DATABASE = "wiw_test";
   my $SQL_HOSTNAME = "localhost";
   my $SQL_PORT = "3306";
   my $SQL_USER = "wiw_test";
   my $SQL_PASSWORD = "123";

   $self->{dbh} = DBI->connect("DBI:mysql:database=$SQL_DATABASE;host=$SQL_HOSTNAME;port=$SQL_PORT", $SQL_USER, $SQL_PASSWORD) || die ($DBI::errstr);

   $query_setcharset = $self->{dbh}->prepare("SET NAMES cp1251");
   $query_setcharset->execute();
   $query_setcharset->finish();
}
sub disconnect {
   my $self = shift;
   $self->disconnect() || die $DBI::errstr;
}

sub execute_query {
   my $self = shift;
   my $query = shift;

   print "$self , $query";
   
   my $query = $self->prepare($query);
   $query->execute();
}

1;

Коннект проходит нормально, объект создается.
При попытке сделать запрос - выдает ошибку, что метод prepare не найден

при попытке сделать дисконнет - перл вообще вываливается . . .

14
Perl / Регулярки
« : 01 Июня 2009, 12:47:51 »
Есть переменная  . . . в ней данные примерно такой структуры:

[START]
dwa
daw
dwad
wa
[END]
[START]
TEXTTEXT
[END]

Нужно вытащит всё, что между [START] & [END] по блокам

делаю так $ou=~/\\[START\\](.*)\\[END\\]?/is

вытаскивает полностью dwa
daw
dwad
wa
[END]
[START]
TEXTTEXT

15
Perl / Параллельные запросы
« : 27 Мая 2009, 11:09:39 »
В общем такая идея . . . нужно сделать 10 параллельных запросов по протоколу http к страничкам в интенете с помощью перла . . . как это можно реализовать? . . . пвторюсь . . . это должно быть именно параллеьно, а не циклом

Страницы: [1] 2 3 ... 9