епрст... find одинаков на фре и линухе? черта с два. О какой переносимости речь?Alex Keda писал(а):2 paix
вы бредите
да, и 90% основных опций у основных команд, типа awk/grep/find/etc - они одинаковы.
)
Alex Keda писал(а):если вы используете какие-то нестандартные извраты - это ваша проблема.
Alex Keda писал(а):почему все линуксоиды всегда грамотно и кусками цитируют только то что им удобно?Alex Keda писал(а):если вы используете какие-то нестандартные извраты - это ваша проблема.
Alex Keda писал(а):примеры будте добры.
того как финд некорректно отработает с каким- то ключом на другой платформе.
=======
этот пункт:
> если вы используете какие-то нестандартные извраты - это ваша проблема.
остаётся на вашей совести (т.е. вам придётся решить - что ключ в приведённом вами примере - пиздец как необходим и постоянно используется вами в повседневной жизни)
желательно, больше одного ключа. три хотя бы. для полноты картины
Код: Выделить всё
useradd ..
pw useradd ..
if [ `uname` = "FreeBSD" ]; then
yesterday=`date -v-1d +%d%m%y`
else
yesterday=`date +%d%m%y --date='1 days ago'`
fi
# generate random string
OS=`uname`;
if [ "$OS" = "FreeBSD" ]; then
string="`jot -r 1 5999999999999999 0`|"
md5="`md5 -s $string | awk '{print $4}' | cut -c 1-16`"
else
string=`dd if=/dev/urandom count=10 bs=1 2>/dev/null | hexdump | cut -d \ -f 2-| head -n 1 | tr -d " "`
md5=$string
fi
#filelist=`find ${destdir}/daily.${year} -name "exim\.*" -a -mtime -7 -print0 -printf " "` #- works only on linux
filelist=`find ${destdir}/daily.${year} -name "exim\.*" -a -mtime -7 -print0 | xargs -0` #- works on both linux\freebsd
# Примеры надерганные из http://www.directadmin.com/setup.sh
if [ $OS = "FreeBSD" ]; then
DEVS=`/sbin/ifconfig -a | grep -e "^[a-z]" | cut -d: -f1 |grep -v lp0|grep -v lo0|grep -v tun0|grep -v sl0|grep -v ppp0|grep -v faith0`
..
if [ $OS = "FreeBSD" ]; then
fetch -o $CBPATH/options $SERVER/custombuild/options-1.1
else
$WGET_PATH -O $CBPATH/options $SERVER/custombuild/options-1.1
fi
Код: Выделить всё
# known FS type numbers
my %fs_type = (
0 => "4.2", # 0x00000000
256 => "UFS", # 0x00000100
2560 => "ADVFS", # 0x00000A00
4989 => "EXT_SUPER_MAGIC", # 0x0000137D
4991 => "MINIX_SUPER_MAGIC", # 0x0000137F
5007 => "MINIX_SUPER_MAGIC2", # 0x0000138F
9320 => "MINIX2_SUPER_MAGIC", # 0x00002468
9336 => "MINIX2_SUPER_MAGIC2", # 0x00002478
19780 => "MSDOS_SUPER_MAGIC", # 0x00004d44
20859 => "SMB_SUPER_MAGIC", # 0x0000517B
22092 => "NCP_SUPER_MAGIC", # 0x0000564c
26985 => "NFS_SUPER_MAGIC", # 0x00006969
38496 => "ISOFS_SUPER_MAGIC", # 0x00009660
40864 => "PROC_SUPER_MAGIC", # 0x00009fa0
44543 => "AFFS_SUPER_MAGIC", # 0x0000ADFF
61265 => "EXT2_OLD_SUPER_MAGIC", # 0x0000EF51
61267 => "EXT2_SUPER_MAGIC", # 0x0000EF53
72020 => "UFS_MAGIC", # 0x00011954
19911021 => "_XIAFS_SUPER_MAGIC", # 0x012FD16D
19920820 => "XENIX_SUPER_MAGIC", # 0x012FF7B4
19920821 => "SYSV4_SUPER_MAGIC", # 0x012FF7B5
19920822 => "SYSV2_SUPER_MAGIC", # 0x012FF7B6
19920823 => "COH_SUPER_MAGIC", # 0x012FF7B7
4187351113 => "HPFS_SUPER_MAGIC", # 0xF995E849
);
sub df ($) {
my $dir = shift;
my ($fmt, $res, $type, $flags, $osvers, $w);
# struct fields for statfs or statvfs....
my ($bsize, $frsize, $blocks, $bfree, $bavail, $files, $ffree, $favail);
Carp::croak "Usage: df '\$dir'" unless $dir;
Carp::croak "Error: $dir is not a directory" unless -d $dir;
# try with statvfs..
eval { # will work for Solaris 2.*, OSF1 v3.2, OSF1 v4.0 and HP-UX 10.*.
{
package main;
require "sys/syscall.ph";
}
$fmt = "\0" x 512;
$res = syscall (&main::SYS_statvfs, $dir, $fmt) ;
# try with statfs..
|| eval { # will work for SunOS 4, Linux 2.0.* and 2.2.*
{
package main;
require "sys/syscall.ph";
}
$fmt = "\0" x 512;
$res = syscall (&main::SYS_statfs, $dir, $fmt);
# statfs...
|| eval {
{
package main;
require "sys/syscall.ph";
}
# The previous try gives an unknown fs type, it must be a different
# structure format..
$fmt = "\0" x 512;
# Try this : n2i7L119
$res = syscall (&main::SYS_statfs, $dir, $fmt);
($type, $flags, $bsize, $frsize, $blocks,
$bfree, $bavail, $files, $ffree) = unpack "n2i7", $fmt;
$res == 0 && defined $fs_type{$type};
}
# Neither statfs nor statvfs.. too bad.
|| eval {
$osvers = $Config{'osvers'};
$w = 0;
# These system normaly works but there was a problem...
# Trying to inform the user...
if ($^O eq 'solaris' || $^O eq 'dec_osf') {
# Tested. No problem if syscall.ph is present.
warn "An error occured. statvfs failed. Did you run h2ph?\n";
$w = 2;
}
if ($^O eq 'linux' || $^O eq 'freebsd') {
# Tested with linux 2.0.0 and 2.2.2
# No problem if syscall.ph is present.
warn "An error occured. statfs failed. Did you run h2ph?\n";
}
if ($^O eq 'hpux') {
if ($osvers == 9) {
# Tested. You have to change a line in syscall.ph.
warn "An error occured. statfs failed. Did you run h2ph?\n" .
"If you are using a hp9000s700, see the Df documentation\n";
}
elsif ($osvers == 10) {
# Tested. No problem if syscall.ph is present.
warn "An error occured. statvfs failed. Did you run h2ph?\n";
}
else {
# Untested
warn "An error occured. df failed. Please, submit a bug report.\n";
}
$w = 3;
}
$w;
}
|| Carp::croak "Cannot use df on this machine (untested or unsupported).";
) Код: Выделить всё
eval { # will work for Solaris 2.*, OSF1 v3.2, OSF1 v4.0 and HP-UX 10.*.
$res = syscall (&main::SYS_statvfs, $dir, $fmt) ;
|| eval { # will work for SunOS 4, Linux 2.0.* and 2.2.*
$res = syscall (&main::SYS_statfs, $dir, $fmt);
http://www.opengroup.org/onlinepubs/009 ... hap02.htmlAhab444 писал(а): И заодно книжку подскажите плиз
Код: Выделить всё
./script