ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
16.10.2007, 12:33
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
#!/usr/bin/perl
use strict;
my $var = "$ARGV[0]";
print reverse($var);
C:>perl.pl privet
privet
|
|
|
16.10.2007, 12:43
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Хм....странно, но еще страннее, если не
print reverse($var);
а
print reverse($var)."\n";
Тогда можно без кавычек брать аргв )
)) |
|
|
|
16.10.2007, 12:50
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
".\n" - сцуко:/
Всё работает:
PHP код:
#!/usr/bin/perl
use strict;
my $var = $ARGV[0];
print reverse($var)."\n";
|
|
|
|
16.10.2007, 13:28
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Угу...перл ваще штука странная )) |
|
|
|
16.10.2007, 13:33
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
нафлудили без меня тут.. )
"\n" тут, кстати говоря, абсолютно непричем..
вариант 1:
Код:
$a = reverse $ARGV[0];
print $a;
вариант 2:
Код:
print reverse split //, $ARGV[0];
вариант 3. наверно, самым правильным было бы написать так:
Код:
print scalar reverse $ARGV[0];
но можно и так, к примеру (вариант 4):
Код:
print eval reverse $ARGV[0];
+)
Последний раз редактировалось Digimortal; 16.10.2007 в 14:12..
|
|
|
|
16.10.2007, 13:42
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Согласен, не причем
Но таки заработало-же... |
|
|
|
16.10.2007, 19:00
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
Про кавычки для $argv[0] это ваще бред был
|
|
|
|
17.10.2007, 00:33
|
|
Новичок
Регистрация: 08.09.2007
Сообщений: 3
Провел на форуме:
10440
Репутация:
0
|
|
Web Server
Пытаюсь написать простенький сервер))) Чтоб просто возвращал запрос в html обёртке. Проблема: не конектиться. И вообще ничего не print'ует.Может вечный цикл ему не по душе. Хотя компилируется. Бред.  Подскажите
Код:
#!/usr/bin/perl -w
use IO::Socket;
my $sock = new IO::Socket::INET
(
PeerAddr => 127.0.0.1,
PeerPort => 8080,
Proto => 'tcp',
Listen => 1
) or die "$! fucking socket";
while(5==5)
{
$sock->listen();
print "<html>";
print "<head> <title>Server Answer</title> </head>";
print "<body>";
$acc = $sock->accept();
while(<$acc>)
{
print $_;
}
print "</body></html>";
}
|
|
|
|
17.10.2007, 00:48
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
это жесть чувак
perldoc IO::Socket
Код:
#!perl
use strict;
use warnings;
use IO::Socket;
my $sock = IO::Socket::INET -> new(LocalAddr => '127.0.0.1', LocalPort => 8080, Listen => 1) || die $!;
while(1)
{
next unless my $conn = $sock -> accept;
while($conn -> connected)
{
...
}
}
Последний раз редактировалось KSURi; 17.10.2007 в 01:25..
|
|
|
|
18.10.2007, 10:05
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Вопрос: Допустим такую ситуацию:
PHP код:
my $var = '55.55';
my ($VR, $VRR) = split(/./,$var);
Следовательно у переменных $VR, $VRR значения == 55 . Но, в скрипте они имеют вид стринговых. Как мне перевести их в целочисленные? |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
