forum.lissyara.su

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

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

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

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

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

#!/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

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

exec [echo "blabla" >> file]