高手们,可以帮解读一下以下这个脚本么?小弟不才..

高手们,可以帮解读一下以下这个脚本么?小弟不才..

高手们,可以帮解读一下以下这个脚本么?小弟不才..
#!/usr/bin/perl
$>=getpwnam("test"); #切换用户
$dm=`date ''''''''''''''''+%Y%m%d''''''''''''''''`; #定义时间变量
open(STDOUT,">/home/test/backups/test/".$dm); #stdout不明白.
system("pg_dump","test"); #备份数据库.
open(STDOUT, ">/dev/tty");
open(STDOUT,">/home/test/backups/test2/".$dm); #stdout不明白.
system("pg_dump","test2"); #备份数据库.
open(STDOUT,">/dev/tty");
$>=$<;
望高手们指点,,小弟自学perl...遇到好多不懂..希望高手能解答一二.
切换到test用户权限 (effe.
切换到test用户权限 (effective uid)
然后取得当时的时间
把STDOUT重定向到想备份到的文件(文件名就是时间字符串)
备份数据库test
把STDOUT重定向回tty,
恢复自己进程的权限 [CCB]9[/CCB]