小编use*_*367的帖子

是否有一种向脚本添加帮助功能的标准方法？最简单的方法可能是参数并打印一些文本,如果它是"-help"或其他东西.有没有人有关于如何做到这一点的任何例子？

谢谢!

是否可以以LIFO或FIFO方式使用哈希？如何确保哈希以相同的顺序打印添加的元素？

#!/usr/bin/perl

print "content-type: text/html \n\n";

# BEGINNING HASH
%coins = ( "Quarter" , .25,
          "Dime" ,    .10,
          "Nickel",   .05 );
# PRINT THE OLD HASH
while (($key, $value) = each(%coins)){
    print $key.", ".$value."<br />";
}

# ADD NEW ELEMENT PAIRS
$coins{Penny} = .01;
$coins{HalfDollar} = .50;

# PRINT THE NEW HASH
print "<br />";
while (($key, $value) = each(%coins)){
     print $key.", ".$value."<br />";
}

这给了

Nickel, 0.05
Dime, 0.1
Quarter, 0.25

Nickel, 0.05
Dime, 0.1
HalfDollar, 0.5
Penny, 0.01 …

我想知道是否有任何方法可以使用模具进行清理.例如,如果我创建了一些文件,但是如果程序遇到需要死的情况,我希望删除它们.

谢谢

我的perl脚本使用END函数来解除一些临时文件的链接.有时脚本会被用户中断或暂停,并且临时文件不会被删除.

在perl中处理这个的程序是什么？除非脚本完全运行或执行退出或骰子,否则end函数不起作用.

谢谢