что быстрее работает ...

[havarz]

Всем привет.
Что быстрее работает
echo "blabla" > /file на shell
или
open (file) print blabla close (file)
на Perl, Tcl или еще на чем то.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

а потестить - не судьба чтоли?

[havarz]

думал, что уже ктонить тестил.
раз нет, будем тестить сами.

[zg]

да можно не тестить, перл быстрее в любом случае, а ещё быстрее C и буферизированный вывод. Но это будет хоть сколько-то заметно только на гигабайтных объёмах информации.

[hizel]

если для одного действия то shell быстрее
perl пока проверит, пока откомпилит и только потом выполнит
к тому же perl не входит в основу freebsd

[Alex Keda]

входит

[hizel]

зачем оно тогда у мя собиралось?

Код: Выделить всё

se@serv4 ~ >pkg_info | grep perl-5.8
perl-5.8.8_1        Practical Extraction and Report Language

[paradox]

уже невходит) вырезали гадость из системы

[Alex Keda]

уже невходит) вырезали гадость из системы

входит. тока версия более старая. 5.0

[hizel]

Код: Выделить всё

se@serv4 /usr/src >find ./ -name 'perl*' -print
./contrib/file/Magdir/perl
./contrib/ipfilter/perl
./contrib/nvi/include/perl_extern.h
./contrib/nvi/perl_api
./contrib/nvi/perl_api/perl.xs
./contrib/nvi/perl_api/perlsfio.c
./contrib/nvi/perl_scripts
./crypto/openssl/crypto/perlasm
./crypto/openssl/util/perlpath.pl

Код: Выделить всё

se@serv4 /usr/src >uname -a
FreeBSD serv4 6.2-RELEASE FreeBSD 6.2-RELEASE #1: Wed Nov 28 10:43:52 MSK 2007     se@serv4:/usr/obj/usr/src/sys/DIMI  i386

ку ку?

[havarz]

задача такая:
есть машина на которой кроме shell (сильно порезанный) есть только Tcl.
изменения в систему вносить нельзя (т.е. что-то поставить, добавить, нельзя)
на ней работает демон pppd. Задача.
отслеживать начало и конец ppp сессий, и писать их в лог файл.
я тут накропал вот такой скриптец на Tcl (пришлось по ходу его изучать, хорошо книгу в свое время прикупил)

в аргементе получает ppp интерфейс (например ppp1)

Код: Выделить всё

#!/usr/bin/tclsh

set ndc "841544"

set w [lindex $argv 0]
set w [string index $w end]
set dt [clock format [clock seconds] -format %y%m%d]
set tm [clock format [clock seconds] -format %T]

if [ catch {set pr [exec ps -eo start,command | grep ppp_up | grep -w $w | grep -v grep]}] {
    puts "nothing found"
    exit 0
}
set fid [open /mnt/dom/ppp_log/$dt.log a 0644]
set ss [lindex $pr 0]
set st_s [clock scan "$ss"]
set stp_s [clock scan "$tm"]
if {$stp_s < $st_s} {set dt [clock format [clock scan "$dt -1 day"] -format %y%m%d]}
set total [expr $stp_s - $st_s]
set total [clock format "$total" -format %T]
puts $fid "$dt $ss - $tm $ndc[lindex $pr 4] [lindex $pr 5] $total"
close $fid
exit 0

понятно, что при небольшом кол-ве сессий работать будет, а при увеличении.... хрен.

вот и вопрос. Что лучше
set fid [open file a 0644]
puts "blabla"
close $fid
или
exec [echo "blabla" >> file]

[Alex Keda]

хе. значит я от жизни отстал.
тогда всё - теепрь могу смело скрипты системные на php писать - последнее преимущество перла ушло.

[hizel]

Код: Выделить всё

exec [echo "blabla" >> file]

вызов fork и shell будет медленее

хм, ну смотря как посмотреть, perl собирается сразу как только чтонибудь из портов собираешь

[Alex Keda]

ф топку

[hizel]

perl?

[havarz]

забыл добавить, машина работает под Linux

[Alex Keda]

perl?

точно

[havarz]

не совсем понятная дискуссия между вами уважаемые (без иронии)
спрашивал в принципе не об этом.
Не я этот сервер подымал, что дали с тем и работать пришлось.
С огромным удовольствием поставил бы на него Perl, но нельзя.

[hizel]

да это мы отвлеклись
конструкция с open естественно быстрее

[havarz]

Спасибо.

[zg]

делай на C и ресурсов меньше и траблов

[havarz]

да млин, с удовольствием сделал бы на С, но там ни компилятора и хейдеров ни хрена ничего нет.
урезаный линь до нельзя. условия жесткие, ни каких бинарников только на shell (порезанном) или Tcl.

[paradox]

параноя в секюрити?

[zg]

да млин, с удовольствием сделал бы на С, но там ни компилятора и хейдеров ни хрена ничего нет.

а зачем он именно там? скомплил на виртуалке и залил по ssh бинарник, если шел есть, значит и ссх есть

[havarz]

Немного подробнее про сие творение.
Сервер используется для предоставления услуг телефонии (DECT)
Это промышленное оборудование, поэтому производитель очень ревностно отностся к любому вмешательству в конфигурацию, установку дополнительного ПО и т.д.
На нем поднят также pppd и radius клиент, настроенный на какие-то ихние приблуды. Переконфигурить, допустим на наш radius сервер, мы не можем по изложенным выше причинам. Но предоставить пользователям услугу dialup, мы можем. Вот и возникла мысль, раз ничего нельзя снимать dialup сессии скриптом. Это как нестранно нам позволили.