
平台论坛博客文库

› 论坛 › 程序设计 › Perl › 高手请指点

高手请指点 [复制链接]

hbbeger

白手起家

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2004-06-01 11:43 |只看该作者 |倒序浏览

what means to the following codes:
#!/usr/bin/perl -w
use IO::File;
use Getopt::Std;
$a="kk"
$b="kk.new"
@getopts("n

||die "Error:test.pl -n <new name>; -o <old name>; \n";

if ($opt_n)
{$newname=$opt_n;}
if ($opt_o)
{$oldname=$opt_o;}
$oldnamelen=length($oldname);
$newnamelen=length($newname);
$difflen=$oldnamelen-$newnamelen;
open(IN,"$a"

;
open(OUT,">;$b);
binmod(IN);
binmod(OUT);
$buff=0;
$strlen=0;
$reclen=0;

while ........................
............................

close (IN);
close (OUT);