Daily Archives: 十月 26th, 2007

为了让贴出来的代码符号正确开头空格也正确写的perl脚本

2007 十月 26 星期五 15:19 – 15:19

#!/usr/bin/perl
 
 open(TMPFILE,”$ARGV[0]“)||die “error”;
 open(SHOWFILE,”+>$ARGV[0].txt”)||die “error”;
 while($line=<TMPFILE>)
{
 $line =~ s/(\S)/$1/;
 $line =~ s/\n/<\/code>$&/;
 $line =~ s/^\s+//;
 $tmp= $&;
 $tmp=~ s/\n//g;
 $tmp=~ s/[ \t]/&nbsp;/g;
#print “$tmp\n”;
 $line= $tmp.$line;
 print $line;
}
close(TMPFILE);
close(SHOWFILE);

By zerged | Posted in linux solaris shell eda 以及工作相关 | Comments (0)

显示目录大小并计算总和的bash脚本

2007 十月 26 星期五 11:08 – 11:08

#!/bin/bash
if [ -z "$1" ]; then
 echo “Usage : dusum [File or Directory] “
 exit 1;
fi
sum=0
for i in $*
do
k=0
  for j in `du -sk $i`
  do
     if [ $k -eq 0 ]; then
         echo “$j $i”
         sum=$(($sum + $j))
         k=1
     else
         k=0
     fi
  done
done
echo -e “\n”
echo “$sum”
注意作为命令参数的文件或目录名不能含空格等分隔符，否则会出错

By zerged | Posted in linux solaris shell eda 以及工作相关 | Comments (0)