Форум АНТИЧАТ - [Perl] Новичкам: задаем вопросы

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 81 из 156

« Первая

131

Последняя »

Опции темы

Поиск в этой теме

Опции просмотра

#801

26.11.2008, 22:40

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Отправить сообщение для Kaimi с помощью ICQ

Гы, ну еси на перле то типа:

Код:

use warnings;

while(<>) {eval $_}

sub radius {
@x = (); for(0..9) {print $x[$_] = int(rand(100)); print"|"} print "\n";
@y = (); for(0..9) {print $y[$_] = int(rand(100)); print"|"} print "\n";


print "R-?\n";
$R = <>;
$D = 0;
for(0..9) {($x[$_] < $R && $y[$_] < $R) ? (++$D) : ();}

print "Dots in radius: ".$D;
}


sub matrix {
@data = ();

	for my $x(0..3) {
		for my $y(0..5) {
			print $data[$x][$y] = int(rand(100))."  ";
		}
		print "\n";
	}

print "\n";

	for my $x(0..3) {
		$max = $data[$x][0];
		for my $y(0..5) {
			($max < $data[$x][$y]) ? ($max = $data[$x][$y]) : ();
		}
		print "Line $x maximum - $max\n";
	}
}

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

#802

02.12.2008, 18:34

GAVVVR

Познающий

Регистрация: 08.04.2008

Сообщений: 60

Провел на форуме:
111221

Репутация: 2

Отправить сообщение для GAVVVR с помощью ICQ

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

Здравствуйте. Передо мной стоит задача - произвести замену в тексте следующим образом:
Есть текст с хтмл кодом. Нужно взять текст между всеми тегами и , проделать с ним ряд операций, а затем результаты вставить обратно соответственно. К примеру, было так:
A...big code...B
а нужно, чтобы получилось так:
A1...big code...B1
Подскажите, как цикл организовать? То есть чтобы скрипт обработал значение между первыми и , заменил на результат преобразований и приступил к обработке следующего участка с и .
Сделать одну такую замену у меня прекрасно получается, а вот сделать другую автоматом - нет! Не догоняю, как организоать цикл, чтбы скрипт обработал один и тот же участок 1 раз

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

Последний раз редактировалось GAVVVR; 26.01.2009 в 16:39..

#803

02.12.2008, 19:09

[dei]

Участник форума

Регистрация: 24.11.2008

Сообщений: 205

Провел на форуме:
1123418

Репутация: 362

Отправить сообщение для [dei] с помощью ICQ

Цитата:

Сообщение от GAVVVR

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

Код:

#!/usr/bin/perl -w
$text = '<b>A</b>...big code...<b>B</b>...big code...<b>C</b>...big code...<b>D</b>...big code...<b>E</b>...big code...<b>F</b>';
$newtext = $text;

while($text =~ /<b>(.*?)<\/b>/g) {
	$str = $1;
	#всякие действия
	$str .= '1';
	################
	$newtext =~ s/$1/$str/;
}

print $newtext;

#804

04.12.2008, 02:08

OnArs

Участник форума

Регистрация: 01.08.2008

Сообщений: 239

Провел на форуме:
448388

Репутация: 31

Мужики! Всем привет!

Я скачал Active Perl и не могу разобраться, пытался проинсталить свой leecher.pl
используя команду install.

Делаю первый раз, может быть есть что-то лучше чем Active Perl? Посоветуйте пожалуйста.

Заранее благодарен!

#805

04.12.2008, 02:24

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Зачем скрипт инсталлировать? Просто запусти его типа
perl leecher.pl

#806

04.12.2008, 02:30

D1mka

Участник форума

Регистрация: 02.01.2008

Сообщений: 116

Провел на форуме:
1013405

Репутация: 58

http://www.cgi-scripts.info/perl/perlw32.shtml
так все делал?

#807

04.12.2008, 02:47

OnArs

Участник форума

Регистрация: 01.08.2008

Сообщений: 239

Провел на форуме:
448388

Репутация: 31

Запустил скрипт! Большое спасибо - буду теперь кывыряться

#808

06.12.2008, 12:49

$p01nt

Участник форума

Регистрация: 19.02.2008

Сообщений: 186

Провел на форуме:
584540

Репутация: 96

Всем привет! Как поделить масив на две части? (равные, почти равные) Как на три?
Пробую вот так:
#@all - массив
$np=$#all/2; @one=$all[0..$np];@two=$all[$np..$#all];

#809

06.12.2008, 15:00

Kaimi

Reservists Of Antichat - Level 6

Регистрация: 23.08.2007

Сообщений: 1,237

Провел на форуме:
18127311

Репутация: 1676

Цитата:

Как поделить масив на две части? (равные, почти равные)

Как вариант вот так:

Код:

@one = @two = ();
@array = (1..10);
for(0..$#array) {
 $_ < $#array/2 ? (push(@one,$array[$_])) : (push(@two,$array[$_]));
}

#810

06.12.2008, 17:22

~~Digimortal~~

Banned

Регистрация: 22.08.2006

Сообщений: 608

Провел на форуме:
6144796

Репутация: 1095

Цитата:

Сообщение от Kaimi

Как вариант вот так:

Код:

@one = @two = ();
@array = (1..10);
for(0..$#array) {
 $_ < $#array/2 ? (push(@one,$array[$_])) : (push(@two,$array[$_]));
}

Ну и зачем каждый раз в цикле делать эту проверку?

Страница 81 из 156

« Первая

131

Последняя »

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[php] Новичкам: задаем вопросы	_Great_	PHP, PERL, MySQL, JavaScript	16396	17.06.2010 21:19
[c/c++] Новичкам: задаем вопросы	_Great_	С/С++, C#, Delphi, .NET, Asm	5420	17.06.2010 13:33
Вопросы по Ipb 2.0	Voodoo_People	Форумы	26	15.02.2005 22:57

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход