Темы

1

Perl / printf

« : 24 Августа 2007, 14:00:30 »

$ perl -e \'printf("%07d",267.84*100)\'
0026783

Здравствуйте.
куда делась единичка???

2

Perl / Странная строка

« : 03 Августа 2007, 16:19:57 »

Здравствуйте все.
Копался в linux coreutils и нашел там скрипт "wheel-gen.pl",
который начинается так:
eval \'exec /usr/bin/perl -S $0 ${1+"$@"}\'
  if 0;

Интересен смысл употребления этой конструкции.
Может кто подскажет. Заренее гран мерси.

3

Perl / ref()

« : 19 Июня 2007, 14:20:34 »

Здравствуйте господа.
У меня есть маленький вопрос:
есть функция вида $ref->fun(),
как мне получить ссылку на нее и
тип ссылки должен быть CODE.

В таком виде получаю SCALAR ((
#!/usr/bin/perl
use strict;
my $ref=[];
bless $ref,\'TEST\';

print ref(\\$ref->fun());

package TEST;

sub fun
    {
        return 1;
    }

Заранее большое мерси!

4

Perl / #perl -h | grep \\\\-P

« : 22 Ноября 2006, 09:26:30 »

#perl -h | grep \\\\-P
  -P              run program through C preprocessor before compilation

Интересно, чем полезен переключатель -P ?
Спасибо

5

Perl / URL

« : 12 Июля 2006, 09:56:54 »

Всем привет!
Есть ссылки вида:
http://ftp://192.168.10.101/book/Книги/Парфенова%20Анастасия/
Как редствами perl корректно привести их к виду:
http://ftp://192.168.10.101/book/%CA%ED%E8%E3%E8/%CF%E0%F0%F4%E5%ED%EE%E2%E0 %C0%ED%E0%F1%F2%E0%F1%E8%FF/
Спасибо