悠悠博客 (讨论区存档) — 技术永无止尽，未来事在人为

[已经解决][求助]不能删除文件，删除语句没反应

[quote]
关于删除语句没反应
[Code]
#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::DialogBox;

my $a = 3;

if ($a > 1)
{
  ErrorWarning("Error");                       #===>正常执行
  unlink "C:/lan/156.txt";                #===>执行不了！~没反应。。。
}

#Make a Error Warning
sub ErrorWarning
{
  my $errortemp = shift;
  my $main = MainWindow->new( );
  $main->Button( -text   => $errortemp,
                -command => sub{exit}) ->pack(-side => "top");  #===>此句自动跳出程序
  MainLoop;
  return 0;
}

[/Code][/quote]
请教各位大虾，怎样我才能实现删除操作，为什么我的删除操作没反应？
******************************************************
才发现原来是方法直接跳出程序了，所以不执行下一句，那放在上一句就可以执行了；
[Code]
#重新编辑修改并解决问题
#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::DialogBox;

my $a = 3;

if ($a > 1)
{
  unlink "C:/lan/156.txt";                #===>可以执行。
  ErrorWarning("Error");                       #===>正常执行并且可以执行删除操作。
}

#Make a Error Warning
sub ErrorWarning
{
  my $errortemp = shift;
  my $main = MainWindow->new( );
  $main->Button( -text   => $errortemp,
                -command => sub{exit}) ->pack(-side => "top");  #===>此句自动跳出程序
  MainLoop;
  return 0;
}
[/Code]

[[i] 本帖最后由 不死草 于 2008-5-14 16:45 编辑 [/i]]