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

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


Сообщения - commander

Страницы: 1 2 [3] 4 5 ... 92
31
Perl / Помогите пожалуйста!
« : 21 Декабря 2007, 12:11:38 »
задание 5:

script.pl

#!/usr/bin/perl -w
use strict;
use CGI qw(standard);

my @sportmans;

map {
   push @sportmans, param("second_name_$_") . "_" . param("result_$_");
} (1..4);

@sportmans = sort @sportmans;

print "Content-type: text/html\\n\\n";
print join ("
", @sportmans);

html:






        form




Спортсмен 1 : результат 1:

Спортсмен 2 : результат 2:

Спортсмен 3 : результат 3:

Спортсмен 4 : результат 4:






32
Perl / Помогите пожалуйста!
« : 21 Декабря 2007, 11:58:32 »
Задание 4.
find.pl
#!/usr/bin/perl -w
use strict;

chop(my $input = <>); #читаем данные из ввода и удаляем перенос строки...

$input = lc($input); # приводим данные к нижнему регистру, ибо искаль будем без учета регистра

opendir(DIR, "."); # открываем текущий каталог
my @dirs = readdir(DIR); # читаем в массив @dirs файлы этого каталога
closedir DIR;    # закрываем каталог

shift @dirs; # удаляем .
shift @dirs; # удаляем ..

#начинаем по порядку перебирать файлы в каталоге...
for my $file (@dirs){
    #не ищем в себе
    if ($file ne "find.pl"){

        open (FL, "<$file");  # открываем файл для чтения

        my @lines = readline FL;  # в массиы @lines считываем все строки текущего файла
        #начинаем по порядку перебирать строки
        for (0 .. $#lines) {

            $lines[$_] = lc($lines[$_]);  #приводим строку к нижнему регистру
            if ($lines[$_] =~m/$input/) {  # непосредственно поиск....

             print qq{
                   Input text find in:
                   File: $file
                   Line number: $_
                   Line:
                   $lines[$_]
                   };
            }

        }
        close (FL);      # закрываем файл
    }


}

33
Perl / Помогите пожалуйста!
« : 21 Декабря 2007, 11:21:03 »
arto
я с похмелья люблю делать плохие дела.. )))

34
Perl / Помогите пожалуйста!
« : 21 Декабря 2007, 11:20:19 »
pupok
Задание №1
my @array = (1,2,3,4,5);
my %Hash;
map {
     $Hash{$_} = $array[$_];
} (0 .. $#array);

Задание №2
причем тут регексп?  :
my $string = "abcdefg";
print length $string;
но если хотите:

my $string = "abcdefg";

my $length=0;
map {$length++}($string =~/./g);
print $length;

Задание №3
блять, вот преподам надо за это руки отрезать!!!
какой в пезду "Первичный ключ" !!!??? Что за терминология?

долбоебизм:
use Data::Dumper;

my $data;

$data = [
         {futs=>"apple", futs_faworite=>1, futs_not_faworite=>0, futs_tasty=>1, futs_not_tasty=>0},
         {futs=>"orange", futs_faworite=>1, futs_not_faworite=>1, futs_tasty=>1, futs_not_tasty=>1},
        ];

print Dumper $data;

35
Perl / Ссылка на дескриптор объекта
« : 18 Декабря 2007, 11:21:09 »
skooby
1. какой смысл делать new и не делать connect?
ИМХО:
connector  -> _connector т.е. приватный метод... и вызывать его из констуктора...

2. selector будет на все запросы?

3. похожая структура организованна тут:
http://search.cpan.org/~stellar/SQLayer-1.1/SQLayer.pm
может лучше использовать уже что-то готовое... а не изобретать велосипед... ?

36
kiruxa
SELECT id FROM table WHERE parent_id=1;

37
JavaScript & JScript / WYSIWYG отлов выделения
« : 17 Декабря 2007, 17:26:57 »
Night_Wolf
регулярные выражения?

38




   test
   
   





test











оно?

39
touris
вполне реально...

40
флэймеры... млин...
а препода составившего такой вопрос:
Цитировать
1 Какие инструкции сравнения характерны для языка Javascript?
2 Как они используються?

 я бы подвесил за яйца!

41
Обсуждение сайтов / Оцените!!!
« : 15 Ноября 2007, 16:37:51 »
FieryFeniks
ИМХО
10 - 20 минут...

42
hanslinger
я по большей части по ишачку специализируюсь.. ;)

44
Egorsha
оглавления нету..

45
Perl / CGI::Session и IE
« : 15 Ноября 2007, 11:30:58 »
с куками...

Страницы: 1 2 [3] 4 5 ... 92