AnySQL.net

AIX下C语言取得Load值

    在AIX下可以用libperfstat包来方便地取得Load Average的三个值. #include <stdio.h> #include <sys/time.h> #include <sys/proc.h> #include <libperfstat.h> int main(int argc, char *argv[]) {   perfstat_cpu_total_t cpu_total_buffer;   perfstat_cpu_total(NULL, &cpu_total_buffer,           sizeof(perfstat_cpu_total_t), 1);   while(1 == 1)   {     sleep(10);...

Posted on May 3, 2008 9:08 PM

Unix/Linux下C语言POSIX多线程程序示例

    原想用fork机制来实现多个任务并发的, 结果始终没有搞定其中的数据共享问题, 就换成用POSIX线程算了. #include <pthread.h> #include <stdio.h> void *subCall(void *param) {   int *p = param;   (*p) ++;   return NULL; } int main() {    int i, *p=NULL;    int err;    pthread_t pid;    p = (int *)...

Posted on August 9, 2007 11:18 AM

Unix/Linux上C语言fork多个进程的代码示例

    下面一段代码算是一个完整的例子了, 纪念一下. #include <stdio.h> #include <sys/types.h> #include <unistd.h> int main() {    pid_t pid;       /* Remove the defunc pid in process table */    signal(SIGCLD, SIG_IGN);    while(true)    {       switch(pid=fork())       {          case -1:           ...

Posted on August 8, 2007 10:54 PM

在Perl中如何派生多进程 -- fork函数

    这个函数当前在学校没有搞懂, 刚从学校出来时也没搞懂, 不会用他来写多线程程序. 今天有人问我在Perl中如何进行多进程编程, 去Google了一把, 发现境界好象比以前高了, 因为感觉上懂了一些了. 下面是写的一个例子: #!/usr/bin/perl # my $pid = fork(); if (!defined($pid)) {    print ("Fork process failured!\n");    exit(); } if ($pid) {      # This is the child process.      sleep(1);     ...

Posted on March 21, 2007 9:18 PM

Perl程序的一个小问题 -- Command not found

    今天发现以前能跑的一个角本, 突然不能跑了. 于是我被要求去看了一下为什么不能跑了? 找到角本后, 直接运行报"Command not found"的错误, 但是我看文件是存在的, 并且执行的权限也是有的, 如下所示: $ p1.pl p1.pl: Command not found $ ls -la p1.pl -rwxrwxr-x   1 oracle   dba  ...... p1.pl     用vim打开程序一看, 原来第一行中的perl解释器的路径不对: #!/usr/share/bin/perl -w #     从而导致了运行perl程序时报"Command not found", 将其更改为准确的值后,...

Posted on January 10, 2007 5:07 PM

Perl中文件与目录的操作

  1, 删除文件 -- unlink     如成功返回删除的文件数(True), 否则返回0(False). 如: unlink("test.txt"); unlink("test1.txt","test2.txt"); unlink(<test*.txt>); // "rm test*.txt" under shell   2, 重命名文件 -- rename     如成功返回真(True), 否则返回假(False). 如: rename("a.txt","b.txt"); rename("a.txt","subdirectory/a.txt");   3, 创建连接 -- link(硬链接), symlink(软链接)和readlink(取得链接内容)     对link和symlink, 如成功返回真(True),...

Posted on January 5, 2007 7:34 PM

Perl或Shell中的文件测试命令

    最近用Shell和Perl的机会越来越多了, 又开始看相关书籍了, 下面是从书中抄下来的关于文件操作的命令: -r可被当前用户读 -w可被当前用户写 -x可被当前用户执行 -o属于当前用户 -R可被setuid之前的用户读 -W可被setuid之前的用户写 -X可被setuid之前的用户执行 -O性于setuid之前的用户 -e文件或目录存在 -z文件存在并且大小为0 -s文件存在并且大小不为0 -f是否普通文件 -d是否目录 -l是否符号连接 -S是否套接字(Socket) -p是否管道(Pipe) -b是否块设备 -c是否字符设备 -u是否属于setuid之后的用户 -g是否属于setgid之后的组 -ksticky标志是否设置 -tisatty()函数是否为真 -T是否文本文件 -B是否二进制文件 -M最后修改距现在的天数 -A最后访问距现在的天数 -C最后Inode修改距现在的天数        这些东西很是常用, 但却总是记不清....

Posted on January 3, 2007 7:28 PM

Linux/Unix下的虚拟屏幕, 你开始用了吗?

    作为一个DBA, 我经常要连到数据库服务去执行角本或做其他事情, 当然网络突然断开的事情也是经常有的, 因此我们都使用一个共享软件screen, 允许你在服务上使用虚拟屏幕, 这样的话就可以不怕网络断开的情况了. 下面介绍一下最常的几个命令:     1, 创建一个虚拟屏幕. screen -S screen_name     2, 退出屏幕, 你可以同时按下Ctrl+A+D.     3, 列出所有的虚拟屏幕. $> screen -ls There are screens on:         10786.anysql_screen1    (Detached)         10793.anysql_screen2    (Detached) 2 Sockets in /tmp/screens/S-oracle.    ...

Posted on November 16, 2006 9:19 AM