Получение первых N байт по http

[ocehb]

#! perl

use LWP::UserAgent
use Try::Tiny

my $chunk;
try { new LWP::UserAgent()->get ($url, ':content_cb' => sub { $chunk = $_[0]; die },
                                       ':read_size_hint' => 32); };

однострочник.

# perl -MLWP::UserAgent -le 'try { new LWP::UserAgent()->get ($ARGV[0], \
  '':content_cb'' => sub { print  $_[0]; exit }, '':read_size_hint'' => $ARGV[1]); }' \
  http://www.google.fi/images/srpr/logo2w.png 32 | file -
/dev/stdin: PNG image data, 275 x 95, 8-bit colormap, non-interlaced

Comments

[avysk]

Изобретаем велосипед?

$ curl -s http://www.google.fi/images/srpr/logo2w.png -r 0-31 | file -
/dev/stdin: PNG image data, 275 x 95, 8-bit colormap, non-interlaced

Не говоря уже о том, что трёхколёсный однострочный велосипед-то не едет в том виде, в котором он приведён (syntax error).

И кстати, документация на LWP говорит, что "However, there is no guarantee that's how big the $data string will actually be. It is merely a hint, which LWP may disregard." То есть это всё безобразие вообще может не работать случайным образом. И, кстати, запускать perl без -w -- дурной тон (см. раздел BUGS в man perl) :-)

[ocehb]

1.

# ssh roof
Last login: Mon Jul 25 08:38:18 2011 from 2.12.85.06
Copyright (c) 1980, 1983, 1986, 1988, 1990, 1991, 1993, 1994
        The Regents of the University of California.  All rights reserved.

FreeBSD 7.3-STABLE (LORKA) #2: Mon Nov  1 18:50:43 MSK 2010

Welcome to FreeBSD!

# curl
zsh: command not found: curl
#

2. да, try надо удалить.

3. да, но пока не подводил.

4. однострочники можно :)

[avysk]

1. Ага, курла нет, а LWP и Try сами заводятся, от грязи :) cd /usr/ports/где-оно-там-у-них-лежит/curl && make install, не?
1a. Это что, не просто перловые скрипты от рута пускаем, а ещё и ssh рута разрешает? Ой. Или это мимикрия?
2. во-во
3. во-во
4. #! perl кто написал? ;-)

[ocehb]

1. я не root на данном компьютере, поэтому make install не для меня. а поставить модули в HOME без проблем.
предвидя дальнейeие рассуждения, да, noexec.
1a. да, PS1="# ".
4. а, это. схема использования.