Программирование > Perl

Помогите пожалуйста!

(1/3) > >>

pupok:
Нужно решить вот такие задачки по учебе чтобы догнать сокурсников а я много проболел и неуспеваю:(

Задание №1

Дан список элементы которого уникальные скаляры. Создать по нему хэш в котором ключи-элементы списка значения-позиции элементов в списке.

Задание №2

Подсчитать количество букв в строке. Одним регулярным выражением.

Задание №3

Создать массив хешей. Первичный ключ: фрукты. Вторичные ключи: любимые фрукты, нелюбимые фрукты, вкусные фрукты, невкусные фрукты. Вывести хешь на экран.

Задание №4

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

Задание №5

В HTML форме предусмотрите поля для ввода фамилий и результатов по прыжкам в длину для четырех спортсменов(т.е. всего 8) Пользователь вводит данные и после нажатия кнопки готово в perl скрипте сначала объединяются фамилии и результаты в один массив и далее выводится массив в отсортированном виде.

Заранее огромное спасибо!!!
можно тут или на почту mosfilms@mail.ru

arto:
50e

commander:
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;

commander:
arto
я с похмелья люблю делать плохие дела.. )))

commander:
Задание 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, "

Навигация

[0] Главная страница сообщений

[#] Следующая страница